Disconnected Recordset

20/02/2009 - 13:16 von Thomas Wolf | Report spam
Hallo NG

Ich versuche mit gerade das erste Mal mit disconnected recordsets (gem. AEK9
von Uwe Ricken).

Jetzt habe ich aber schon das erste Problem. bei der Zeile 20 kommt der
Fehler 91 (Objektvariable oder With-Blockvariable nicht festgelegt). Was
mache ich denn falsch?

Code Start
Private rst As Object
Private Const SQL_SQL_STRINGS As String = "Select * from tsysSettings"

Private Sub Class_Initialize()
10 With rst
20 Set .ActiveConnection = CurrentProject.Connection
30 .CursorType = adOpenStatic
40 .curorlocation = adUseClient
50 .LockType = adLockReadOnly
60 .source = SQL_SQL_STRINGS
70 .Open , , , , adCmdText
80 If Not rst Is Nothing Then
90 Set .ActiveConnection = Nothing
100 End If
110 End With
End Sub
Code End

Gruss
Thomas
 

Lesen sie die antworten

#1 Brita Dahlhaus
20/02/2009 - 13:28 | Warnen spam
Hallo Thomas.

Das 'Set' ist an der Stelle fehl am PLatz.
Es genügt eine einfache Zuweisung.

Gruß Brita

Thomas Wolf schrieb:
Hallo NG

Ich versuche mit gerade das erste Mal mit disconnected recordsets (gem.
AEK9 von Uwe Ricken).

Jetzt habe ich aber schon das erste Problem. bei der Zeile 20 kommt der
Fehler 91 (Objektvariable oder With-Blockvariable nicht festgelegt). Was
mache ich denn falsch?

Code Start
Private rst As Object
Private Const SQL_SQL_STRINGS As String = "Select * from tsysSettings"

Private Sub Class_Initialize()
10 With rst
20 Set .ActiveConnection = CurrentProject.Connection
30 .CursorType = adOpenStatic
40 .curorlocation = adUseClient
50 .LockType = adLockReadOnly
60 .source = SQL_SQL_STRINGS
70 .Open , , , , adCmdText
80 If Not rst Is Nothing Then
90 Set .ActiveConnection = Nothing
100 End If
110 End With
End Sub
Code End

Gruss
Thomas

Ähnliche fragen