Private Sub Listview(ByVal dbTable As String) 'ListView erstellen
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 ListViewKundenEdit
    .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
ListvKundenEditzeigenEinteilung 
 
' 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 EditAendernKundenButton_Click()
constart
Dim Kundenedit As New ADODB.Recordset
Dim suchSQL As String
Dim x As String
 
 
suchSQL = "Select * from Kunden where KD_KundenNr Like '" & _
  KundenNrAnzeige.Text & "'"
With Kundenedit
    .ActiveConnection = DB
    .Source = "Kunden"
    .LockType = adLockOptimistic
    .Open suchSQL
End With
 
Kundenedit!KD_Anrede = txtKde(0).Text
Kundenedit!KD_KName = txtKde(1).Text
Kundenedit!KD_KVorname = txtKde(2).Text
Kundenedit!KD_Strasse = txtKde(3).Text
Kundenedit!KD_PLZ = txtKde(4).Text
Kundenedit!KD_Ort = txtKde(5).Text
Kundenedit!KD_Telefon = txtKde(6).Text
Kundenedit!KD_Fax = txtKde(7).Text
Kundenedit!KD_Email = txtKde(8).Text
 
Kundenedit.Update
Kundenedit.Close
Call Listview("Kunden")
 
End Sub