access数据插入时错误
Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source=E:\项目\基本数据库.mdb"
Dim myConn As OleDbConnection = New OleDbConnection(myConn1)
myConn.Open()
Dim strInsert As String = "INSERT INTO 已经发货表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) SELECT 基本数据表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) FROM 基本数据表1 WHERE DATEDIFF('d',基本数据表1.要求发货日期,基本数据表1.今天日期)<0"
Dim inst As OleDbCommand = New OleDbCommand(strInsert, myConn)
inst.ExecuteNonQuery()
myConn.Close()
错误提示：“System.Data.OleDb.OleDbException”类型的异常在 System.Data.dll 中发生，但未在用户代码中进行处理
其他信息: 查询值的数目与目标字段中的数目不同。
请问应该怎样修改啊？
[解决办法]
Dim strInsert As String = INSERT INTO 已经发货表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) SELECT 客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期 FROM 基本数据表1 WHERE DATEDIFF('d',基本数据表1.要求发货日期,基本数据表1.今天日期) <0"
[解决办法]
Dim strInsert As String = "INSERT INTO 已经发货表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) SELECT 客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) FROM 基本数据表1 WHERE DATEDIFF('d',基本数据表1.要求发货日期,基本数据表1.今天日期) <0"
