Dim Cn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Private Sub Form_Load()‘加載時顯示表格
Dim SqlStr As String
SqlStr = "Select * From 表1"
Query (SqlStr)
End Sub
Private Sub Query(strInput As String)
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False"
Rst.CursorLocation = adUseClient
Rst.Open strInput, Cn, adOpenDynamic, adLockOptimistic, adCmdText '打開記錄集
Set DataGrid1.DataSource = Rst '給DataGrid修改資料源
End Sub
Private Sub Command2_Click()’查詢
Dim SqlStr As String
SqlStr = "Select * From 表1 where 姓名='" & Text2.Text & "'"
Query (SqlStr)
End Sub
Private Sub Command4_Click()‘添加
Rst.AddNew
End Sub
Private Sub Command4_Click()‘添加
Rst.delete
End Sub
以上程式能實作添加、洗掉等，但是不能實作查詢，請各位幫我修改一下，謝謝
uj5u.com熱心網友回復：
Private Sub Command2_Click()’查詢Dim SqlStr As String
SqlStr = "Select * From 表1 where 姓名='" & Text2.Text & "'"
Rst.Close
Cn.Close
Query (SqlStr)
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130500.html