Private Sub cmdYK_Click()
lst1.Clear
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim c As String
c = K1B
cn.Open "provider=microsoft.jet.oledb.4.0; data source=D:\VB\销售软件\data\1.mdb"
Dim rs As ADODB.Recordset
Dim sql As String
c=K1B
sql = "select * from 遥控代换表 where 遥控型号=c"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
Label2.Caption = rs("电视品牌")
Label3.Caption = rs("遥控芯片")
Label4.Caption = rs("红外系统码")
Do While Not rs.EOF
lst1.AddItem rs("遥控型号")
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
我就是想通过变量来查询,也就是说我想要C按我需要是输入而变的
现在就随便搞个C,进去但后面SQL的值就不一样了,不能查询了,