怎样通过ADO中调用本地ACCESS数据库？

SLLSX977824

请问在ACCESS中怎样通过ADO调用本ACCSEE中的数据库表呢？联接字符串是什么？

Dim cn As New ADODB.Connection '定义一个Ado连接

Dim cmd As New ADODB.Command

Set cn = CurrentProject.Connection '定义cn等于当前连接

cn.Open

Set cmd.ActiveConnection = cn

cmd.CommandText = "update 资金发放表 set  实发金额 =  1000  where 姓名 = '王五' "

cn.Execute

我执行以上代码时，提示“对象打开时，不允许操作”。

请问问题出在哪里？应怎样解决？

zhuyiwen

更正你的错误:Dim cn As ADODB.Connection ' 定义一个Ado连接, 不需要 NEW

Dim cmd As New ADODB.CommandSet cn = CurrentProject.Connection ' 设置对当前工程连接的引用

' cn.Open 连接本身是打开的, 不需要再次打开

Set cmd.ActiveConnection = cn

cmd.CommandText = "update 资金发放表 set  实发金额 =  1000  where 姓名 = '王五' "cn.Execute

其实更简单的方法是:CurrentProject.Connection.Execute "update 资金发放表 set  实发金额 =  1000  where 姓名 = '王五' "

SLLSX977824

太感谢了！