ADO 英語を含むレコードを抽出したい

質問

テーブルに保存されてるフィールド1の英語が含まれているレコード（ABC株式会社　など）を抽出したいのですが
方法がわかりません。
*[a-z]* を使うんだなと思いますが、フィルタのかけかたがわかりません。

Sub test()
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ファイル名
RS.Open "テーブル1", CN, adOpenStatic, adLockOptimistic
RS.Filter = "フィールド1 = " '←ここをどうすればいいでしょうか？
RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing
End Sub

サンプルを作ってみたのですが
ご教示頂けないでしょうか？
よろしくお願い致します。

回答No.4

piroin654 · ベストアンサー

No1～No3です。
rs.Filter = "テーブル1 Like '%[A-Z]%'"
rs.Filter = "テーブル1 Like '*[A-Z]*'"

はサポートしていないようです。

rs.Filter = "テーブル1 Like 'k%'"

のように、条件が具体的な文字ならば
ヒットします。

したがって、No3のようにレコードセットを
とってくるときからフィルタをかけておく
必要があります。

DAOならば可能ですが。

お礼

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

回答No.3

piroin654

SQL文からレコードセットを取る。

Sub test()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM テーブル1 WHERE フィールド1 Like '%[A-Z]%'", cn, adOpenStatic, adLockOptimistic

MsgBox rs.RecordCount

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

お礼

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

回答No.2

piroin654

クエリを作成して、抽出したいフィールドの
抽出条件に、

Like "*[A-Z]*"

としてみてください。わざわざコードからする必要が
あるのかわかりませんが。

お礼

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

回答No.1

piroin654

Like "*[A-Z]*"

お礼

早速のご回答ありがとうございました。

RS.Filter = "フィールド1 = Like " * [A-Z] * "
ということでしょうか？
これだと、　[A-Z]　の部分が、
「指定した名前では定義されていません」とエラーになってしまいます。