also ich bin ein ziemlicher Anfänger was programmieren angeht, allerdings mache ich mich gerade an meinem Program ganz gut. Ich habe es geschafft das mit meine Daten Bank via DataGridView angezeigt wird und sogar bei doppelklick auf die jeweilige zeile werden textboxen ausgefüllt. Wie schaffe ich es nun, dass die Änderungen die ich in den Textboxen vornehme auch gespeichert werden und wir schaffe ich es eine neue Zeile als einen neuen Datensatz zu erstellen die ich via Textboxen füllen und speichern kann? Imports sanex.start_vars Imports MySql.Data.MySqlClient
Public Class Form1 Public Shared conn As New MySql.Data.MySqlClient.MySqlConnection Public Shared da As Common.DbDataAdapter Dim sql As String
Public Shared Sub abfrage_ausfuehren_start_form(ByVal dieser_sql As String)
Try
conn.ConnectionString = myConnectionString
conn.Open()
da = New MySqlDataAdapter(dieser_sql, conn)
Dim dt As New DataTable
da.Fill(dt)
Form1.anzahl_datensaetze.Text = dt.Rows.Count.ToString
Form1.LMitarbeiter.DataSource = dt
conn.Close()
Catch ex As MySql.Data.MySqlClient.MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
sql = "SELECT * FROM Kunden"
abfrage_ausfuehren_start_form(sql)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
sql = "SELECT * FROM Mitarbeiter"
abfrage_ausfuehren_start_form(sql)
PMitarbeiter.Show()
End Sub
Private Sub DataGridView1_CellMouseDoubleClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles LMitarbeiter.CellMouseDoubleClick
Dim selRow As Integer = Me.LMitarbeiter.SelectedRows.Item(0).Index()
Label25.Text = LMitarbeiter.Item("Personal-Nr", selRow).Value()
TName.Text = LMitarbeiter.Item("Name", selRow).Value()
TVorname.Text = LMitarbeiter.Item("Vorname", selRow).Value
TStr.Text = LMitarbeiter.Item("Strasse", selRow).Value
TPlz.Text = LMitarbeiter.Item("PLZ", selRow).Value()
TOrt.Text = LMitarbeiter.Item("Ort", selRow).Value
TGeschlecht.Text = LMitarbeiter.Item("Geschlecht", selRow).Value
TFamilienstand.Text = LMitarbeiter.Item("Familienstand", selRow).Value()
TStaatsangehoerigkeit.Text = LMitarbeiter.Item("Staatsangehoerigkeit", selRow).Value
TIban.Text = LMitarbeiter.Item("Konto-Nr", selRow).Value
TBic.Text = LMitarbeiter.Item("BLZ", selRow).Value()
TBankbezeichnung.Text = LMitarbeiter.Item("Bankbezeichnung", selRow).Value
TKontoinhaber.Text = LMitarbeiter.Item("Kontoinhaber", selRow).Value
End Sub
End Class