04/07/26 16:36
Public Sub New(ByVal idcarF1 As Integer)
MyBase.New()
InitializeComponent()
idcarF2 = idcarF1
Dim filterIdcarF2 As integer
'Dim filterIdcarF3 As integer
filterIdcarF2 = idcarF2
'filterIdcarF3 = 5
UpdateDatabase()
'SQL文
SqlDataAdapter1.SelectCommand.CommandText = "SELECT * FROM excol_data " _
& "WHERE car_id LIKE '" & filterIdcarF2 & "'"
'データセットを初期化して、データーアダプターからデーターを読み込む
DsExcol1.Clear()
SqlDataAdapter1.Fill(DsExcol1)
End Sub
ウィンドウを開くと同時にfilterIdcarF2を使って、データーを絞り込むという作業を作りました。さらに
”filterIdcarF3 = 5"で"excol_cd"の値が"5"のものを絞り込みたいのですが、ＳＱＬ文の所の書き方
をどなたか教えていただけないでしょうか？