Question

好的我正在尝试以编程方式为访问数据库生成记录，但它会像宏一样显示，并且所讨论的代码行显示为红色。我做错了什么？

Sub arrayData()
Dim custnames() As Varient
Dim num As Integer, dbs As Database, InsertRecord As String
Dim CustId As Integer, num1 As Integer
Dim CustName As String
Set dbs = CurrentDb()
CustId = 0
For num1 = 0 To 9
CustId = CustId + 1
custnames = Array("Peter", "Mary", "Frank", "Ian", "Ron", "Natalie","Radhu", "Jat", "David")
num = Int((9 - 0 + 1) * Rnd + 0)
// ERROR OCCURS ON THE LINE BELOW.
InsertRecord = "insert into CUSTOMER(CustNo,CustFName)values("&"'"&CustId&"'"&","&"'"&CustName&"'"&")"
dbs.Execute InsertRecord
Debug.Print CustId; CustName
End Sub

编辑：添加＆amp;在CustName之后

Answer 1

尝试编写可读的字符串连接。而且，由于CustId是数字，没有引号：

InsertRecord = "insert into CUSTOMER (CustNo,CustFName) values (" & CustId & ",'" & CustName & "')"

在Windows应用程序的Visual Basic上作为宏运行 - Access数据库

1 个答案: