Mit VBA ausgeführter Abfrage liefert kein Ergebnis

• Frage

• 

  

  0

  Anmelden

  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

  Dienstag, 28. Juli 2020 13:27

  Antworten

  |

  Zitieren