将数据从vb6插入数据库？

Question

我正在研究一个程序，该程序从listview对象获取一些数据，并且除其他外应将数据插入数据库的特定字段中。 我正在使用vb6和ms Access 2003数据库。 即时通讯不完全确定如何连接到vb6中的数据库，虽然我目前确实有此代码

Option Explicit
Public dbCaseGoods As DAO.Database
Dim rs As DAO.Recordset
Dim Barcode() As String
Dim linenumber As Integer
Dim strinsert As String



Private Sub btnDone_Click()
linenumber = 1
strinsert = "INSERT INTO Work_Order (PO_Number,CNC_Code,Line_No) VALUES ('" & "PO NUMBER" & "', '" & "CNC CODE" & "', '" & "LINE NUMBER" & "')""
'strinsert = "INSERT INTO Work_Order (PO_Number,CNC_Code,Line_No) VALUES ('" & ListView1.ListItems(linenumber).Text & "' , '" &     ListView1.ListItems(linenumber).SubItems(1) & "','" &     ListView1.ListItems(linenumber).SubItems(2) & "')""
Set rs = dbCaseGoods.execute(strinsert, dbfailonerror)

txtbarcode.SetFocus
End Sub

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Set dbCaseGoods = OpenDatabase("I:\Casegoods\database\Contract_Casegoods.mdb")

ListView1.ColumnHeaders.Add Text:="P.O#", Width:=ListView1.Width / 3
ListView1.ColumnHeaders.Add Text:="Cnc Code", Width:=ListView1.Width / 3
ListView1.ColumnHeaders.Add Text:="Line #", Width:=ListView1.Width / 8
End Sub



Private Sub txtbarcode_KeyPress(KeyAscii As Integer)
Dim li As ListItem


Barcode = Split(txtbarcode.Text, "-")
On Error Resume Next
   If KeyAscii = vbKeyReturn Then
   Set li = ListView1.ListItems.Add(, , Barcode(0))
   li.SubItems(1) = Barcode(1)
   li.SubItems(2) = Barcode(2)
   txtbarcode.Text = ""
   Command2.Caption = ListView1.ListItems(1).Text
   Command3.Caption = ListView1.ListItems(1).SubItems(1)
   Command4.Caption = ListView1.ListItems(1).SubItems(2)
End If

End Sub

当我尝试按下按钮以将一行数据插入数据库时​​，我现在得到的是一个错误，指出Expected function or variable并且.Execute在Set rs = dbCaseGoods.execute(strinsert, dbfailonerror)突出显示

Answer 1

INSERT查询不会返回记录，因此

Set rs = dbCaseGoods.execute(strinsert, dbfailonerror)

将无法正常工作。 只需使用

dbCaseGoods.Execute strinsert, dbFailOnError

您还应该研究使用参数查询，而不是“粘在一起” SQL语句。