エラー3011

パス名もきちんと設定し、データもあっているのですが
オブジェクトが存在しないか、名前、パス名が違うと
エラーがでてしまいます。どこが違うのでしょうか？

Dim db As String
Dim db_Mdb As DAO.Database
Dim rd_Mdb As DAO.Recordset
Dim stSQL As String

db = "C:\XXX\VB\kanri.mdb"　　
'パス名は、アドレスをコピー貼り付けしたので間違いないと思います)
”省略(データベースに接続)”

stSQL = "select * from name where bango=0001;"
Set rd_Mdb = db_Mdb.OpenRecordset(stSQL, dbOpenTable)

お願いしますm(__)m

No.1 ベストアンサー 回答者： noname#22222 回答日時： 2006/03/28 11:29

参考にして下さい。

Private Sub Command1_Click()
　　Dim dbsCurrent As DAO.Database
　　Dim rstTable　 As DAO.Recordset

　　Set dbsCurrent = DBEngine.Workspaces(0).OpenDatabase("D:\Sales2005\Sales2005.mdb")
　　Set rstTable = dbsCurrent.OpenRecordset("SELECT * FROM 各種設定;")
　　MsgBox rstTable.fields(0)
End Sub

この回答へのお礼

ありがとうございます。
上記のようにしたところエラーはでなくなったのですが、
bango　0001を表示させたいので、
whereで条件文をいれると抽出条件のデータ型があいませんと
エラーが出てしまいます。

ちなみに抽出したいデータはテキスト型なんですが・・・

お礼日時：2006/03/28 11:44

No.3 回答者： perse 回答日時： 2006/03/28 12:47

bangoは数値ではないようなので

stSQL = "select * from name where bango='0001'"
ではないでしょうか？
0001をシングルクォーテーション(')でくくってます。

No.2 回答者： noname#22222 回答日時： 2006/03/28 12:46

Where bango='0001'

と右辺も文字列に！