combobox of ADO
Har snart prøvet alt....Problem:
Jeg har to comboboxe. Den ene (combobox4) viser en hovedgruppe fra en tabel i en database. Alt efter hvilken hovedgruppe der vælges, skal der genereres en ny tabel, som skal vises i combobox5. Jeg kan bare ikke få det til at virke!!
Jeg kan sagtens få vist hovedområderne (ligger i form load), men jeg kan ikke få vist det rigtige i combobox5.
Jeg kan godt få den til at vise alt indholdet af tabellen, men den vælger ikke de rigtige ud :(
Er der en der gider kigge på koden og vise mig havd jeg gør forkert.
Bemærk jeg har udkommenteret noget af koden, i et forsøg på at prøve mig frem.
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
Dim MinConnString As String = "c:\db1.mdb"
Dim Minconn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & MinConnString)
'Dim MinSQL As String
'Dim MinAdapter As New OleDbDataAdapter()
Dim underomraadeDS As New DataSet()
Dim MyAdap As New OleDbDataAdapter("Select Hovedgrupp, Omraade_navn from Omraade_tabel where Hovedgruppe ='" & ComboBox4.SelectedText & "'""", Minconn)
'" & ComboBox4.SelectedText & "'", Minconn)
'MyAdap.SelectCommand = New OleDbCommand(MinSQL, Minconn)
'MyAdap.Fill(underomraadeDS)
'ComboBox5.DataSource = underomraadeDS
'ComboBox5.DisplayMember = "Omraade_navn"
''ComboBox5.ValueMember = "Omraade_navn"
'Dim minSQL As String
'minSQL = "Select Omraade_nr, Omraade_navn, Hovedgruppe FROM Omraade_tabel"
'minSQL = "Select Hovedgrupp, Omraade_navn from Omraade_tabel where Hovedgruppe ='" & ComboBox4.SelectedText & "'"""
'Dim Cmd As New OleDbComma
nd(minSQL, Minconn)
Minconn.Open()
'Cmd.ExecuteNonQuery()
MyAdap.Fill(underomraadeDS)
Minconn.Close()
'ComboBox5.DataSource = underomraadeDS
ComboBox5.DataSource = underomraadeDS
ComboBox5.DisplayMember = "Omraade_navn"
'ComboBox5.ValueMember = "Omraade_navn"
Minconn.Close()
