どなたか教えてください。
Accessからデータを抽出しようとしているのですが、
「型が一致しません」と、エラーが出ます。
なぜ、このエラーが出るか、お教えください。
ソースは以下のように書いてあります。
Public ws As DAO.Workspace
Public db As DAO.Database
Public rs As DAO.Recordset
--------------------------------------------------------
Private Sub Command1_Click()
Dim db As Database
Dim ws As Workspace
Dim rs As Recordset
Dim strSQL As String
'データベースオープン
On Error GoTo Err_Access_ERROR
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("c:\db1.mdb")
On Error GoTo 0
'SQL文の作成
strSQL = "SELECT * FROM Hyou " & _
"where ID = 1"
Set rs = db.OpenRecordset(strSQL) 'ここでエラーが出ます
ヘルプや他の方が書いたソースを見てもエラーがなぜ出るのか
検討がつきません。
よろしくお願いいたします。
エラーメッセージから単純に考えると、
ID って文字列のフィールドでは？
ありがとうございます。
解決いたしました。