Hallo
mit folgenden Sript will ich mit VBA prüfen ob ein bestimmter Datensatz vorhanden ist.
Leider bekomme ich kein Ergebnis obwohl der gesuchte Datensatz vorhanden ist.
Selbst wenn ich den Filter weg lasse bekomme ich kein Ergebnis aber auch keinen Fehler.
Function checkConnection() As Boolean
Dim db As Object
Dim rs As Object
On Error GoTo ERR_checkConnection
Set db = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
db.Open ("Provider=SQLOLEDB; Server=MyServer; Database=MyDatabase; Trusted_Connection=yes;")
rs = db.Execute("SELECT * FROM MyTable WHERE MyField = 'MyValue'"
if rs.recordCount > 0 then
checkConnection = TRUE
else
checkConnection = FALSE
end if
Exit_checkConnection:
rs.Close 'Recordset schließen
Set rs = Nothing
db.Close 'Verbindung zum SQL Server schließen
Set db = Nothing
Exit Function
ERR_checkConnection:
debug.print Err.Number & " _ " & Err.Description
Resume Exit_checkConnection
End Function
Hat jemand eine Idee was da falsch löuft?
Gruß
cheapy