'Dieses Programm stammt von der Visual-Basic.AT - Seite!
'Um immer am laufenden zu sein, abbonieren sie unseren Newsletter.
'http://www.visualbasic.at
'http://www.visual-basic.at
'Info: info@visualbasic.at
'Dieser Source-Code darf frei verwendet werden.
'VisualBasic.AT übernimmt keine Haftung durch Schäden an Hard- & Software,
'die durch diesen Source-Code entstehen können.
'Viel Spaß beim Ausprobieren wünscht Ihnen ihr Visual-Basic.AT Team!
 
Option Explicit
 
'Datenbankverbindung zur Anzeige des Datenbank-Schemas
Public objConn As New Connection
 
'Recordset zur Anzeige des Datenbank-Schemas
Public objRs As Recordset
 
'Name der selektierten DB-Tabelle
Public stgTableName As String
 
'Verbindung zur Datenbank aufbauen
'@param FileName enthält den Pfad und den Namen der zu untersuchenden Datenbank
Public Sub OpenConn(FileName As String)
    With objConn
        If .State = adStateOpen Then .Close
        .Provider = "Microsoft.Jet.OLEDB.4.0" 'Access 2000/XP
        .Properties("Data Source") = FileName 'Pfadname
        .CursorLocation = adUseClient
        .Open 'Connection öffnen
    End With
End Sub
 
'Tabellen-Schema auslesen
Public Sub Table()
    'Recordset über Tabellen-Schema erstellen
    Set objRs = objConn.OpenSchema(adSchemaTables)
 
    'Tabellenauflistung clearen
    frmInspectDB.lstTable.Clear
 
    'Recordset durchlaufen und alle Tabellen auflisten
    Do While Not objRs.EOF
        If objRs("TABLE_TYPE") = "TABLE" Then
            meineForm.meineListBox.AddItem objRs("TABLE_NAME")
        End If
        objRs.MoveNext
    Loop
    objRs.Close
End Sub
 
'Tabellendaten auslesen
'@param TableName enthält den Namen der zu untersuchenden DB-Tabelle
Public Sub OpenTable(TableName As String) 'Tabelle öffnen
    With objRs
        Set objRs.ActiveConnection = objConn 'aktive Verbindung zuweisen
        .ActiveConnection = objConn
        If .State = adStateOpen Then .Close
        .LockType = adLockOptimistic
        .Source = "Select * From " & TableName 'ganze Tabelle
        On Error Resume Next
        .Open 'Tabelle öffnen
    End With
End Sub
 
'Verbindung schließen
Public Sub CloseConn()
    If objRs.State = adStateOpen Then
        objRs.Close
        Set objRs = Nothing
    End If
    If objConn.State = adStateOpen Then
        objConn.Close
        Set objConn = Nothing
    End If
End Sub
 
'Tabellendaten anzeigen
Public Sub FG_ShowData()
    On Error Resume Next
 
    'Deklarationen
    Dim i As Long, i1 As Long
    Dim col_breite As Integer
 
    With meineForm.MSFlexGrid1
        .Redraw = False
 
        'Anzahl der Spalten & Zeilen
        .Cols = objRs.Fields.Count
        .Rows = .FixedRows + objRs.RecordCount + 1
 
        'Daten auslesen
        objRs.MoveFirst
        Do While Not objRs.EOF
            For i = 0 To .Cols - 1
                .TextMatrix(0, i) = objRs.Fields(i).Name
                If Not IsNull(objRs.Fields(i).Value) Then
                    .TextMatrix(objRs.AbsolutePosition, i) = objRs.Fields( _
                      i).Value
                End If
            Next i
            objRs.MoveNext
        Loop
 
        'Spaltenbreite berechnen
        For i = 0 To .Cols - 1
            col_breite = 0
            .ColWidth(i) = 0
            For i1 = 0 To .Rows - 1
                col_breite = meineForm.TextWidth(.TextMatrix(i1, i)) + 120
                If col_breite > .ColWidth(i) Then .ColWidth(i) = col_breite
                If .TextMatrix(0, i) = "fldVersionsinfo" Then .ColWidth(i) = _
                  meineForm.Width - meineForm.meinFrame1.Width - .ColWidth(0) - _
                  .ColWidth(1) - 540
            Next i1
        Next i
 
        .Redraw = True
    End With
End Sub

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)