vb添加信息代码

Question

 Set AdoRs = Cnn.Execute("insert into tb_Goods_cldd values('" &Txt_id & "','" & Text1(0)&
 "','" & Text1(1) & "','" & Text1(2) & "','"& Text1(3) & "','" & Str(DT1.Value) & "','" & Text1(4)
 & "','" & Text1(5)& "','" & Txt_bz & "')")这段代码哪里有问题啊？请大家帮忙改下吧

Answer 1

把插入语句输出到即时窗口，看看 有什么问题 会比较容易 debug.print "insert into tb_Goods_cldd values('" &Txt_id & "','" & Text1(0)&
 "','" & Text1(1) & "','" & Text1(2) & "','"& Text1(3) & "','" & Str(DT1.Value) & "','" & Text1(4)
 & "','" & Text1(5)& "','" & Txt_bz & "')"Set AdoRs = Cnn.Execute("insert into tb_Goods_cldd values('" &Txt_id & "','" & Text1(0)&
 "','" & Text1(1) & "','" & Text1(2) & "','"& Text1(3) & "','" & Str(DT1.Value) & "','" & Text1(4)
 & "','" & Text1(5)& "','" & Txt_bz & "')")

Answer 2

换行连接 要用 & _

Answer 3

Set AdoRs = Cnn.Execute("insert into tb_Goods_cldd values('" &Txt_id & "',  ‘" & Text1(0)&
 "', '" & Text1(1) & "', '" & Text1(2) & "', '"& Text1(3) & "', '" & Str(DT1.Value) & "', '" & Text1(4)
 & "', '" & Text1(5)& "', '" & Txt_bz & "')") 加空格，你在试试