Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
rs.Open "select * from 表 where 字段1 like '" & text1.text & "%' ", Conn
Combo1.Clear
Do Until rs.EOF
Combo1.AddItem rs("显示字段")
rs.MoveNext
Loop
End If
End Sub
1、
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
rs.Open "select * from 表 where 字段1 like '" & Combo1.Text & "%' ", Conn
Combo1.Clear
Do Until rs.EOF
Combo1.AddItem rs("显示字段")
rs.MoveNext
Loop
End If
End Sub
2、
dbcombo没用过
3、&是连接符,“”,‘’有时表示字符串