現在已經用command1實作了將資料連接上并顯示在datagrid1中，并用Command2實作了查詢text2中的內容，并將查詢結果顯示在datagrid1中。我想問大高手們，我的第二段代碼是不是太復雜了，難道每次操作（查詢添加等）都要把這些寫一遍么？謝謝，大家給個詳細的答案，最后是代碼，非常感謝！！！
Private Sub Command1_Click()
Dim Cn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim SqlStr As String
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False"
SqlStr = "Select * From 表1"
Rst.CursorLocation = adUseClient
Rst.Open SqlStr, Cn, adOpenDynamic, adLockOptimistic, adCmdText '打開記錄集
Set DataGrid1.DataSource = Rst '給DataGrid修改資料源
End Sub
Private Sub Command2_Click()
Dim Cn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim SqlStr As String
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False"
SqlStr = "Select * From 表1 where 姓名='" & Text2.Text & "'"
Rst.CursorLocation = adUseClient
Rst.Open SqlStr, Cn, adOpenDynamic, adLockOptimistic, adCmdText '打開記錄集
Set DataGrid1.DataSource = Rst '給DataGrid修改資料源
End Sub
uj5u.com熱心網友回復：
SqlStr = "Select * From 表1 where 姓名='" & Text2.Text & "'"把包括姓名的所有欄位放到一個 combobox中。
代碼修改為：
SqlStr = "Select * From 表1 where "& combo1.text &"='" & Text2.Text & "'"
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130479.html