比眼力啦，看谁的眼睛nb!!!!!!

Question

写得一点也不规范懒得看了，  你看我写的  不比你写得清楚   什么地方有错误一看就知道了SQL = "insert into expcontract(Id,Contract,Date,Buyer,BuyerNo,Country,Region,Currency,"
SQL = SQL & "PriceTerm,DesPort,Transport,Notes,MoreLess,ShipOpt,ShipDays,Shipment,"
SQL = SQL & "LoadPort,PayOpt,Payment,InsureOpt,LCDate,buyno,rz) values("
SQL = SQL & "'" & Zb & "',"
SQL = SQL & "'" & Replace(Trim(ComHTH), "'", "''") & "',"
SQL = SQL & "'" & Replace(Format(RQ, "yyyy-MM-dd"), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.txtBuyer), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.txtBuyerno), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.txtBuyer.Tag), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.txtBuyerno.Tag), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.cmbCurrency), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.cmbPriceTerm), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.cmbDesPort), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.cmbTransPort), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.txtNote), "'", "''") & "',"
SQL = SQL & "" & Replace(Trim("0"), "'", "''") & ","
SQL = SQL & "'" & Replace(Trim("3"), "'", "''") & "',"
SQL = SQL & "" & Replace(Trim("0"), "'", "''") & ","
SQL = SQL & "'" & Replace(Trim(Format(Now, "yyyy-12-31")), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.cmbLoadPort), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim("2"), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Me.cmbPayment), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim("2"), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(Format(Now, "yyyy-MM-dd")), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim(" "), "'", "''") & "',"
SQL = SQL & "'" & Replace(Trim("addnew"), "'", "''") & "')"cN.Execute SQL 

Answer 1

我只是说我这样可读性好点 再用 
cN.Execute SQL  
前  运行的MSGBOX SQL  来慢慢看了

Answer 2

sql = sql & .Data1.Fields("通用网址缴费日") & ","
是日期型还是 字符性的 还是数字型的
反正要看还是你自己的事情，  我不看  

Answer 3

用AddNew吧，一一对应，清楚一些。

Answer 4

日期型 就改成 sql = sql & "'" & .Data1.Fields("通用网址缴费日") & "',"

Answer 5

debug.print sql
然后放到数据库中查看一下，哪一个写错了！

Answer 6

sql = sql & "'" & .Data1.Fields(网络实名) & "',"
呵呵是这个写错了

Answer 7

终于显示 INSERT INTO 语法错误了  同志们 这是进步啊！

Answer 8

靠，为了[凡是来过的入不回帖，就不是男人！]这句话我换了个马甲重新登陆了一次！
PS:我的正身不能回复，偶TMD也郁闷着呢！

Answer 9

眼力不行了，但提示楼主几点：
1，将代码复制到SQL的查询分析器中执行，看看错误在哪行
2，字符型的引用：'"& aaa &"'
3，数值型的引用："& aaa &"
4，日期型的引用：'"& aaa &"'

Answer 10

我最怕看sql语句了，不过今天不看不行啊 :)
第123个字符多余，178处少了个"'",253处少了个","
眼力不错吧