insert into 报错

jackzhang　发表于：2017-07-10 01:41:07 　

复制

CurrentDb.Execute ("insert into top(库位,SKU,数量) values('" + CStr(kw) + "','" + CStr(sk) + "','" + CStr(sl) + "')")

执行时报错3134，请教大侠问题出在哪里？

Top

宏鹏发表于：2017-07-10 08:56:54

'E是文本型,F是数值型,G是日期型
strSQL = "insert into 表1(E,F,G) values('" & Me.E & "'," & Me.F & ",#" & Me.G & "#)"

Top

MDZZ 发表于：2017-07-10 09:00:15

应该是 kw sk sl 之中包含一些特殊符号了把

Top

jackzhang 发表于：2017-07-11 22:03:18

还是没有解决，不知道哪里出错。

贴上完全语句：

Private Sub Command1_Click()

Dim rs As DAO.Recordset
Dim kw, sk As String
Dim sl As Integer

Set rs = CurrentDb.OpenRecordset("Topin")
Do While Not rs.EOF
   kw = rs.Fields("库位").Value
   sk = rs.Fields("sku").Value
   sl = rs.Fields("数量").Value

CurrentDb.Execute ("insert into top(库位,sku,数量) values('" & CStr(kw) & "','" & CStr(sk) & "'," & CStr(sl) & ")")
rs.MoveNext
Loop

CurrentDb.Execute ("update Topin set 库位='',SKU='',数量=''")

MsgBox "GOOD JOB！", 0, "保存！"
End Sub

Top

MDZZ 发表于：2017-07-12 08:05:53

传附件

Top

jackzhang 发表于：2017-07-12 11:47:21

��ش˸��

Top

jackzhang 发表于：2017-07-12 11:48:25

多谢啦 MDZZ

Top

MDZZ 发表于：2017-07-12 13:08:03

CurrentDb.Execute ("insert into [top](库位,sku,数量) values('" & CStr(kw) & "','" & CStr(sk) & "'," & sl & ")")

top 必须加[] top是保留字

Top

jackzhang 发表于：2017-07-12 14:07:11

多谢，多谢！高手就是高手。

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

insert into 报错