vbs 更新数据库错误 请大神帮忙

[liu494021458]

sub checkOrder(orderid,money,ext)
Set cmm = createobject("adodb.Command")
Set cmm.ActiveConnection=conn
sql1="update AccountsInfo set InsureScore=money where Accounts=ext"
cmm.CommandText=sql1
cmm.Execute
conn.close '关闭连接
Set conn=nothing '释放对象
end sub

[liu494021458]

自己解决了！看来论坛人少了！！！！！！！！！！！！！

[liu494021458]

connStrs="Driver={SQL Server}; server=127.0.0.1,1433;uid=sa;pwd=123;database=chuanqi_qingbiao;" set conn=server.createobject("ADODB.CONNECTION") conn.open connStrs

[hookee]

简单点就 conn.Execute sql1

[leetow2006]

Dim cnn As Object, rs As Object, i&, SQL1$ Set cnn = CreateObject("ADODB.Connection") If Application.Version = "11.0" Then cnn.Open "Provider=Microsoft.jet.oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName Else cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName End If Set rs = CreateObject("adodb.recordset") SQL1 = "select A.膜名称,A.型号,A.客户名称,A.库存数量,B.出库日期 from [膜库存$]A,[膜出库$]B where A.膜名称 =B.膜名称 And A.型号 =B.型号 And A.客户名称 = B.客户名称 And B.出库日期 ='" & str & "'" Set rs = cnn.Execute(SQL1) Sheets("查询").Select With Sheets("查询") .Cells.ClearContents For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next .Range("a2").CopyFromRecordset rs End With rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing