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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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 SubPrivate 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()
中添加代码？

Answer 4

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

Answer 5

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
试试会可以的！！