VB6 ADO INSERT 将 TEXT 字段插入 .MDB

Question

我的示例 VB6 程序：

Dim conn As New connection
conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\adatabase.mdb;"
conn.Execute "INSERT INTO atable (afield) VALUES (""some text"")"
End Sub

（“adatabase.mdb”包含一个表“atable”，其中一个字段“afield”类型为“Text”，长度为 255。Access 2002，Access 文件格式 2000。VB6 参考包括“Microsoft ActiveX Data Objects 2.8 Library”。）

conn.Execute 获取：

运行时错误 '-2147217904 (80040e10' [Microsoft][ODBC Access Driver] 参数太少。预期为 1。

查询

INSERT INTO atable (afield) VALUES ("some text")

直接在Access中运行没有任何问题。

Answer 1

不应该是这样的：

conn.Execute "INSERT INTO atable (afield) VALUES ("""some text""")"

即需要双引号吗？

更新：或者如发帖者所说，使用单引号来引用文本。

或者更好的是，使用参数化查询：

Dim Conn1 As ADODB.Connection
Dim Cmd1 As ADODB.Command
Dim Param1 As ADODB.Parameter
Dim Rs1 As ADODB.Recordset

' Create and Open Connection Object.
Set Conn1 = New ADODB.Connection
Conn1.ConnectionString = "DSN=Biblio;UID=admin;PWD=;"
Conn1.Open

' Create Command Object.
Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "SELECT * FROM Authors WHERE AU_ID < ?"

' Create Parameter Object.
Set Param1 = Cmd1.CreateParameter(, adInteger, adParamInput, 5)
Param1.Value = 5
Cmd1.Parameters.Append Param1
Set Param1 = Nothing

' Open Recordset Object.
Set Rs1 = Cmd1.Execute()