ADO连Access 数据库无法更新

Question

Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open "select * from stu where 字段1= '" & "text1" & "'", cnnstr    rst.Update
    rst.Fields("字段1") = Me.Text1.Text
    rst.Fields("字段2") = Me.Text2.Text
    rst.Fields("字段3") = Me.Text3.Text
    rst.Fields("字段4") = Me.Text4.Text
    rst.Fields("字段5") = Me.Text5.Text
    rst.UpdateBatch adAffectAllChapters   Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

Answer 1

updata不返回记录，所以Set rsAdd = connAdd.Execute(str)是无效的.
你到数据看看有没有更改.