SQL update语句报错..请各位老师帮忙..

bmin1117

1. Public Sub UpdateToSql()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim SQL As String, mydata As String, mytable As String
   
5.     mydata = "123"           '指定要修改的数据库
   
6.     mytable = "321"              '指定数据表
   
7.    
   
8.     '建立与指定SQL Server数据库的连接
   
9.     cnn.ConnectionString = "Provider=SQLOLEDB;" _
   
10.         & "User ID=111;" _
    
11.         & "Password =222;" _
    
12.         & "Data Source=333;" _
    
13.         & "Initial Catalog =" & mydata
    
14.     cnn.Open
    
15.     '按顺序更新全表某些字段的记录
    
16.     For i = 9 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    
17.     SQL = " update " & mytable _
    
18.             & " set 销货清单日期='" & Sheet1.Cells(i, 2).Value & "',开发公司='" & Sheet1.Cells(i, 3).Value & "',结算性质='" & Sheet1.Cells(i, 4).Value & "',项目部='" & Sheet1.Cells(i, 5).Value & "',施工单位='" & Sheet1.Cells(i, 6).Value & "',工程名称='" & Sheet1.Cells(i, 7).Value & "',栋号='" & Sheet1.Cells(i, 8).Value & "'," _
    
19.             & "送货地点='" & Sheet1.Cells(i, 9).Value & "',商品名称='" & Sheet1.Cells(i, 10).Value & "',材质='" & Sheet1.Cells(i, 11).Value & "',规格型号='" & Sheet1.Cells(i, 12).Value & "',长度='" & Sheet1.Cells(i, 13).Value & "',钢厂='" & Sheet1.Cells(i, 14).Value & "',理论重量='" & Sheet1.Cells(i, 15).Value & "',刨根支数='" & Sheet1.Cells(i, 16).Value & "'," _
    
20.             & "检尺重量='" & Sheet1.Cells(i, 17).Value & "',采购渠道='" & Sheet1.Cells(i, 18).Value & "',销售运费单价='" & Sheet1.Cells(i, 19).Value & "',钢筋销售单价='" & Sheet1.Cells(i, 20).Value & "',出库时间='" & Sheet1.Cells(i, 21).Value & "'," _
    
21.             & "出库重量='" & Sheet1.Cells(i, 22).Value & "',钢筋采购单价_市场价='" & Sheet1.Cells(i, 23).Value & "',一次运费成本='" & Sheet1.Cells(i, 25).Value & "',二次运费成本='" & Sheet1.Cells(i, 26).Value & "',加价起始日='" & Sheet1.Cells(i, 28).Value & "',加价终止日='" & Sheet1.Cells(i, 29).Value & "',已收货款='" & Sheet1.Cells(i, 30).Value & "',未收加价='" & Sheet1.Cells(i, 31).Value & "',已收加价='" & Sheet1.Cells(i, 32).Value & "' where 销货单号='" & Sheet1.Cells(i, 1).Value & "'"
    
22.             Set rs = cnn.Execute(SQL)
    
23.             
    
24.     SQL = " update " & mytable _
    
25.             & "销售运费金额=检尺重量 * 销售运费单价,钢筋销售金额=检尺重量 * 钢筋销售单价,差价=钢筋销售单价 - 钢筋采购单价_市场价," _
    
26.             & "减掉吨数=理论重量 - 检尺重量,胀库数=检尺重量 - 出库重量,加权含税=财务加权_不含税 * 1.17 where 销货单号='" & Sheet1.Cells(i, 1).Value & "'"
    
27.             Set rs = cnn.Execute(SQL)
    
28.             
    
29.     SQL = " update " & mytable _
    
30.             & "运费成本总额_挂牌=二次运费成本 * 检尺重量,运费成本总额_加权=一次运费成本 * 出库重量 + 二次运费成本 * 检尺重量,钢筋成本金额_市场价=出库重量 * 钢筋采购单价_市场价,钢筋成本金额_加权=出库重量 * 加权含税  where 销货单号='" & Sheet1.Cells(i, 1).Value & "'"
    
31.             Set rs = cnn.Execute(SQL)
    
32.             
    
33.     SQL = " update " & mytable _
    
34.             & "销售合价=销售运费金额 + 钢筋销售金额,胀库率=胀库数 / 检尺重量  where 销货单号='" & Sheet1.Cells(i, 1).Value & "'"
    
35.             Set rs = cnn.Execute(SQL)
    
36.             
    
37.     SQL = " update " & mytable _
    
38.             & "总成本_加权=运费成本总额_加权 + 钢筋成本金额_加权,总成本_挂牌价=运费成本总额_挂牌 + 钢筋成本金额_市场价  where 销货单号='" & Sheet1.Cells(i, 1).Value & "'"
    
39.             Set rs = cnn.Execute(SQL)
    
40.             
    
41.     SQL = " update " & mytable _
    
42.             & "毛利_挂牌价=销售合价 - 总成本_挂牌价,毛利_加权=销售合价 - 总成本_加权 where 销货单号='" & Sheet1.Cells(i, 1).Value & "'"
    
43.             Set rs = cnn.Execute(SQL)
    
44. 
    
45.     Next i
    
46.     MsgBox "数据保存完毕！", vbInformation, "保存数据"
    
47. 
    
48.     '关机记录集以及与数据库的连接
    
49. 
    
50.     cnn.Close
    
51.     Set rs = Nothing
    
52.     Set cnn = Nothing
    
53. End Sub
    

复制代码

报错在第二个"Set rs = cnn.Execute(SQL)"这里..
个人理解应该是关闭记录集的问题吧..
请老师们帮忙改一改..
ps..
之所以要分6次update..是因为这些数据有前后的逻辑运算关系..
写在一起的话要update 4次才能把数据更新完整..
所以我就只能想到分次更新..不知是否正确..

ly

我想这可能是笔误吧
Set re = cnn.Execute(SQL)
中的re应该是rs

bmin1117

ly 发表于 2013-10-8 21:12
我想这可能是笔误吧
Set re = cnn.Execute(SQL)
中的re应该是rs

sorry 这个是笔误..
但源程序没写错..依然报错..
主帖已经改过来了..

bmin1117

自己顶一下..

bmin1117

自己检查出来了..从第二个update开始全部少写了一个 set