Hi!
In my project I would like to populate checkboxlist from my database. But problem is I cant figure out what I'm doing wrong.
In my project I would like to populate checkboxlist from my database. But problem is I cant figure out what I'm doing wrong.
Code:
Private Sub form_artikel_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim CONNECT_STRING As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & System.AppDomain.CurrentDomain.BaseDirectory & "baza_podatkov.mdb"
' "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & System.AppDomain.CurrentDomain.BaseDirectory & "baza_podatkov.mdb"
Dim cnn As New OleDbConnection(CONNECT_STRING)
Dim cmd As OleDbCommand = New OleDbCommand()
cnn.Open()
Dim strSql = "SELECT barva FROM barve"
Dim objDataAdapter As New OleDbDataAdapter
objDataAdapter = New OleDbDataAdapter(strSql, cnn)
checklist_barve.DataSource = cmd.ExecuteReader
cnn.Close()
cnn.Dispose()
End Sub