rivate Sub Form_Load()
constart
Call Listview("Kunden")
If i = 1 Then
Text1 = "Info: Es befindet sich momentan " & i & " Kunde in der Kundendatei."
Else
Text1 = "Info: Es befinden sich momentan " & i & " Kunden in der Kundendatei."
End If
End Sub
 
Private Sub Listview(ByVal dbTable As String)
Dim oRecordset As ADODB.Recordset
Dim oField As ADODB.Field
Dim oItem As ListItem
i = 0
 
With DB
    .CursorLocation = adUseClient
End With
 
'Einlesen
Set oRecordset = New ADODB.Recordset
oRecordset.Open "Select * From " & dbTable, DB, adOpenForwardOnly, _
  adLockReadOnly, 0
 
' ListView leeren + LiestView Eigenschaften
With ListViewKunden
    .ColumnHeaders.Clear
    .ListItems.Clear
    .View = lvwReport ' Report-Ansicht (Detail-Ansicht)
    .GridLines = True ' Man sieht die Gitternetzlinien
    .FullRowSelect = True 'kompl.Datensatz wird markiert
    .LabelEdit = lvwManual 'ich lege die Spalteneigenschaften selbst fest
 
 
'Prozeduraufruf mit den Eigenschaften Spaltenbreite + Bezeichnung
ListvKundenzeigenEinteilung
 
' Prüfen ob Datensätze vorhanden
If oRecordset.RecordCount > 0 Then
' Nun das Recordset durchlaufen und alle Daten in Listview schreiben
oRecordset.MoveFirst
    Do
    ' ein ListItem mit dem ersten Feld des aktuellen
    ' Recordset-Eintrags erzeugen
        For Each oField In oRecordset.Fields
          If oItem Is Nothing Then
            ' ein neues ListItem erzeugen
            Set oItem = .ListItems.Add(, , oField.Value)
          Else
            oItem.SubItems _
              (.ColumnHeaders.Item(oField.Name).Index - 1) _
            = IIf(Not IsNull(oField.Value), oField.Value, "")
          End If
    Next
 
    ' Unser ListItem wieder auf Nothing setzten
    Set oItem = Nothing
    ' nächsten Datensatz aus dem Recordset
    oRecordset.MoveNext
    i = i + 1
    Loop Until oRecordset.EOF 'Solange kein Datensatz mehr vorhanden
    End If
End With
Set oField = Nothing
Set DB = Nothing
Set oRecordset = Nothing
 
End Sub
 
 
Private Sub ListvKundenzeigenEinteilung()
'Prozedur zur Benennung der Spalten des Listviews + Spaltenbreite
ListViewKunden.ColumnHeaders.Add , "KD_KundenNr", "Kundenr.", 900
ListViewKunden.ColumnHeaders.Add , "KD_Anrede", "Anrede", 700
ListViewKunden.ColumnHeaders.Add , "KD_KName", "Namen", 1650
ListViewKunden.ColumnHeaders.Add , "KD_KVorname", "Vornamen", 1650
ListViewKunden.ColumnHeaders.Add , "KD_Strasse", "Strasse", 1650
ListViewKunden.ColumnHeaders.Add , "KD_PLZ", "PLZ", 700
ListViewKunden.ColumnHeaders.Add , "KD_Ort", "Ort", 1700
ListViewKunden.ColumnHeaders.Add , "KD_Telefon", "Telefon", 1550
ListViewKunden.ColumnHeaders.Add , "KD_Fax", "Fax", 1550
ListViewKunden.ColumnHeaders.Add , "KD_Email", "Email", 2391
End Sub