I am trying to put listbox items into a compact database but its not working. I get connection property has not been initialized. Can anyone tell me what i am forgetting or doing wrong?
Code:
Sub ListBoxName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxName.SelectedIndexChanged
Dim SelItem As String = ListBoxName.SelectedItem.ToString()
Try
Dim AppsDataSource As String = "Data Source =" & Application.StartupPath & "\" & "MyApps.Sdf"
Using sqlCon As New SqlCeConnection
sqlCon.ConnectionString = AppsDataSource
sqlCon.Open()
Dim cmd As New SqlCeCommand
For J As Integer = 0 To ListBoxName.Items.Count - 1
cmd = New SqlCeCommand("Insert Into Programs (Name) Values (" & SelItem(J) & ")")
cmd.ExecuteNonQuery()
Next
sqlCon.Close()
MessageBox.Show(sqlCon.State)
End Using
Catch dberror As Exception
MsgBox(dberror.Message)
End Try
End Sub