VB ado 操作数据库问题

Question

使用ado控件和ado对象一起操作数据库，对数据记录集进行更新（添加，删除）都行，但是一旦进行刷新（requery）操作，所有的记录都回到原样，即更新失败。一下是代码，请高手指出问题所在
Private Sub add_cmd_Click(Index As Integer)
    Dim flag As String
    If Index = 0 Then
        Adodc1.Recordset.AddNew
    ElseIf Index = 1 Then
        Adodc1.Recordset.Save
    ElseIf Index = 2 Then
        Adodc1.Recordset.Update
    ElseIf Index = 3 Then
        flag = MsgBox("确实要删除", vbOKCancel)
        If flag = vbOK Then
            Adodc1.Recordset.Delete
        End If
    ElseIf Index = 4 Then
        If Adodc1.Recordset.BOF = False Then
            Adodc1.Recordset.MovePrevious
        End If
    ElseIf Index = 5 Then
        If Adodc1.Recordset.EOF = False Then
            Adodc1.Recordset.MoveNext
        End If
    ElseIf Index = 6 Then
        Adodc1.Recordset.MoveLast
    Else
        Adodc1.Recordset.Requery
    End If
End Sub

Answer 1

调用Adodc1.Recordset.Update进行更新，然后再使用Requery

Answer 2

我是这样做的呀， 用的控件数组，当点击更新按钮即index=2的这个按钮 进行update，但是一刷新  就又还原了，数据库根本就没有更新，只是记录集更新了 

Answer 3

Dim AddUpd$, flag$
Private Sub add_cmd_Click(Index As Integer)
   Select Case Index
      Case 0
         AddUpd = "A"
      Case 1
         If AddUpd = "A" Then Adodc1.Recordset.AddNew
         '¸üÐÂÄãµÄÊý¾Ý
         'For i = 0 To 5
         '   If Text1(i).Text <> "" Then Adodc1.Recordset.Fields(i) = Text1(i).Text
         'Next i
         Adodc1.Recordset.Update
      Case 2
         AddUpd = "U"
      Case 3
         flag = MsgBox("ȷʵҪɾ³ý", vbOKCancel)
         If flag = vbOK Then Adodc1.Recordset.Delete
      Case 4
         If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious
         If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
      Case 5
         If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext
         If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
      Case 6
         Adodc1.Recordset.MoveLast
      Case Else
         Adodc1.Recordset.Requery
    End If
End Sub

Answer 4

Dim AddUpd$, flag$
Private Sub add_cmd_Click(Index As Integer)
   Select Case Index
      Case 0
         AddUpd = "A"
      Case 1
         If AddUpd = "A" Then Adodc1.Recordset.AddNew
         '更新你的数据
         'For i = 0 To 5
         '   If Text1(i).Text <> "" Then Adodc1.Recordset.Fields(i) = Text1(i).Text
         'Next i
         Adodc1.Recordset.Update
      Case 2
         AddUpd = "U"
      Case 3
         flag = MsgBox("确实要删除", vbOKCancel)
         If flag = vbOK Then Adodc1.Recordset.Delete
      Case 4
         If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious
         If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
      Case 5
         If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext
         If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
      Case 6
         Adodc1.Recordset.MoveLast
      Case Else
         Adodc1.Recordset.Requery
    End Select
End Sub

Answer 5

刷新（requery）操作 ?? 你为何要用这个?无法理解上面代码没有问题的.你是用DataGrid显示数据的话,在Adodc1.Recordset.Update 下面加上两行就刷新了Set DataGrid1.DataSource = Nothing 
Set DataGrid1.DataSource = Adodc1

Answer 6

禁止捆绑写法，用Insert/Delete/Update等语句进行吧

Answer 7

Adodc1.Recordset.UpdateBatch adAffectAll