Anfängerfrage: Suchanfrage erstellen

[Royalty]

In meinem Onlinekurs habe ich die Aufgabe, eine Suchabfrage für eine Kundendatenbank (4 spalten) zu erstellen. Ich soll einen Kunden nach Kundennummer ermitteln und den vollständigen Datensatz ausgeben.

Irgendwie bricht es aber immer ab.

Code:

Private Sub CommandButton1_Click()
Dim strSQL As String
Dim LastRow As Integer

   
     Call a_mod_DB_Zugriff.DB_Zugang_check
 
    Set rs = CreateObject("ADODB.Recordset")
   
   
    strSQL = "SELECT * FROM Kunde Where Kundennummer = textbox1.value"

    rs.Open strSQL, objConn
   
    Do While Not rs.EOF
        LastRow = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
        Tabelle1.Cells(LastRow, 1) = rs!Kundennummer
        Tabelle1.Cells(LastRow, 2) = rs!Name
        Tabelle1.Cells(LastRow, 3) = rs!Str
        Tabelle1.Cells(LastRow, 4) = rs!Ort
       
        rs.movenext
    Loop

   
Call Aufraeumen


End Sub

Würde mich freuen, wenn jemand mal drüber schauen könnte! Vielleicht gehts auch etwas anders. Die Tabelle in Access ist "Kunde" und die Spalte "Kundennummer". Als Ergebnis soll der "vollständige" Datensatz in Zeile 2 ausgegeben werden.
Danke
Roy

[RPP63]

*gelöscht*
Habe ich falsch interpretiert.

[Steffl]

Hallo,

der SQL-String dürfte so aber nicht passen

Code:

strSQL = "SELECT * FROM Kunde Where Kundennummer = " & textbox1.value

Nachtrag: Eventuell noch die Hochkommas um die Kundennummer setzen

Code:

strSQL = "SELECT * FROM Kunde Where Kundennummer = '" & textbox1.value & "'"

[schauan]

Hallöchen,

Die Verbindung zur Datenbank hast Du in dem anderen Code geöffnet (a_mod_DB_Zugriff.DB_Zugang_check) und die ist auch offen?
Ansonsten würde auch objConn auf verlorenem Posten stehen ...

[Royalty]

Hallo,

der SQL-String dürfte so aber nicht passen

Code:

strSQL = "SELECT * FROM Kunde Where Kundennummer = " & textbox1.value

Nachtrag: Eventuell noch die Hochkommas um die Kundennummer setzen

Code:

strSQL = "SELECT * FROM Kunde Where Kundennummer = '" & textbox1.value & "'"

Hi, danke. Hat geklappt. Mit den Hochkommas gehts