Hallo Karl,
Du weist schon, das RDO doch etwas sehr in die Jahre gekommen ist und das danach es noch DAO und ADO gab (ADO, DAO and RDO in Visual Basic)?
Ich musste auch erst mal nachsehen, wie es mit RDO ging; wenn ich aber den folgenden Code mit einem SQL Server 2008 als Datenquelle laufen lassen, funktioniert der Zugriff soweit. Da müssten wir etwas mehr von Deinem Code kennen, bei dem der Fehler
auftritt.
Public Sub Test()
Dim re As rdoEnvironment
Dim db As rdoConnection
Dim rs As rdoResultset
Dim strSQL As String
strSQL = "Select * from Person.Address"
Set re = rdoEngine.rdoEnvironments(0)
Set db = re.OpenConnection("SqlTest")
Set rs = db.OpenResultset(strSQL, rdOpenKeyset, rdConcurReadOnly, rdExecDirect)
rs.MoveLast
Debug.Print rs.RowCount
db.Close
re.Close
End Sub
Olaf Helper ----------- * cogito ergo sum * errare humanum est * quote erat demonstrandum * Wenn ich denke, ist das ein Fehler und das beweise ich täglich http://olafhelper.over-blog.de
