VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/11/01(Fri) 14:17 |
| 投稿者 | ： もも |
| ＵＲＬ | ： |
| タイトル | ： データグリッドコントロールで表示したい |
こんにちは。VB初心者です。
VB5とAccess2000で、データベースの勉強をしています。
次のようなプログラムを本で調べながら書いてみました。
Option Explicit
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Private Sub cmdExec_Click()
Dim mySQL As String
mySQL = "select * from 本"
Set Rs = New ADODB.Recordset
Rs.Open mySQL, Cn, adOpenStatic
Set DataGrid1.DataSource = Rs -----------（＊）
End Sub
Private Sub Form_Load()
'''''''''''''''''
'データベース接続
'''''''''''''''''
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db\Book.mdb"
Cn.Open
End Sub
Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Cn.Close
End Sub
ところが以下のようなエラーがでてしまいます。
≪実行時エラー430 クラスはオートメーションをサポートしていません。≫
デバッグしてみると（＊）の部分で、
DataGrid1.DataSource=<オブジェクトが必要です。>
となっています。
以上が、行詰っているところです。
どうかご存知の方、教えてください。よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）