newbie
ik wil een eenvoudigen data opzeten in vb-2008 doch het lukt mij niet
Heb een groot gedeelte overgenomen uit het handboek VB2008
maar de combobox en de Datagrid worden niet gevuld
uiteraard is er ook een Database gemaakt maar de tabelen zijn niet gevuld maar
de namen van de koloms moeten toch zichtbaar zijn???
wat doe ik verkeerd of wat ontbreekt er nog aan
ik wil een eenvoudigen data opzeten in vb-2008 doch het lukt mij niet
Heb een groot gedeelte overgenomen uit het handboek VB2008
maar de combobox en de Datagrid worden niet gevuld
uiteraard is er ook een Database gemaakt maar de tabelen zijn niet gevuld maar
de namen van de koloms moeten toch zichtbaar zijn???
wat doe ik verkeerd of wat ontbreekt er nog aan
Code:
Imports System.Data.SqlServerCe
Public Class Form1
Private CnSt As String = "Data Source=Database1.sdf"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Using Cn As New SqlCeConnection(CnSt)
Dim Cmd As SqlCeCommand = Cn.CreateCommand
Cmd.CommandText = "Select * From Profielen"
Dim Da As New SqlCeDataAdapter(Cmd)
Dim Ta As New DataTable
Da.Fill(Ta)
ComboBox1.DisplayMember = "ProfielNaam"
ComboBox1.ValueMember = "Nr"
ComboBox1.DataSource = Ta
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
End Using
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Using Cn As New SqlCeConnection(CnSt)
Dim Cmd As SqlCeCommand = Cn.CreateCommand
Cmd.CommandText = "Select * From Profielen Where profielen.Nr=@Nr"
Cmd.Parameters.AddWithValue("Nr", ComboBox1.SelectedValue)
Dim Da As New SqlCeDataAdapter(Cmd)
Dim Ta As New DataTable
Da.Fill(Ta)
DataGridView1.DataSource = Ta
End Using
End Sub
End Class
Laatst bewerkt door een moderator: