ADODB / Class / Events

03/09/2008 - 09:24 von DrRamazzotti | Report spam
Hallo zusammen,

bin gerade etwas gestrandet.
Versuche den Fortschritt einer Abfrage darzustellen. Innerhalb einer
Form klappt dies auch hervorragend. Allerdings sobald ich das ganze in
eine Klasse verschiebe werden die Events nicht mehr gefeuert.

Deklarationen

Private Const strConn = "Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial Catalog=xxxxxx;Data
Source=xxxxxxx"
Private Const strDefaultSQL = "SELECT * FROM test"

Public cn As ADODB.Connection
Public WithEvents rs As ADODB.Recordset
###########################################################
Public Function refresh()
Dim strSQL As String
Set cn = New ADODB.Connection

cn.Open strConn

Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient

.Properties("Initial Fetch Size") = 2
.Properties("Background Fetch Size") = 4

Debug.Print "Start"
Debug.Print "Initial Fetch Size: " & _
.Properties("Initial Fetch Size")
Debug.Print "Background Fetch Size: " & _
.Properties("Background Fetch Size")

.Open strDefaultSQL, cn, , , adAsyncFetch
End With
End Function
##########################################################
Public Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress
As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As
ADODB.Recordset)
Debug.Print Progress
Form1.Label1.Caption = Progress
DoEvents
End Sub
###########################################################

Hat jemand eine Idee.
Ado-Version ist eine Reference auf 2.8

Danke

Gruesse
Bernahrd
 

Lesen sie die antworten

#1 Thorsten Albers
03/09/2008 - 11:39 | Warnen spam
DrRamazzotti schrieb im Beitrag
...
Ado-Version ist eine Reference auf 2.8



Fragen zur Datenbank-Programmierung mit MS Visual Basic <= 6.0
gehören in die Newsgroup microsoft.public.de.vb.datenbank!

-
THORSTEN ALBERS Universitàt Freiburg
albers@
uni-freiburg.de
-

Ähnliche fragen