DAOでAccessに接続

解決

Sherry 2002-11-12 00:03:33 No: 105406

どなたか教えてください。

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) 'ここでエラーが出ます

ヘルプや他の方が書いたソースを見てもエラーがなぜ出るのか
検討がつきません。
よろしくお願いいたします。

特命 2002-11-12 03:04:42 No: 105407

エラーメッセージから単純に考えると、
ID って文字列のフィールドでは？

sherry 2002-11-12 17:49:06 No: 105408

ありがとうございます。
解決いたしました。