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

Question

我一直在寻找使用 VB6.0 连接到数据库(MS ACCESS 2007)的正确方法......问题是它说了一个错误“INSERT INTO STATEMENT 中的语法错误”

声明代码:

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

这是按钮代码:

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

非常感谢您的帮助，因为明天需要这个学校项目。许多个夜晚失眠。谢谢

Answer 1

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

我的意思是您正在尝试将 INSERT INTO 插入 9 列(CourseCode、Units、Days、Time、RoomNumber、Instructor、Course、YearLevel、Term)，但是，您输入了 10 个值() .txtCurDays 重复。