怎么把combo和数据库查询联系起来？

[lesfdcp]

怎么样在在combo里选择数据项，然后就能查询出其他相关数据项？
怎么设定combo和sql查询语句？

[chao778899]

Private Sub Combo1_Click()
Dim str As String
str = Combo1.Text
-----
rs.open "select * from table where ziduan='" + str + "'"
----
End Sub

[lihonggen0]

Rs.CursorLocation = adUseClient
Rs.Open "select * from employees where employeesname='" & Combo1.Text & "'", CN, adOpenDynamic, adLockBatchOptimistic

[lesfdcp]

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "F:\vb学习\09800308\09800308\studentSelectSystem.mdb"
rs.Open "student", cn
Do While rs.EOF = False
ComboStuId.AddItem rs!stuId
rs.MoveNext
Loop
End Sub

Private Sub ComboStuId_Click()
Dim str As String
str = ComboStuId.Text
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim find_str As String



find_str = "slect * from student where stuId='" + str + "'"



Set cn1 = New ADODB.Connection
cn1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0"
cn1.Open "F:\vb学习\09800308\09800308\studentSelectSystem.mdb"
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open find_str, cn1, adOpenDynamic

If rs1.EOF And rs1.BOF Then
MsgBox "Invalid stuId", vbOKOnly, "stop!"
Exit Sub
End If

'ComboStuId.Text = rs1!stuId
Text1.Text = rs1!department
Text2.Text = rs1!nativePlace
Text3.Text = rs1!stuName
Text4.Text = rs1!Class
Text5.Text = rs1!polity
cn1.Close
End Sub

总是说没有有效的sql语句！
要不要在Private Sub ComboStuId_Click()
或者在Private Sub cmdOk_Click()
中添加代码？

[sbfinger]

把 rs.Open "student", cn改为rs.open"select * from student",cn试试。

[vv1vv]

Private Sub Combo1_Click()
Dim adocnn As new adodb.connection
adocnn.open"………………"
adocnn.CursorLocation =adUseClient
dim adors as new adodb.recordset

rs.open "select * from table where ziduan='" & trim(combo1) & "'"
if rs.eof then
msgbox"没有该相记录！"
exit sub
else
set datagrid1.datasouce=adors
end if
End Sub
试试会可以的！！