Guten Morgen lieb VB-Paradise-Community,
ich haben zurzeit ein kleines Problem in meinem Programm. Ich habe eine DB(Access 2007) eingbunden, die Verbindung passt auch.
Problem 1:
Ich habe die erste Tabelle in der DB wie erwähnt schon geladen. Dann hab ich insgesamt 4 comboboxen(cb), inden ich aus der DB zeilen einlesen will, das geht auch aber ich will jede einzeln verändern, und dies geht nicht wenn ich eine veränder gehen alle mit. Ebenfalls will ich wenn ich eine cb ausgewählt haben und auf einen Button drücke die zellen, die inder DB daneben stehen in die tb einlesen.
Hier mal der Code:
Der Button ist noch leer da ich bisher auf keine idee gekommen bin.
Problem 2:
Nun wollte ich beim laden des Formulars aus der DB bestimmte Zellen auslesen und diese in eine TB(Textbox) einfügen. Diese liegen in der Anderen Tabelle. Dort geht die Verbindung auch schon. Der Code sieht bisher so aus:
ab dem marke1 weiß ich nicht weiter.
Ich hoffe ihr könnt mir helfen.
Gruß Lord C
ich haben zurzeit ein kleines Problem in meinem Programm. Ich habe eine DB(Access 2007) eingbunden, die Verbindung passt auch.
Problem 1:
Ich habe die erste Tabelle in der DB wie erwähnt schon geladen. Dann hab ich insgesamt 4 comboboxen(cb), inden ich aus der DB zeilen einlesen will, das geht auch aber ich will jede einzeln verändern, und dies geht nicht wenn ich eine veränder gehen alle mit. Ebenfalls will ich wenn ich eine cb ausgewählt haben und auf einen Button drücke die zellen, die inder DB daneben stehen in die tb einlesen.
Hier mal der Code:
VB.NET-Quellcode
- #Region "Variablen"
- Dim nextoption As String
- Dim connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\SQL\Belohnung.accdb"
- Dim verbindung As New System.Data.OleDb.OleDbConnection(connectionstring)
- Dim adapter As New System.Data.OleDb.OleDbDataAdapter
- Dim Tabelle As New System.Data.DataTable
- Dim verbindung2 As New System.Data.OleDb.OleDbConnection(connectionstring)
- Dim adapter2 As New System.Data.OleDb.OleDbDataAdapter
- Dim Tabelle2 As New System.Data.DataTable
- #End Region
- #Region "Bei Start"
- Private Sub form_rechner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- verbindung.Open()
- adapter = New System.Data.OleDb.OleDbDataAdapter("Select * from belohnungen", verbindung)
- adapter.Fill(Tabelle)
- cb_du_du1.DataSource = Tabelle
- cb_du_du1.DisplayMember = "weg"
- cb_du_du2.DataSource = Tabelle
- cb_du_du2.DisplayMember = "weg"
- cb_du_du3.DataSource = Tabelle
- cb_du_du3.DisplayMember = "weg"
- cb_du_du4.DataSource = Tabelle
- cb_du_du4.DisplayMember = "weg"
- End Sub
- #End Region
Der Button ist noch leer da ich bisher auf keine idee gekommen bin.
Problem 2:
Nun wollte ich beim laden des Formulars aus der DB bestimmte Zellen auslesen und diese in eine TB(Textbox) einfügen. Diese liegen in der Anderen Tabelle. Dort geht die Verbindung auch schon. Der Code sieht bisher so aus:
VB.NET-Quellcode
- #Region "Variablen"
- Dim nextoption As String
- Dim connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\SQL\Belohnung.accdb"
- Dim verbindung As New System.Data.OleDb.OleDbConnection(connectionstring)
- Dim adapter As New System.Data.OleDb.OleDbDataAdapter
- Dim Tabelle As New System.Data.DataTable
- Dim verbindung2 As New System.Data.OleDb.OleDbConnection(connectionstring)
- Dim adapter2 As New System.Data.OleDb.OleDbDataAdapter
- Dim Tabelle2 As New System.Data.DataTable
- #End Region
- #Region "Bei Start"
- Private Sub form_rechner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- verbindung.Open()
- adapter = New System.Data.OleDb.OleDbDataAdapter("Select * from belohnungen", verbindung)
- adapter.Fill(Tabelle)
- cb_du_du1.DataSource = Tabelle
- cb_du_du1.DisplayMember = "weg"
- cb_du_du2.DataSource = Tabelle
- cb_du_du2.DisplayMember = "weg"
- cb_du_du3.DataSource = Tabelle
- cb_du_du3.DisplayMember = "weg"
- cb_du_du4.DataSource = Tabelle
- cb_du_du4.DisplayMember = "weg"
- adapter2 = New System.Data.OleDb.OleDbDataAdapter("Select * from speichern", verbindung2)
- adapter2.Fill(Tabelle2)
- tb_marken_marke1
- End Sub
- #End Region
ab dem marke1 weiß ich nicht weiter.
Ich hoffe ihr könnt mir helfen.
Gruß Lord C