SQL in VBA einbinden

[ralph_hoffmann]

Hallo,
ich habe folgenden Code geschrieben:

'
'Verbindung und Datensätze einrichten
'
Dim mdbConnection As New ADODB.Connection
Dim mdbRecordset As New ADODB.Recordset

        '
        'Tabelle BESTELLUNG ansprechen
        '
           mdbRecordset.Open "Bestellung", _
                          mdbConnection, _
                          CursorType:=adopenKeyset, _
                          LockType:=adLockOptimistic
        
        '
        'Nach der Auftragsnummer(2) suchen
        '
            With mdbRecordset
                strSQL = "SELECT auftragsnummer2" & _
                         "FROM bestellung" & _
                         "WHERE auftragsnummer2 = 'auftragsnummer(2)'"
            
                Set rs = ????
                
                a = msgbox("Eine Bestellung mit der Auftragsnummer " & auftragsnummer(2) & Chr(10) & _
                        "existiert schon." & Chr(10) & Chr(10) & "Soll der entsprechende Datensatz aus der" & _
                        Chr(10) & "Datenbank entfernt und durch die aktuelle" & Chr(10) & _
                        "Bestellung ersetzt werden?", vbYesNo)
            End With

Jetzt weiß ich nicht weiter. Ich möchte festellen, ob es einen Dataensatz schon in der DB gibt, um den User zu fragen, ob dieser Datensatz gelöscht werden soll, oder eben nicht.

Wie kriege ich das mit ADO hin?

Gruß
Ralph

[Christopher Olbertz]

Hallo Ralph,

versuch es mal folgendermaßen:

Dim db As DAO.database
'Dein Code
set rs = db.openRecordset(strSQL)