Hallo,
ich habe ein Problem mit Visual Basic und Ado, und zwar funktioniert alles, solange ich keine Where Klausel in die SQL Abfrage aufnehme, ich verstehe das einfach nicht. Kann mir villeicht jemand weiterhelfen?
'Deklarationen
Dim myconn As ADODB.Connection
Dim rs As ADODB.Recordset
'Definitionen
Set myconn = New ADODB.Connection
Set rs = New ADODB.Recordset
'Datenbankverbindung herstellen
myconn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=D:\Eigene\visualbasic\Arbeit\WordDokumente\DB\DB_2000.mdb;"
'Verbindung auf recordset parsen
'rs.ActiveConnection = myconn
Dim strSql As String
'Wenn ich diesen String nehme, dann werden mir die Datensätze alle richtig angezeigt
'strSql = "SELECT FIRMA_ID FROM tbl_ALLE_DMS_Referenzen"
'Wenn ich diesen String benutze kommt überhauptnichts raus, wenn ich ihn mir aber in einer Textbox ausgeben lasse, kopiere und direkt in Access ausführe bekomme ich die korrekten Ergebnisse
'strSql = "SELECT * FROM tbl_ALLE_DMS_Referenzen WHERE Match_FA LIKE '*G.K.K. GmbH*'"
'Firmen ID holen
rs.Open strSql
Do Until rs.EOF
MsgBox rs("FIRMA_ID")
rs.MoveNext
Loop
rs.Close
myconn.Close
Wäre wirklich nett wenn mir da jemand helfen könnte, ich verstehs einfach nicht.
Gruß,
NBOne
ich habe ein Problem mit Visual Basic und Ado, und zwar funktioniert alles, solange ich keine Where Klausel in die SQL Abfrage aufnehme, ich verstehe das einfach nicht. Kann mir villeicht jemand weiterhelfen?
'Deklarationen
Dim myconn As ADODB.Connection
Dim rs As ADODB.Recordset
'Definitionen
Set myconn = New ADODB.Connection
Set rs = New ADODB.Recordset
'Datenbankverbindung herstellen
myconn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=D:\Eigene\visualbasic\Arbeit\WordDokumente\DB\DB_2000.mdb;"
'Verbindung auf recordset parsen
'rs.ActiveConnection = myconn
Dim strSql As String
'Wenn ich diesen String nehme, dann werden mir die Datensätze alle richtig angezeigt
'strSql = "SELECT FIRMA_ID FROM tbl_ALLE_DMS_Referenzen"
'Wenn ich diesen String benutze kommt überhauptnichts raus, wenn ich ihn mir aber in einer Textbox ausgeben lasse, kopiere und direkt in Access ausführe bekomme ich die korrekten Ergebnisse
'strSql = "SELECT * FROM tbl_ALLE_DMS_Referenzen WHERE Match_FA LIKE '*G.K.K. GmbH*'"
'Firmen ID holen
rs.Open strSql
Do Until rs.EOF
MsgBox rs("FIRMA_ID")
rs.MoveNext
Loop
rs.Close
myconn.Close
Wäre wirklich nett wenn mir da jemand helfen könnte, ich verstehs einfach nicht.
Gruß,
NBOne
