将数据从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

插入查询不会返回记录，因此

Set rs = dbCaseGoods.execute(strinsert, dbfailonerror)

行不通的。只需使用

dbCaseGoods.Execute strinsert, dbFailOnError

您还应该考虑使用parameter queries而不是“粘合”SQL语句。