请高手帮我编一个数据库关于修改的语句段updatecontrols的用法有会的吗？

[xinshou1979330]

我没用过这个方法请帮我编一个能执行的程序好吗？
谢谢

[KAIBate]

这个。。。你的问题我不大明白，能不能说详细点？

[daryl715]

修改一条记录
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

修改多条记录
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= '" & "高" & "'", cnnstr
Do Until rst.EOF
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
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close

[daryl715]

不好意思
没看清你的意图

[ryo2000]

updaterecord与updatecontrol是一起用的
updatecontrols 方法的功能是将当前记录的内容更新绑定的内容更新绑定编辑框的内容
不明是吗???书说的
我说的是UPDATE更新后只能修改不等回复,而用updaterecord把数据更新到库里
就能用updatecontrol把他改回来
大虾门有错请丙拉
不用客气