Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2377 / 9994

←次へ　｜　前へ→


	【10891】ADOでCSVの取り込み時のフィルタで"種類が一致しません"

ON - 08/12/24(水) 17:56 -


	引用なし

	パスワード

よろしくお願い致します

Public Sub Get_Csv()

　　Dim dbCon As ADODB.Connection
　　Dim dbRes As ADODB.Recordset
　　Dim COL As Long
　　Dim strSQL As String
　　Dim MyRow As Long
　　
　　Dim tg_rec As Variant
　　Dim I As Long
　　Dim J As Long
　　
　　　　
　　Set dbCon = New ADODB.Connection

　　With dbCon
　　　　.Provider = "Microsoft.Jet.OLEDB.4.0"
　　　　'.Properties("Extended Properties") = "Text"
　　　　.Properties("Extended Properties") = "Text;FMT=Delimited;HDR=yes;"
　　　　.Open CurrentProject.Path & "\"
　　End With

　　strSQL = "SELECT * FROM hoge.csv"

　　Set dbRes = New ADODB.Recordset

　　'dbRes.Open strSQL, dbCon, adOpenDynamic, adLockOptimistic, adCmdText
　　dbRes.Open strSQL, dbCon, adOpenKeyset, adLockOptimistic, adCmdText

　　dbRes.Filter = "[F0str] = '001'"　←ココ

で
実行時エラー '-2147352571 (80020005)':
種類が一致しません。

どう記述すればいいでしょうか

アドバイスよろしくお願い致します

2,790 hits

▼

【10891】ADOでCSVの取り込み時のフィルタで"種類が一致しません" ON 08/12/24(水) 17:56