0
**私のレコードセットはクエリのすべての結果値を表示します。そのレコード数も正しいです。私は、DataGridのデータソースをRecordsetとして設定しました。しかし、私のDatagridはフォーム上の結果を表示しません.Plsヘルプ**VB6 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