Archief - [PROG]VB.net combobox VB.net combobox

hey, deze code heb ik om mijn combobox vanuit een accessdatabase te vullen, en deze werkt. Maar hoe krijg ik nu een geselecteerde waarde in een string. cbobestemming.text enzo werkt niet. thx

code:
Dim cmdopdracht As New OleDbCommand("SELECT * FROM tblVakantiebestemmingen", conn)
Dim da As New OleDbDataAdapter(cmdopdracht)
Dim ds As DataSet = New DataSet

conn.Open()

ds.Clear()
da.Fill(ds, "reis")
Dim dv As DataView = ds.Tables("reis").DefaultView

cbobestemming.DataSource = dv
cbobestemming.DisplayMember = "bestemmingnaam"
cbobestemming.Text = "Kies bestemming..."
'cbobestemming is combobox

conn.Close()

Dit lijkt te werken:
cbobestemming.SelectedItem.ToString();

Krueger zei:

Dit lijkt te werken:
cbobestemming.SelectedItem.ToString();

Klik om te vergroten...

dan krijg ik als uitvoer ==> System.Data.DataRowView in mijn string

Hmmz, raar
Ik heb het hier vlug getest, en volgende 2 statements geven goede resultaten:
label1.Text=comboBox1.SelectedItem.ToString();
label1.Text=comboBox1.Text.ToString();

Ik begrijp je probleem toch goed? Je hebt een combobox, die gevuld is met een aantal items in. Je wilt het geselecteerde item omzetten naar een string.

Krueger zei:

Hmmz, raar
Ik heb het hier vlug getest, en volgende 2 statements geven goede resultaten:
label1.Text=comboBox1.SelectedItem.ToString();
label1.Text=comboBox1.Text.ToString();

Ik begrijp je probleem toch goed? Je hebt een combobox, die gevuld is met een aantal items in. Je wilt het geselecteerde item omzetten naar een string.

Klik om te vergroten...

idd, dit klopt. Als je de items standaard ingeeft in vb.net lukt het hoe jij zegt. Maar de items komen van een database van access. Ik heb ook al vanalles geprobeerd ma krijg ze maar niet in een string.

alvast bedankt voor de reply's

Nog een laatste poging
ComboBox1.SelectedValue.ToString();

Werkt dit?

Krueger zei:

Nog een laatste poging
ComboBox1.SelectedValue.ToString();

Werkt dit?

Klik om te vergroten...

nope, weer zelfde uitvoer => System.Data.DataRowView

Is het de bedoeling dat je de data om de combobox te bevolken uit de ene tabel haalt en het geselecteerde uit de combobox dan in een andere tabel wegschrijft?

In VB6 ging dat gemakkelijk, je kon bij properties ingeven waar de combobox z'n data moest gaan halen en ook waar hij het moest wegschrijven. Spijtig genoeg weet ik de juiste namen niet meer . Kzal morgen eens zien anders. Wat ik wel nog weet is dat het via een DataCombo was, ziet er hetzelfde uit als combobox maar staat niet standaard in je lijst van components denk ik, even toevoegen dus.

Waarschijnlijk is dit dus ook mogelijk voor VB.NET. Mocht je het ondertussen zelf vinden voor VB.NET, laat het hier dan weten he.

Neuskeutel zei:

Is het de bedoeling dat je de data om de combobox te bevolken uit de ene tabel haalt en het geselecteerde uit de combobox dan in een andere tabel wegschrijft?

In VB6 ging dat gemakkelijk, je kon bij properties ingeven waar de combobox z'n data moest gaan halen en ook waar hij het moest wegschrijven. Spijtig genoeg weet ik de juiste namen niet meer . Kzal morgen eens zien anders. Wat ik wel nog weet is dat het via een DataCombo was, ziet er hetzelfde uit als combobox maar staat niet standaard in je lijst van components denk ik, even toevoegen dus.

Waarschijnlijk is dit dus ook mogelijk voor VB.NET. Mocht je het ondertussen zelf vinden voor VB.NET, laat het hier dan weten he.

Klik om te vergroten...

Dit is ongeveer de bedoeling ja. de lijst van de combobox komt uit de database. en als er iets in die combobox word geselecteerd moet de rest van de overeenkomende gegevens worden getoond en worden weggeschreven in een andere tabel.

Ik zal eens kijken naar die datacombo. Alvast bedankt voor de reply!

Met een dataAdapter hoef je trouwens je connection niet expliciet te openen of te sluiten, wordt automatisch gedaan.

Ik heb mijn combobox anders gevult en nu werkt strbestemming = cbobestemming.SelectedItem wel

Dim intteller As Integer
Try
conn.Open()

Dim cmdopdracht As New OleDb.OleDbCommand("SELECT * FROM tblVakantiebestemmingen", conn)
Dim objDataAdapter As New OleDb.OleDbDataAdapter(cmdopdracht)

Dim ds As DataSet = New DataSet

objDataAdapter.Fill(ds, "Detail")

ds.Clear()
objDataAdapter.Fill(ds, "Detail")

'teller voor de verschillende periodes in een drop list te gooien
intTeller = Me.BindingContext(ds, "Detail").Count()
MsgBox(intteller)

Dim pDataRow As DataRow

pDataRow = ds.Tables("Detail").Rows(0)

Dim teller As Integer
For teller = 0 To intteller - 1
pDataRow = ds.Tables("Detail").Rows(teller)
cbobestemming.Items.Add(pDataRow!bestemmingnaam)
Next
Catch fout As Exception
MessageBox.Show("kutje")

Finally
conn.Close()
End Try