正确使用CurrentProject.Connection进行ADODB.Connection?
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了正确使用CurrentProject.Connection进行ADODB.Connection?相关的知识,希望对你有一定的参考价值。
在Access VBA中,我需要使用参数进行数据库插入/更新,因此我开始使用ADODB命令。
要插入的数据库始终是当前数据库,因此我使用CurrentProject.Connection。
一切都可以在不使用conn的情况下工作。如果我尝试打开它,它将返回错误3705:当对象打开时不允许操作。
我错过了一些会达到连接限制的重要内容吗?有人可以提出更好的方法吗?
Dim sql As String
sql = "INSERT INTO "
sql = sql + "[table]"
sql = sql + "(field1,field2)"
sql = sql + "VALUES (@field1,@field2)"
Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = conn
.CommandType = adCmdText
.CommandText = sql
.Parameters.Append .CreateParameter("@field1", adVarChar, adParamInput, 255, x)
.Parameters.Append .CreateParameter("@field2", adVarChar, adParamInput, 255, y)
.Execute
End With
答案
您是否愿意使用DAO?你可以用这个:
Dim q As DAO.QueryDef
Dim strSQL As String
strSQL = "INSERT INTO table1 " & _
"(City, Province) " & _
"Values([pCity], [pProvince])"
Set q = CurrentDb.CreateQueryDef("", strSQL)
q.Parameters("pCity") = "Edmonton"
q.Parameters("pProvince") = "Alberta"
q.Execute
以上是关于正确使用CurrentProject.Connection进行ADODB.Connection?的主要内容,如果未能解决你的问题,请参考以下文章
如何正确使用 Composer 安装 Laravel 扩展包
如何正确使用 Composer 安装 Laravel 扩展包