用sql语句更新了ACCESS的数据库，然后立即刷新界面。为什么不能立即反应出修改的内

uaiu

我是第一次做ACCESS的程序，还请各位帮个忙看看吧。我怀疑是不是和缓存啥的有关系[em03]

[此贴子已经被作者于2006-5-18 12:48:49编辑过]

zyz218

把例子传上来，大家帮你看看！

一点通

电脑的整体性能会有影响的

uaiu

文件我上传了，大家帮忙看看吧。

运行后点select all按钮，然后表格左面的选择框应该都被选择到。

代码是这样的：

Private Sub btnSelectAll_Click()
On Error GoTo DBError
    Dim cConnection As Connection
    Dim strSql As String
    Dim cmd As ADODB.Command

    'open database
    Set cConnection = New Connection
    cConnection.CursorLocation = adUseClient
    cConnection.Open "ROVIDER = Microsoft.Jet.OLEDB.4.0;Data Source =" & CurrentDb.name
   
'    cConnection.BeginTrans
   
    strSql = "UPDATE ITFDATA01 SET ITFDATA01.[Select] = Yes"
   
    'set command
    Set cmd = New Command
    Set cmd.ActiveConnection = cConnection
    cmd.CommandText = strSql
      
    'run command
    ExecuteCommand cmd
   
    'close connection
    cConnection.Close   
    Set cConnection = Nothing

    Me.Requery

   
    Exit Sub

DBError:
    MsgBox "Error!" & Err.Description & Err.HelpContext
End Sub



Public Function ExecuteCommand(cmdTemp As ADODB.Command) As Boolean

   Dim errLoop As Error
   
   
   On Error GoTo Err_Execute
   cmdTemp.Execute
   

   ExecuteCommand = True
   Exit Function
Err_Execute:
   MsgBox "DB Command Error!" & Err.Description & Err.HelpContext
   ExecuteCommand = False
End Function

情比金坚

什么引用丢失，不知道你原来用的是什么版本？

你真不怕麻烦啊，建一个更新查询，执行这个查询马上不就行了？？