VB6 Datagrid zeigt keine Daten im Formular an

Question

** Mein Recordset zeigt alle Ergebniswerte der Abfrage an. Seine Record-Anzahl ist ebenfalls korrekt. Ich habe die Datenquelle des Datagrid als Recordset festgelegt. Aber meine Datagrid zeigen nicht das Ergebnis auf dem Formular.Pls Hilfe **

Private Sub Form_Load() 
Dim conn As ADODB.Connection 
Dim adoRS As ADODB.Recordset 
Dim cmd As ADODB.Command 
Dim connectionString As String 
Dim dg As DataGrid 
Set conn = New ADODB.Connection 
Set cmd = New ADODB.Command 
Set adoRS = New ADODB.Recordset 
Set DataGrid2.DataSource = Nothing 
connectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Assignment;Data Source=CHETANA22;" 
conn.connectionString = connectionString 
conn.CursorLocation = adUseClient 
conn.Open 
cmd.ActiveConnection = conn 

cmd.CommandText = "SELECT * FROM Artists;" 
cmd.CommandType = adCmdText 
Set adoRS = cmd.Execute() 
Set DataGrid2.DataSource = adoRS 
DataGrid2.ReBin 
Do 
For Each x In adoRS.Fields 
MsgBox x.Value 
adoRS.MoveNext 
Next 
Loop Until adoRS.EOF 

adoRS.Close 
conn.Close 
End Sub 

Answer 1

Ich habe die Antwort dafür. Das Problem war ich schloss das Recordset und die Verbindung am Ende des Sub.

Wir brauchen die Verbindung und Recordset in Unload-Methode

Recordset.ActiveConnection=Nothing 
Connection.ActiveConnection=Nothing 

und dann in der Nähe zu tun.