エラー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 · ベストアンサー

参考にして下さい。

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で条件文をいれると抽出条件のデータ型があいませんと
エラーが出てしまいます。

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

回答No.3

perse

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

回答No.2

noname#22222

Where bango='0001'

と右辺も文字列に！