検索処理のテスト

  検索ボタン



検索を実行するボタンを作成します ( btn検索実行 )。そして、以下のようなイベントを作成して下さい

  
' *********************************************************
' 検索実行
' *********************************************************
Private Sub btn検索実行_Click()

    Dim strQuery
    
    strQuery = "select 郵便番号,都道府県,市区町村,町域 "
    strQuery = strQuery & " from 郵便番号マスタ"
    strQuery = strQuery & " where 町域 like "
    strQuery = strQuery & " '*大*'"
    
    Me.lst郵便番号.RowSource = strQuery

End Sub
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ