| Author: Neetu 30 Oct 2009 | Member Level: Diamond | Rating:  Points: 3 |
Try this code.
Dim con As New OleDbConnection
Dim i as integer
Dim cmd as oleDbCommand
i = ListBox1.SelectedItems.Count
For j = 0 To i - 1
Dim s As String
s = ListBox1.SelectedItems(j).ToString
cmd = New OleDbCommand
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "insert into tablename (col_name) values ' " & s&" ' "
cmd.ExecuteNonQuery()
cmd = Nothing
Next
regards
Neetu
|
| Author: Lalji 30 Oct 2009 | Member Level: Diamond | Rating: Points: 2 |
try this link
http://social.microsoft.com/Forums/en-US/whatforum/thread/b77ab179-5a69-4e38-91b7-6e85397d3126
|