あいまい検索を試す

QueryTableで、あいまい検索を行ってみます。
あいまい検索は、SQL文で Where Like を使います。

Excel Tipsメニューに戻る

スポンサーリンク





実行画面

顧客管理テーブルを使います。

全レコードを抽出した結果です。
4件のレコードが表示されています。
全顧客のレコード

住所が「東京都」のレコードを抽出した結果です。
SELECT * FROM T_顧客マスター WHERE 住所 LIKE '東京都%'

3件になりました。
住所が東京都の顧客を抽出

スポンサーリンク



コード

Option Explicit
    
Private tqt As QueryTable

'QueryTableオブジェクトでデータベースを読み込む
Private Sub ExReadTable()
    Dim ssql As String
    
    'SQL文
    'ssql = "SELECT * FROM T_顧客マスター"
    ssql = "SELECT * FROM T_顧客マスター WHERE 住所 LIKE '東京都%'"
    
    'QueryTableオブジェクト
    Set tqt = ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=C:\MyHp\ExcelTips\顧客管理.accdb", Destination:=ActiveSheet.Range("B7"), SQL:=ssql)
        
    'プロパティをセット
    With tqt
        'クエリ名
        .Name = "顧客管理クエリ"
        'フィールド名を表示する
        .FieldNames = True
        'クエリ実行中もワークシートの操作が可能
        .BackgroundQuery = True
        'レコード数に合わせ行数を調整する
        .RefreshStyle = xlInsertDeleteCells
        '1分間隔で更新する
        .RefreshPeriod = 1
        'パスワード情報を保存
        .SavePassword = True
        'クエリテーブルをブックに保存する
        .SaveData = True
        '列幅を自動調整する
        .AdjustColumnWidth = True
        'クエリの実行
        .Refresh
    End With

End Sub

Private Sub CommandButton1_Click()
    'QueryTableオブジェクトでデータベースを読み込む
    ExReadTable
End Sub


Excel Tipsメニューに戻る




■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved