Private Sub DataGridTest()
編集 削除Private Sub DateGuridTest()
Dim rs As New ADODB.Recordset
Dim MySQL As String
MySQL = "SELECT * FROM 2004基本台帳 ;"
rs.Open MySQL, cn1,adOpenStatic, adLockOptimistic
Set DataGridTest.DataSourse = rs
Text1.Text = rs!名前 '←ちゃんと名前が入ります
DataGridTest.Columns("名前”).Width = 60*15
DataGridTest.Columns("住所”).Width = 60*15
End Sub
どうにかこうにか市販されている本を参考に記述しましたが”列が見つかりません。 名前”
と表示されてしまいます。どこが間違っているのか解りません。どうかよろしくお願いします。
お騒がせしてスイマセン。よくよくみるとrs.Open潼ySQL,瀋n1,adOpenStatic,濛dLockOptimistic
でcn1はデザイアからのコマンド名を指定しなくてはいけないのに直接接続の指定をしていました。