VBからAccessへODBCを使って接続せるには？ (ID:125701)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub Command1_Click() Dim cn As ADODB.Connection 'データベースへの接続情報を保持するオブジェクト Dim rs As ADODB.Recordset 'データベースの内容を出力するレコードセット Dim mySQL As String 'SQL文を保持 mySQL = "SELECT * FROM テーブルの名前" Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source= " & App.Path & "\db1.mdb" cn.Open Set rs = New ADODB.Recordset With rs .ActiveConnection = cn .Source = mySQL .CursorType = adOpenStatic .LockType = adLockOptimistic .Open End With 'レコード空白でエラーが出たとき On Error GoTo Error01 Text1.Text = ![列の名前] rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing Exit Sub Error01: 'エラーのときの処理 rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing Resume Next End Sub では、だめなの？ Access 2000 の形式のデータベースに接続する場合プロバイダは Microsoft.Jet.OLEDB.4.0 以上のバージョンを指定します。