検索専用のフォーム画面があり、そこに選択項目が約20個用意されています。 そこから任意に選択した項目で検索します。 OR検索と、AND検索があります。 パラメタライズドクエリです。 Option Strict On設定です。 サーバー接続（SQL2000）、VB2010（Visual Studio 2010）使用です。
作成は、下記のようにしています。
１．OR検索：全項目を条件式に列挙し、選択していない項目は偽（False）になるようにしておきます。 これは、うまくいっています。
２．AND検索：全項目を条件式に書き、選択していない項目は真（True）になるようにしておきたいのですが、ここがうまくいきません。
以下は、AND検索でうまくいかないコードです、例えば下記のAND検索(1)のWhere以降の ”CustomerType=@CustomerType”（*）ですが、選択していないときはこれが真になるように設定したいのですが、@CustomerTypeに入れるものが分かりません。 とりあえず、全部（0 Or 1 Or 2 Or 3 Or 4 Or 9） を入れたり、Trueにしてみたりしました。 部分的にしか成功しません。 また、項目数を増やすと当然ながら正常動作しません。
また、この部分（*）をC(0),C(1),C(2),C(3)とするのが最善なのですが、これもうまくいきません（AND検索(2)）。--ここでは、パラメタライズドクエリは後回しにしています。
解決策を、教えてください。
よろしく、お願いします。
YKsaila
以下は、コードです、3個あります。 最後の一個はうまくいっています。 初めの2個がうまくいきません。
AND検索(1):
If RB_AND.Checked = True Then 'AND検索
sql.CommandText = "SELECT Client_ID, ClientCode, CustomerType, VenderType, Area_ID, Staff_ID, Country_ID, ShortName, KanaCode, CompanyName, " _
& "Address1, Address2, Tel_in, E_mail, ClientStaffName, ClientStaffKana, Memo, Goods FROM T_M_Client " _
& "Where CustomerType=@CustomerType and VenderType= @VenderType and ClientCode= @ClientCode and KanaCode Like @KanaCode "
----省略
& "ORDER BY T_M_Client.Client_ID"
sql.CommandType = CommandType.Text
If Me.CB_CustomerType.Text = "" OrElse Me.CB_CustomerType.Text Is Nothing Then
'sql.Parameters.AddWithValue("@CustomerType", 0 Or 1 Or 2 Or 3 Or 4 Or 9)
sql.Parameters.AddWithValue("@CustomerType", True) ’選択しないとき、真になるようにしておきます。
Else
sql.Parameters.AddWithValue("@CustomerType", Me.CB_CustomerType.SelectedValue) ’選択したときの、実際の値
End If
If Me.CB_VenderType.Text = "" OrElse Me.CB_VenderType.Text Is Nothing Then
'sql.Parameters.AddWithValue("@VenderType", 0 Or 1)
sql.Parameters.AddWithValue("@VenderType", True)
Else
sql.Parameters.AddWithValue("@VenderType", Me.CB_VenderType.SelectedValue)
End If
If Me.TX_ClientCode.Text = " " Or Me.TX_ClientCode.Text Is Nothing Then
sql.Parameters.AddWithValue("@ClientCode", True)
Else
sql.Parameters.AddWithValue("@ClientCode", Me.TX_ClientCode.Text)
End If
If Me.TX_KanaCode.Text = "" Or Me.TX_KanaCode.Text Is Nothing Then
sql.Parameters.AddWithValue("@KanaCode", True)
Else
sql.Parameters.AddWithValue("@KanaCode", "%" & Me.TX_KanaCode.Text & "%")
End If
adapter.SelectCommand = sql
adapter.Fill(dsCombo)
dtCombo = dsCombo.Tables(0)
'▼値の表示
DataGridView1.DataSource = dtCombo
'▼後処理
dtCombo.Dispose()
adapter.Dispose()
sql.Dispose()
Con.Dispose()
End If
AND検索(2):
If RB_AND.Checked = True Then 'AND検索
Dim C(20) As String ’Ｓｔｒｉｎｇがいけないのでしょうか？
’C(0),C(1)の定義をします。
Dim CID, VID As Integer
If Me.CB_CustomerType.Text = "" OrElse Me.CB_CustomerType.Text Is Nothing Then
C(0) = "1=1" ’選択しないとき、真になるようにしておきます。
Else
CID = DirectCast(Me.CB_CustomerType.SelectedValue, Integer)
C(0) = "CustomerType= " & CID & "" ’選択したときの、実際の値
End If
If Me.CB_VenderType.Text = "" OrElse Me.CB_VenderType.Text Is Nothing Then
C(1) = "1=1"
Else
VID = DirectCast(Me.CB_VenderType.SelectedValue, Integer)
C(1) = "VenderType= " & VID & ""
End If
If Me.TX_ClientCode.Text = " " Or Me.TX_ClientCode.Text Is Nothing Then
C(2)="1=1"
Else
C(2)= "KanaCode=Me.TX_ClientCode.Text"
End If
sql.CommandText = "SELECT Client_ID, ClientCode, CustomerType, VenderType, Area_ID, Staff_ID, Country_ID, ShortName, KanaCode, CompanyName, " _
& "Address1, Address2, Tel_in, E_mail, ClientStaffName, ClientStaffKana, Memo, Goods FROM T_M_Client " _
'----省略
(A) & "Where C(0) and C(1) and C(2) " 'エラーがでます（ 'C' は 関数名 として認識されません。）と表示。
sql.CommandType = CommandType.Text
adapter.SelectCommand = sql
adapter.Fill(dsCombo)
dtCombo = dsCombo.Tables(0)
'▼値の表示
DataGridView1.DataSource = dtCombo
'▼後処理
dtCombo.Dispose()
adapter.Dispose()
sql.Dispose()
Con.Dispose()
End If
(A)を下記のように変えますと、エラーでます。
Where C(0) & " And " & C(1) & " And " & C(2)
エラー：Option Strict On で 'String' から 'Long' への暗黙的な変換はできません。
ここまでが、うまくいっていないコードです（AND検索(1) ＆ AND検索(2)）
以降は、一応うまくいっている、OR検索のコードです：
'SQL認証接続
Dim St As String
Dim Con As New System.Data.SqlClient.SqlConnection
Dim sql As System.Data.SqlClient.SqlCommand
Dim ServerName As String = "*****" 'サーバー名(またはIPアドレス)
Dim UserID As String = "*****" 'ユーザーID
Dim Password As String = "*****" 'パスワード
Dim DatabaseName As String = "*****"
St = "Server=" & ServerName & ";"
St &= "User ID=" & UserID & ";"
St &= "Password=" & Password & ";"
St &= "Initial Catalog=" & DatabaseName
Con.ConnectionString = St
sql = Con.CreateCommand
Con.Open()
Dim adapter = New SqlClient.SqlDataAdapter()
Dim dsCombo = New DataSet
Dim dtCombo As New DataTable
'Try
If RB_OR.Checked = True Then ’OR検索
sql.CommandText = "SELECT Client_ID, ClientCode, CustomerType, VenderType, Area_ID, Staff_ID, Country_ID, ShortName, KanaCode, CompanyName, ZipCode, " _
& "Address1, Address2, Tel_in, E_mail, ClientStaffName, ClientStaffKana, Memo, Goods FROM T_M_Client " _
& "Where CustomerType= @CustomerType or VenderType= @VenderType or ClientCode= @ClientCode or KanaCode Like @KanaCode or Country_ID= @Country_ID " _
& "or Area_ID= @Area_ID or Staff_ID= @Staff_ID or ShortName Like @ShortName or CompanyName Like @CompanyName or ZipCode Like @ZipCode " _
& "or Address1 Like @Address1 or Address2 Like @Address2 or Tel_in= @Tel_in or E_mail Like @E_mail or ClientStaffName Like @ClientStaffName " _
& "or ClientStaffKana Like @ClientStaffKana or Memo Like @Memo or Goods Like @Goods or Client_ID=0 " _
& "ORDER BY T_M_Client.Client_ID"
sql.CommandType = CommandType.Text
If Me.CB_CustomerType.Text = "" Or Me.CB_CustomerType.Text Is Nothing Then
sql.Parameters.AddWithValue("@CustomerType", 999999) ’選択していないときは、明らかに偽となるようにしておく。
Else
sql.Parameters.AddWithValue("@CustomerType", Me.CB_CustomerType.SelectedValue) ’選択したときは、実際の値
End If
-----省略
adapter.SelectCommand = sql
adapter.Fill(dsCombo)
dtCombo = dsCombo.Tables(0)
'▼値の表示
DataGridView1.DataSource = dtCombo
'▼後処理
dtCombo.Dispose()
adapter.Dispose()
sql.Dispose()
Con.Dispose()
'Catch ex As Exception
'End Try
End Sub
