Supportnet / Forum / Datenbanken
Typen unverträglich Laufzeitfehler 13
Frage
Hallo,
Ich habe folgendes VB Script verfasst und erhalte einen o.g. Fehler in Zeile 9
Set r ....
Kann mir da jemand helfen?
Gruß
Andreas
Public Function opdb()
Dim R As Recordset
Dim s1 As String
Dim DB As Database
Set DB = CurrentDb()
s1 = "SELECT ADMINFO.* FROM ADMINFO"
Set R = DB.OpenRecordset(s1, dbOpenDynaset)
R.MoveFirst
End Function
Antwort 1 von struppi
Hallo,
Entweder so:
oder so:
Auszug aus der Access-Hilfe:
----------------------------
Quelle Ein Wert vom Typ String, der die Quelle der Datensätze für das neue Recordset-Objekt angibt. Die Quelle kann ein Tabellenname, ein Abfragenname oder eine SQL-Anweisung sein, die Datensätze zurückgibt. Bei Recordset-Objekten vom Typ Tabelle in Microsoft Jet-Datenbanken kann als Quelle nur ein Tabellenname angegeben werden.
gruß struppi
Entweder so:
s1 = "SELECT * FROM ADMINFO ;"
Set R = DB.OpenRecordset(s1, dbOpenDynaset)
oder so:
s1 = "ADMINFO"
Set R = DB.OpenRecordset(s1, dbOpenDynaset)
Auszug aus der Access-Hilfe:
----------------------------
Quelle Ein Wert vom Typ String, der die Quelle der Datensätze für das neue Recordset-Objekt angibt. Die Quelle kann ein Tabellenname, ein Abfragenname oder eine SQL-Anweisung sein, die Datensätze zurückgibt. Bei Recordset-Objekten vom Typ Tabelle in Microsoft Jet-Datenbanken kann als Quelle nur ein Tabellenname angegeben werden.
gruß struppi