VB更新数据库问题,,请高手

Question

相信很多人遇到过这种问题.
          是这样的我每次保存数据的时候都不能够实时更新,要关了再打开才可以,不知道是什么问题呢..?高手指点

Answer 1

rs.Open "cladv", SaveCon, adOpenStatic, adLockOptimistic, adCmdTable
    rs.AddNew
    rs!re_aut1 = Trim(txtAuto1.Text)
    rs!re_col = Trim(txtColor.Text)
    rs!re_stu = Trim(txtStuff.Text)
    rs!re_Adv = Trim(txtAdviceA.Text)
    rs!re_adv1 = Trim(txtAdviceB.Text)
    rs!re_adv2 = Trim(txtAdviceC.Text)
    rs!re_lat = Trim(txtType.Text)
    rs!re_lay = Trim(txtSet.Text)
    rs!re_data1 = Trim(Text1.Text)
    rs.Update
    rs.Requery
    MsgBox "保存成功", vbOKOnly + vbInformation, "提示"
    kong
    t_true
    disp2
    rs.Move (0)
    cmdfirst2.Enabled = True
    cmdPre2.Enabled = True
    cmdNext2.Enabled = True
    cmdLast2.Enabled = True
    cmdMake2.Enabled = True
    rs.Close
    Set rs = Nothing
    SaveCon.Close
    Set SaveCon = Nothing
    tt = True代码就是这样..不过怎样看都看不出来