VB6 Datagrid未在表格中顯示數據

Question

** My Recordset顯示查詢的所有Result值。它的記錄計數也是正確的。我已經將DataGrid的數據源設置爲Recordset。但我Datagrid不顯示在窗體上的結果。請幫助**

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

我得到了答案。 問題是我關閉了記錄集和連接在Sub的結尾。

我們需要做的

Recordset.ActiveConnection=Nothing 
Connection.ActiveConnection=Nothing 

，然後關閉卸載方法連接和Recordset。