如何将列表框项目插入MS ACCESS DATABASE [英] How to insert listbox items to MS ACCESS DATABASE

问题描述

我有一个问题，如何将列出的列表框中列出的项目插入到数据库中，并且迟到了吗？



我尝试了什么：



这是我的代码插入数据库，我怎么能插入一个列表框的项目？

Im having a problem on how to insert the listed items from a listbox to database and retreive it late?

What I have tried:

This is my code inserting database, how could i insert items of a listbox?

Try
           connect()
           connection.Open()
           Dim queryString As String
           queryString = "Insert into ServiceRecords([ServiceID],[ClientName],[Contact Person],[Address],[TimeStarted],[TimeEnded],[OpDate],[FloorDrain Quantity],[FloorDrain Clogged],[FloorDrain F/R]) Values(@SeriveID,@ClientName,[@Contact Person],@Address,@TimeStarted,@TimeEnded,@OpDate,[@FloorDrain Quantity],[@FloorDrain Clogged],[@FloorDrain F/R])"
           command = New OleDbCommand(queryString, connection)
           command.Parameters.Add(New OleDbParameter("ServiceID", CType(serviceIDText.Text, String)))
           command.Parameters.Add(New OleDbParameter("ClientName", CType(clientNameText.Text, String)))
           command.Parameters.Add(New OleDbParameter("Contact Person", CType(cPersonText.Text, String)))
           command.Parameters.Add(New OleDbParameter("Address", CType(addressText.Text, String)))
           command.Parameters.Add(New OleDbParameter("TimeStarted", CType(timeStartedText.Text, String)))
           command.Parameters.Add(New OleDbParameter("TimeEnded", CType(timeEndedText.Text, String)))
           command.Parameters.Add(New OleDbParameter("OpDate", CType(datePicker.Text, Date)))
           command.Parameters.Add(New OleDbParameter("FloorDrain Quantity", CType(fldQuantityText.Text, String)))
           command.Parameters.Add(New OleDbParameter("FloorDrain Clogged", CType(fldClcbox.CheckState, Boolean)))
           command.Parameters.Add(New OleDbParameter("FloorDrain F/R", CType(fldFinRecText.Text, String)))

           MsgBox("Successfully Added!", MsgBoxStyle.Information)
           Me.Close()

           command.ExecuteNonQuery()
           displayDataToGrid()
           mainForm.serviceRecordDataGridView.Rows(mainForm.serviceRecordDataGridView.Rows.Count - 1).Selected = True
           connection.Close()


       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

推荐答案

查看你的代码：

Take a look at your code:

MsgBox("Successfully Added!", MsgBoxStyle.Information)
Me.Close() 'HERE!!!

command.ExecuteNonQuery()

永远不会达到ExecuteNonQuery 因为表格先关闭。

这篇关于如何将列表框项目插入MS ACCESS DATABASE的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！