sql - 在 VBA 中将记录集分配给变量
问题描述
我正在尝试从记录集中分配变量值并将值插入 Access 表中。我还需要在插入之前清除表格并插入新的数据集。记录集来自 SQL Server 中的存储过程。以下似乎不起作用:
Dim conn As ADODB.Connection, cmd As ADODB.Command, rst As
ADODB.Recordset
Dim Itm As String, JobNo As Integer, RevNo As Integer, DUStatus As Date, LDUStatus As Date, UTrigger As String
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider='sqloledb';Data Source=SERVER;Initial Catalog='Database';Integrated Security='SSPI';"
conn.Open
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = conn
.CommandText = "rg_ItemsQuerySP"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@JobNo", adInteger, adParamInput, , TempJobNo)
.Parameters.Append .CreateParameter("@RevNo", adInteger, adParamInput, , TempRevNo)
End With
Set rst = cmd.Execute
If rst.EOF Then Exit Function
rst.MoveLast
rst.MoveFirst
With rst
Do While Not .EOF
Itm = rst.Fields("Item")
JobNo = rst.Fields("Job No")
RevNo = rst.Fields("Revision No")
DUStatus = rst.Fields("DateUpdatedStatus")
LDUStatus = rst.Fields("LastDateUpdatedStatus")
UTrigger = rst.Fields("UpdateTrigger")
DoCmd.RunSQL ("INSERT INTO ItemsQuerySP_Temp values " & Itm & ", " & JobNo & ", " & RevNo & ", " & DUStatus & ", " & LDUStatus & ", " & UTrigger & ";")
rst.MoveNext
Loop
End With
conn.Close
Set conn = Nothing
解决方案
可能您的问题是字符串变量周围缺少引号,这会引发 SQL 错误。由于您使用 ADO 参数,因此请继续通过QueryDef使用参数,避免字符串连接(即 & 符号)或标点符号(即引号):
SQL (以下另存为 MS Access 保存的查询,根据需要调整类型:Text
、、、Long
等Double
)
PARAMETERS PrmItm Text, PrmJobNo Text, PrmRevNo Text,
PrmDUStatus Text, PrmLDUStatus Text, PrmUTrigger Text;
INSERT INTO ItemsQuerySP_Temp
VALUES(PrmItm, PrmJobNo, PrmRevNo,
PrmDUStatus, PrmLDUStatus, PrmUTrigger)
VBA (相关部分)
Dim qdef AS QueryDef
' ... same as above...
Set qdef = CurrentDb.QueryDefs("mySavedQuery")
With rst
Do While Not .EOF
' BIND PARAMETERS
qdef!PrmItm = rst.Fields("Item")
qdef!PrmJobNo = rst.Fields("Job No")
qdef!PrmRevNo = rst.Fields("Revision No")
qdef!PrmDUStatus= rst.Fields("DateUpdatedStatus")
qdef!PrmLDUStatus = rst.Fields("LastDateUpdatedStatus")
qdef!PrmUTrigger = rst.Fields("UpdateTrigger")
' EXECUTE ACTION
qdef.Execute dbFailOnError
.MoveNext
Loop
End With
Set qdef = Nothing
推荐阅读
- javascript - 如何在angular 2材料表的搜索结果中加粗搜索模式
- python - Django Rest Framework - 在空值上调用 serializer.to_internal_value
- vba - 如何将结果集中的值分配给表单中的字段?
- r - 在r中将标识符变量从一个数据集中拉到另一个数据集中
- java - 使用 Java 的 Domino 数据库连接问题
- python - 在 Pandas 数据框中查找符合特定条件的数字序列
- python - 最多期望输入 1 个参数,得到 2 个
- jquery - css left 导致元素显示为内联
- c++ - 有人可以解释一下这段代码吗?它给出了我们输入的数字的倒数
- php - 如何打破 sql 查询无限循环