这是我的代码,大家帮忙分析下:
Private Sub Form_Load()
Con1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\学生学籍管理.mdb;Mode=ReadWrite;Persist Security Info=False"
Con1.Open
Rst.CursorLocation = adUseClient
End Sub
Private Sub cmdQuery_Click()
SqlStr = "select * from 学生学籍表 where XM like '%" & Trim(txt_XM.Text) & "%'"
If Len(aaa) <> 0 Then Rst.Close
Rst.Open SqlStr, Con1, adOpenDynamic, adLockOptimistic
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rst
DataGrid1.Refresh
aaa = Rst!XM
End Sub
Private Sub cmdUpdate_Click()
End Sub
现在是我相在cmdUpddate中加个语句,使得在DataGrid1里修改的数据写入数据库,如何做?