How to insert listbox items to MS ACCESS DATABASE

Question

0.00/5 (No votes)

See more:

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?

VB

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

Posted 4-Feb-18 3:19am

WinterPrison

Updated 4-Feb-18 4:30am

Add a Solution

Comments

OriginalGriff 4-Feb-18 9:49am

What have you tried?
Where are you stuck?
What help do you need?

You have the code to do it from textboxes, so what is your problem with doing it from a ListBox?

WinterPrison 6-Feb-18 2:30am

i have try a solution and it worked, but only the 1st item is inserted. can u help me?

Try
connect()
connection.Open()
Dim queryString As String
queryString = "Insert into ServiceRecords([Personnel]) Values(@Personnels)"
command = New OleDbCommand(queryString, connection)
For i As Integer = 0 To Me.ListBox1.Items.Count + 1
command.Parameters.AddWithValue("@Personnels", ListBox1.Items(i))
Next
Catch ex As Exception

End Try

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2018-02-04T04:30:00

Solution 1

Take a look at your code:

VB

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

command.ExecuteNonQuery()

ExecuteNonQuery will never reached because a form is closed first.

Posted 4-Feb-18 4:30am

Maciej Los

Comments

WinterPrison 4-Feb-18 22:24pm

Im sorry, this is my first coding language so i dont know much :(, please help me

Maciej Los 5-Feb-18 1:36am

Please, read my answer carefully and you'll able to resolve your issue.