Hallo,
ich habe gerade ein riesen Problem und weis nicht wie ich weiter komme. Ich habe eine Userform welche eine Combobox und dre Textfelder besitzt. Die Auswahl für die Combobox soll von einer Datenbank gelesen werden, was auch super funktioniert.
Nun zu meinem Problem, je nach dem was ich in der combobox auswähle möchte ich die werte aus einer Microsoft sql datenbank lesen und eintragen.
Hat mir jemand ein gedankenanstoß oder ein Tipp wie ich das umsetzen könnte?
Hier zu meinem Quellcode:
Public Class Form3
Dim SQL As New SQLControl
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Combobox werte von Anfang laden
TextBox1_S.Clear()
TextBox1_O.Clear()
TextBox1_U.Clear()
SQL.RunQuery("SELECT ARTNR FROM ARTIKEL")
If SQL.SQLDataset.Tables.Count > 0 Then
For i = 0 To SQL.SQLDataset.Tables(0).Rows.Count - 1
ComboBoxArtikel.Items.Add(SQL.SQLDataset.Tables(0).Rows(i).Item("ARTNR"))
Next
End If
End Sub
Private Sub ComboBoxArtikel_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxArtikel.SelectedIndexChanged
End Sub
End Class
Ich danke euch schon im voraus
ich habe gerade ein riesen Problem und weis nicht wie ich weiter komme. Ich habe eine Userform welche eine Combobox und dre Textfelder besitzt. Die Auswahl für die Combobox soll von einer Datenbank gelesen werden, was auch super funktioniert.
Nun zu meinem Problem, je nach dem was ich in der combobox auswähle möchte ich die werte aus einer Microsoft sql datenbank lesen und eintragen.
Hat mir jemand ein gedankenanstoß oder ein Tipp wie ich das umsetzen könnte?
Hier zu meinem Quellcode:
Public Class Form3
Dim SQL As New SQLControl
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Combobox werte von Anfang laden
TextBox1_S.Clear()
TextBox1_O.Clear()
TextBox1_U.Clear()
SQL.RunQuery("SELECT ARTNR FROM ARTIKEL")
If SQL.SQLDataset.Tables.Count > 0 Then
For i = 0 To SQL.SQLDataset.Tables(0).Rows.Count - 1
ComboBoxArtikel.Items.Add(SQL.SQLDataset.Tables(0).Rows(i).Item("ARTNR"))
Next
End If
End Sub
Private Sub ComboBoxArtikel_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxArtikel.SelectedIndexChanged
End Sub
End Class
Ich danke euch schon im voraus