抽出

スポンサーリンク
スポンサーリンク

レコードセットにフィルタをかける

Sub 抽出()
'Filter プロパティを使って抽出する
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim FileName As String

FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
myRS.Open "伝票一覧", myCon, adOpenForwardOnly, adLockOptimistic

'「得意先」が「小料理ひろ」のレコードのみ抽出して転記
myRS.Filter = "得意先 = '小料理ひろ'"
Range("A1").CopyFromRecordset myRS

'「受注日」が「2007年3月1日〜3月5日」のレコードのみ抽出して転記
myRS.Filter = "受注日 >= #2007/03/01# And 受注日 <= #2007/03/05#"
Range("G1").CopyFromRecordset myRS

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub

レコードを抽出する
Recordset オブジェクト.Filter = 検索文字列

「伝票一覧」テーブル

実行結果

スポンサーリンク
シェアする
スポンサーリンク
あんとんさんち 覚え書き