Option Explicit
 
Dim db As Database
Dim rs As Recordset
 
Private Sub Combo1_Click()
    rs.AbsolutePosition = Combo1.ListIndex
    Text1.Text = rs!Address
    Text2.Text = rs!City
End Sub
 
Private Sub Form_Load()
    Dim Count As Integer
    Dim sql As String
 
    Show
    Combo1.Clear
 
    Set db = Workspaces(0).OpenDatabase("C:\Programme\Microsoft Visual" & _
      "Studio\VB98\BIBLIO.MDB")
 
    '--Redordset nach Namen sortieren. Adresse und Stadt müssen vorhanden sein
    sql = "SELECT Name, Address, City FROM Publishers " & _
          " WHERE Address > '' and City > '' " & _
          " ORDER BY Name ASC;"
    Set rs = db.OpenRecordset(sql)
 
    With rs
 
        '--Nur 30 Datensätze einlesen.
        'Leider alle am Anfang den geichen Buchstaben. Aber ist nur ein Test
        While Not .EOF
            '--Zum Testen in Form anzeigen
            Me.Print !Name & " " & !Address & " " & !City
 
            '--Name in ComboBox eintragen
            Combo1.AddItem !Name
            .MoveNext
            Count = Count + 1
            If Count >= 30 Then Exit Sub
        Wend
    End With
End Sub

Option Explicit
 
Dim db As Database
Dim rs As Recordset
 
Private Sub Combo1_Click()
    rs.AbsolutePosition = Combo1.ListIndex
    Text1.Text = rs!Address
    Text2.Text = rs!City
End Sub
 
Private Sub Combo1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        DatenEinlesen Combo1.Text
    End If
End Sub
 
Private Sub Form_Load()
    Show
    Set db = Workspaces(0).OpenDatabase("C:\Programme\Microsoft Visual" & _
      "Studio\VB98\BIBLIO.MDB")
End Sub
 
 
Private Sub DatenEinlesen(ByVal Suche As String)
    Dim Count As Integer
    Dim sql As String
 
    Combo1.Clear
    Cls
 
    '--Redordset nach Namen sortieren. Adresse und Stadt müssen vorhanden sein
    sql = "SELECT Name, Address, City FROM Publishers " & _
          " WHERE Name LIKE '*" & Suche & "*'" & _
          "AND Address > '' and City > '' " & _
          " ORDER BY Name ASC;"
    Set rs = db.OpenRecordset(sql)
 
    With rs
 
        '--Nur 30 Datensätze einlesen.
        'Leider alle am Anfang den geichen Buchstaben. Aber ist nur ein Test
        While Not .EOF
            '--Zum Testen in Form anzeigen
            Me.Print !Name & " " & !Address & " " & !City
 
            '--Name in ComboBox eintragen
            Combo1.AddItem !Name
            .MoveNext
            Count = Count + 1
            If Count >= 30 Then Exit Sub
        Wend
 
        If .RecordCount > 0 Then
            Combo1.ListIndex = 0
        Else
            Me.Print "KEINE DATEN GEFUNDEN."
        End If
    End With
End Sub

Option Explicit
 
Dim db As Database
Dim rs As Recordset
 
 
Private Sub List1_Click()
    '--Damit die Change-Eigenschaft nicht aufgerufen wird
    Text1.Enabled = False
 
    With rs
        .AbsolutePosition = List1.ListIndex
        Text1 = !Name
        Text2 = !Address
        Text3 = !City
    End With
 
    List1.Visible = False
    Text1.Enabled = True
End Sub
 
Private Sub Text1_Change()
    If Text1 = "" Then
        List1.Visible = False
    Else
        DatenEinlesen Text1.Text
    End If
End Sub
 
Private Sub Form_Load()
    Set db = Workspaces(0).OpenDatabase("C:\Programme\Microsoft Visual" & _
      "Studio\VB98\BIBLIO.MDB")
End Sub
 
 
Private Sub DatenEinlesen(ByVal Suche As String)
    Dim Count As Integer
    Dim sql As String
 
    List1.Clear
 
    '--Redordset nach Namen sortieren. Adresse und Stadt müssen vorhanden sein
    sql = "SELECT Name, Address, City FROM Publishers " & _
          " WHERE Name LIKE '*" & Suche & "*'" & _
          "AND Address > '' and City > '' " & _
          " ORDER BY Name ASC;"
    Set rs = db.OpenRecordset(sql)
 
    With rs
 
        While Not .EOF
            '--Name in ListBox eintragen
            List1.AddItem !Name
            .MoveNext
        Wend
 
        If .RecordCount > 0 Then
            With List1
                .Left = Text1.Left
                .Top = Text1.Top + Text1.Height
                .Width = Text1.Width
                .ZOrder 0
                '.Height = 8 * Screen.TwipsPerPixelY  '8 Einträge sichtbar
                .Visible = True
            End With
        Else
            Cls
            Me.Print "KEINE DATEN GEFUNDEN."
            List1.Visible = False
        End If
    End With
End Sub