关于根据表单序列修改数据库的问题

93974308

Private Sub CommandButton16_Click()
   Dim mydata As String, SQL As String
   Dim cnn As ADODB.Connection
  Dim rs As ADODB.Recordset
    For i = 1 To ListView3.ListItems.Count
  mydata = "D:\进销存系统\真彩印刷.mdb"
   Set cnn = New ADODB.Connection
   
       With cnn
         .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
   End With
   
   出问题部分  SQL = "update 合同 set 数量 =数量 - ListView3.ListItems(i).SubItems(6) where ID = 'ListView3.ListItems(i)'"
  Set rs = cnn.Execute(SQL)
  
  cnn.Close
   Set rs = Nothing
  Set cnn = Nothing
Next i
End Sub

suxiong

试一下这个，如果不行，你继续改，在分析器上看SQL这个语句通不；

SQL = "update 合同 set 数量 =数量 -" &  ListView3.ListItems(i).SubItems(6) & " where ID = " & ListView3.ListItems(i)