无法使用vb6将记录插入ms access 2007

Question

我一直在寻找使用VB6.0连接到数据库（MS ACCESS 2007）的正确方法...问题是它出现了“语法错误插入声明”的错误

声明代码：

Dim adoConn As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
Dim conStr, sqlStr As String

连接代码：

conStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source= " & App.Path &        "\curriculum.mdb;Persist Security Info=False"
Set adoConn = New ADODB.Connection
adoConn.ConnectionString = conStr
adoConn.Open

这是BUTTON代码：

sqlStr = "INSERT INTO cur(CourseCode, Units, Days, Time, RoomNumber, Instructor, Course, YearLevel, Term) VALUES ("

sqlStr = sqlStr & "'" & txtCurCourseCode.Text & "',"
sqlStr = sqlStr & "'" & txtCurUnits.Text & "',"
sqlStr = sqlStr & "'" & txtCurDays.Text & "',"
sqlStr = sqlStr & "'" & txtCurTime.Text & "',"
sqlStr = sqlStr & "'" & txtCurDays.Text & "',"
sqlStr = sqlStr & "'" & txtCurRoom.Text & "',"
sqlStr = sqlStr & "'" & txtCurInstructor.Text & "',"
sqlStr = sqlStr & "'" & cboCurCourse.Text & "',"
sqlStr = sqlStr & "'" & txtCurYearLevel.Text & "',"
sqlStr = sqlStr & "'" & txtCurTerm.Text & "')"
adoConn.Execute sqlStr

当我点击调试时，在这行代码中发现了错误：adoConn.Execute sqlStr

非常感谢您的帮助，因为明天需要这个学校项目。 多晚都没睡了。 thansk

Answer 1

不幸的是，您正在使用重复值..

我的意思是你正在尝试INSTO INSERT INTO到9列（CourseCode，Units，Days，Time，RoomNumber，Instructor，Course，YearLevel，Term），但是，你要放10个值（）。 txtCurDays是重复的。

Answer 2

该错误表示生成的SQL语句中包含错误。

在行上设置断点：

adoConn.Execute sqlStr

然后查看SQL查询（将其打印到即时窗口或在本地窗口中检查它）。 检查是否存在语法错误。

你的SQL中可能错误的是你的一个文本字段中的apastrophe（'）。 您需要确保在SQL语句中“转义”任何撇号。 您可以通过稍微调整代码来轻松完成此操作：

sqlStr = sqlStr & "'" & Replace(cboCurCourse.Text, "'", "''") & "',"

Answer 3

通过括在[]转义与保留字： TIME匹配的列名：

 sqlStr = "INSERT INTO cur(CourseCode, Units, Days, [Time], RoomNumber, Instructor, Course, YearLevel, Term) VALUES ("

您还应该使用参数化查询作为易受SQL注入攻击的查询。 （在其中一个文本框中运行'）