Access VBA フォーム作成 検索条件 前方一致のwhere句

Question

よろしくお願いいたします。

フォーム画面にボタンとテキストボックスを用意して、
'invoiceNo と'invoiceDisplay としたテキストボックスに検索条件を入力し、
ボタンを押下すると、accessで作ったテーブル（AccessTable ）のデータ（接続文字列）を使って、
SQLサーバにあるテーブル（tbmCountry）の内容を取得し、フォーム上のリストに反映されるようにしています。

テキストボックスのいずれかに値が入っていれば、前方一致のWHERE句を作って件数を表示したいのですが、
私が書いたSQL文では実行されません。
※CountryCodeは、key列です。

誤り箇所が不明のため、有職者の方にご教示いただきたく存じます。

'#####################################################################
'# Name         : データ取得_Click
'# Description  : 入力の画面に対し管理システムより指定したデータの取込 
'#####################################################################
Private Sub データ取得_Click()
      '  On Error GoTo Err_データ取得_Click
 
 '*****DB接続変数定義*****
 Dim DB                 As Database
 Dim q1                 As Recordset, q2 As Recordset
 Dim SQLCommand         As String   'データベース接続文字列を取得するSQL文
 Dim strConnection      As String       'データベース接続文字列
 Dim strCount           As Integer      'データ件数
 Dim objCon             As New ADODB.Connection
 Dim objRs              As New ADODB.Recordset
 Dim dbCom              As ADODB.Command
    
    Set DB = CurrentDb()
    
    'データベース接続文字列を取得するSQL文
    SQLCommand = "SELECT ID, Value FROM AccessTable WHERE ID = 1"
    Set q1 = DB.OpenRecordset(SQLCommand)
    
    '取得したデータベース接続文字列
    strConnection = q1!Value
    
    
    'データ件数を取得するSQL文（500という数字が入っています）
    SQLCommand = "SELECT ID, Value FROM AccessTable WHERE ID = 2"
    Set q2 = DB.OpenRecordset(SQLCommand)
    
    '取得したデータ件数
    strCount = q2!Value
                 
                                                       
 '*****フォーム変数定義*****
  Dim invNo     As Variant         'invoiceNo
  Dim invDisp   As Variant         'invoiceDisplay
 
 
    invNo = Me.invoiceNo
    invDisp = Me.invoiceDisplay
    
   '検索条件が未入力の場合
   If IsNull(invNo) And IsNull(invDisp) Then
        MsgBox "検索条件を指定してください"
       Exit Sub
   End If
   
   'テキストボックスに値が両方、またはいずれかが入力されている場合
   
   If Not IsNull(invNo) Or Not IsNull(invDisp) Then
                        
           
           '接続文字列を取得しSQLサーバーへ接続
           objCon.ConnectionString = strConnection
        
           objCon.Open
           
           //ここでエラー 記述の仕方が不明
          objRs.Open "SELECT COUNT CountryCode, FROM tbmCountry WHERE  CountryCode LIKE '_%' ", objCon, adOpenKeyset, adLockOptimistic
           
           
           
   
           objRs.Close
           objCon.Close

           Set objRs = Nothing
           Set objCon = Nothing
           
           

End If

    

Answer 1

「SELECT COUNT CountryCode, FROM tbmCountry 」
↑カンマいらんすね。

「WHERE CountryCode LIKE '%'」
↑なにの前方一致にしたいのかわかりませぬ。
たとえば「先頭文字がAのデータ」としたいなら「where countrycode like 'A%'」とかになりますが。
「」（アンダーバー」）は普通のSQLなら「任意の一文字」を意味しますよ。

Comments

[nekomura]

tkturbo様
いつもありがとうございます。
ご指摘のとおり、SQL文を
’’’　 　 strSql = "SELECT COUNT CountryCode FROM tbmCountry WHERE CountryCode LIKE　'A%' " objCon, adOpenKeyset, adLockOptimistic　’’’
と書き直してみたのですが、コンパイルエラーとなります。
どこかおかしいところがあれば、再度ご教示いただけませんでしょうか。

よろしくお願いいたします。

[tkturbo]

「Set objRs = objCon.Execute (SQL文)」とかじゃだめですかね？

[nekomura]

tkturbo様
一旦、エラーは出なくなりました。
ありがとうございます。

また、次の問題にぶつかってしまった為、つぎの質問に移ります。
どぞよろしくお願いいたします。

Answer 2

まずSQL Management Studioなどのビジュアルなクエリビルダで意図するクエリを作ってからの方が近道だと思いますよ

あとどこまでがSQL文だとか、VBAでの値の渡し方を根本的に間違えてるんじゃないですか？

strSql = "SELECT COUNT CountryCode FROM tbmCountry WHERE CountryCode LIKE 'A%' "
objRs.Open strSql, objCon, adOpenKeyset, adLockOptimistic

※SQL文が正しいかはご自分で確認してください

Comments

[nekomura]

dojikko様
いつもありがとうございます。
はい、アドバイスどおり先にクエリを作ってから試してみようと思います。

>あとどこまでがSQL文だとか、VBAでの値の渡し方を根本的に間違えてるんじゃないですか？
はい、やりたいことは頭にあるのですが、細かい文法がわからずエラーばかり出て根本的に解決できません。
なにかご教示いただければ幸いです。