投稿日	： 2004/09/14(Tue) 12:50
投稿者	： ももたろう
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: mdb検索方法

> 私はCommandオブジェクトやParamaterオブジェクトは使ったこと無いのでよく分かりませんが、
> ConnectionとRecordSetだけで充分だと思います。
>
> strSQLにちゃんとクエリーを書いて、
> rs.Open strSQL, cn, adOpenStatic, adLockReadOnly
> で開けますよ。

この方法を試したんですが、「型が一致しません」のエラーになってしまい、悩んでいるところです。
下記がそのコードです。
まだよくわかっていないので、いろいろ試しながらやっています。

　　Dim rs      As Recordset
    Dim strSQL      As String
    Dim sFlagmdb    As String   'mdbに存在するかのフラグ
    Dim wrkJet As Workspace         'ワークスペースオブジェクト
    Dim dbsCONV As Database           'データベースオブジェクト
          
    'Jet Workspace オブジェクトを作成します。
    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    
    'マスタＭＤＢ設定
    Set dbsCONV = wrkJet.OpenDatabase(App.Path & "\seishiki.mdb", True)
    
    strSQL = "SELECT * FROM search WHERE ファイル名 = '" & Left(file, 2) & "' and ピン数 = '" & Pin & "' and シンボル名1= '" & Symbol & "';"
    Debug.Print strSQL
    Set rs = dbsCONV.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)　***ここでエラーになる***
    
    'mdb検索
    sFlagmdb = 0
    With rs
        Do While Not .EOF
            If .EOF = True Then
                sFlagmdb = 0
                Exit Do
            Else
                sFlagmdb = 1
                Debug.Print rs![ファイル名] & " " & rs![ピン数] & " " & rs![シンボル名1]
                .MoveNext
            End If
        Loop
    End With

> てゆーかファイル名の有無を調べるだけならwhere条件にピン数とシンボル名を入れちゃマズイっしょf^_^;

説明不足ですみません。
ファイル名、ピン数、シンボル名全てが一致という条件で、検索したいので。

★ - mdb検索方法 - ももたろう 09/14-11:15No.420
• Re: mdb検索方法 - nanashi 09/14-12:01 No.422
  • Re^2: mdb検索方法 - ももたろう 09/14-12:50 No.423
    • Re^3: mdb検索方法 - nanashi 09/14-14:11 No.425
      • Re^4: mdb検索方法 - ももたろう 09/14-15:22 No.427