急请各位大侠帮忙,我想在VB6代码中用一个UPDate语句更新ACCess数据表代码如下请大侠们指点,谢谢
PubliccnnAsNewADODB.ConnectionSetcnn=NewADODB.Connectioncnn.ConnectionString="provide...
Public cnn As New ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\db\jxc.mdb;"
cnn.Open
Dim tt As String
tt = "UPDATE jhb,xb SET jhb.库存 = jhb.数量-xb.数量 WHERE jhb.(品名)货号=xb.(品名)货号 and jhb.尺码=xb.尺码 and jhb.颜色=xb.颜色"
tt = "UPDATE jhb SET 库存 =数量"
cnn.Execute tt
现在运行时提示“至少一个参数没有被指定值”
请具体点,或帮我写好,万分感谢!!! 展开
Set cnn = New ADODB.Connection
cnn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\db\jxc.mdb;"
cnn.Open
Dim tt As String
tt = "UPDATE jhb,xb SET jhb.库存 = jhb.数量-xb.数量 WHERE jhb.(品名)货号=xb.(品名)货号 and jhb.尺码=xb.尺码 and jhb.颜色=xb.颜色"
tt = "UPDATE jhb SET 库存 =数量"
cnn.Execute tt
现在运行时提示“至少一个参数没有被指定值”
请具体点,或帮我写好,万分感谢!!! 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询