Office中国论坛/Access中国论坛

标题: 用sql语句更新了ACCESS的数据库，然后立即刷新界面。为什么不能立即反应出修改的内 [打印本页]

作者: uaiu 时间: 2006-5-18 18:42
标题: 用sql语句更新了ACCESS的数据库，然后立即刷新界面。为什么不能立即反应出修改的内
我是第一次做ACCESS的程序，还请各位帮个忙看看吧。我怀疑是不是和缓存啥的有关系[em03][attach]17859[/attach]

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

作者: zyz218 时间: 2006-5-18 19:12
把例子传上来，大家帮你看看！

作者: 一点通 时间: 2006-5-18 20:01
电脑的整体性能会有影响的

作者: uaiu 时间: 2006-5-18 20:52
文件我上传了，大家帮忙看看吧。

运行后点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

作者: 情比金坚 时间: 2006-5-18 22:11
什么引用丢失，不知道你原来用的是什么版本？

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)