在Visual Basic for Windows应用程序上作为宏运行-Access数据库 [英] Runs as a macro on visual basic for windows application - Access Database

问题描述

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

Ok I am trying to programmatically generate records for an access database, but it keeps displaying like a macro and the line of code in question shows up in red. What am I doing wrong?

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

编辑：已添加&在CustName之后

Added & after CustName

推荐答案

尝试编写可读的字符串连接。并且，由于CustId是数字，所以不加引号：

Try to write readable string concatenations. And, as CustId is numeric, no quotes:

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

这篇关于在Visual Basic for Windows应用程序上作为宏运行-Access数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！