Hallo Community,
es ist eigentlich total simpel, aber ich drehe gleich durch. Ich erkläre einmal die Funktion um die es geht.
Ich habe eine Datenbank mit Inhalten. Diese werden beim Start ausgelesen und in ein Datatable gepackt.
Aus diesem Datatable extrahiere ich den Inhalt und schmeiße diesen Wort für Wort in Combobox.Items.
Im späteren Programmablauf wird daraufhin der User (Optional) aus der Combobox ein Wert auswählen, dieser wird dann automatisch in eine Textbox geschrieben.
Daraufhin möchte ich den angezeigten Text der Combobox gerne wieder auf "Optional" setzten, so wie er auch standardmäßig nach Programmstart ist.
Allerdings lässt er mich dies einfach nicht machen. Ich habe einen Sub der auf die Combobox zugreift: Combobox.SelectedIndexChanged .
An dem Sub liegt es definitiv nicht, daher ist der Code auch uninteressant.
Ich habe einmal den Code gepostet, der den Datenbank Inhalt in das Datatable schreibt, vielleicht kann man da ja etwas mit anfangen.
Mfg Silvergreen
es ist eigentlich total simpel, aber ich drehe gleich durch. Ich erkläre einmal die Funktion um die es geht.
Ich habe eine Datenbank mit Inhalten. Diese werden beim Start ausgelesen und in ein Datatable gepackt.
Aus diesem Datatable extrahiere ich den Inhalt und schmeiße diesen Wort für Wort in Combobox.Items.
Im späteren Programmablauf wird daraufhin der User (Optional) aus der Combobox ein Wert auswählen, dieser wird dann automatisch in eine Textbox geschrieben.
Daraufhin möchte ich den angezeigten Text der Combobox gerne wieder auf "Optional" setzten, so wie er auch standardmäßig nach Programmstart ist.
Allerdings lässt er mich dies einfach nicht machen. Ich habe einen Sub der auf die Combobox zugreift: Combobox.SelectedIndexChanged .
An dem Sub liegt es definitiv nicht, daher ist der Code auch uninteressant.
Ich habe einmal den Code gepostet, der den Datenbank Inhalt in das Datatable schreibt, vielleicht kann man da ja etwas mit anfangen.
VB.NET-Quellcode
- Dim sql_beilage As String
- sql_beilage = "SELECT * FROM Speisekarte WHERE Kategorie= '" & "Extrawunsch" & "'"
- Dim adapter_beilage As New OleDbDataAdapter(sql_beilage, con1)
- adapter_beilage.Fill(dt_belag)
- For i As Integer = 0 To dt_belag.Rows.Count - 1
- Dim temp As String = dt_belag.Rows(i).Item(2)
- cb_beilage.Items.Add(temp)
- cb_beilage.Text = "- Optional -"
- Next
- Dim sql1_beilage As String
- sql1_beilage = "Select * FROM Speisekarte WHERE Kategorie= '" & "Extrawunsch" & "'"
- Dim adapter1_beilage As New OleDbDataAdapter(sql1_beilage, con1)
- Dim cmd_beilage As New OleDbCommand(sql1_beilage, con1)
- con1.Open()
- Dim myreader_beilage As OleDbDataReader = cmd_beilage.ExecuteReader
- myreader_beilage.Read()
- con1.Close()
Mfg Silvergreen