Anbindung von Textboxen an Datenbank

Option Explicit On

'Systemobjekte  
Imports System.Data

'MS Access  
Imports System.Data.OleDb

Public Class frm_Einstellungen

    Private Private_tbl_EMailKonten_BindingSource As New BindingSource()
    Private Private_tbl_EMailKonten_Adapter As New OleDbDataAdapter()
    Private Private_tbl_EMailKonten_CommandBuilder As New OleDbCommandBuilder()

    Private Private_tbl_EMailKonten_DataSet As New DataSet

    Private Private_tbl_DMC_data_CurrentID As Long

    Private Private_ArrayDBFelder() As Control = Nothing

    Private Sub frm_Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            frm_Start.Hide()

            'Ersten Datensatz in Tabelle schreiben  
            If DBExcecute("SELECT COUNT(*) AS RecordCounts FROM " & Const_tbl_EMailKonten, "RecordCounts") = 0 Then  
                Call DBExcecute("INSERT INTO " & Const_tbl_EMailKonten & " (EMailKonto) VALUES (" & ConstSQLEscape & Nothing & ConstSQLEscape & ")")  
            End If

            'Datenbank anbinden  
            Dim TV_SQLString As String = "SELECT * FROM " & Const_tbl_EMailKonten  

			
            'Databinding  
            Private_tbl_EMailKonten_BindingSource.DataSource = CreateDataTable(TV_SQLString, "DS_EMailKonten")  
			
            'Command Builder  
            Private_tbl_EMailKonten_Adapter = New OleDbDataAdapter(TV_SQLString, Public_MSAccConnectString)
            Private_tbl_EMailKonten_Adapter.Fill(Private_tbl_EMailKonten_DataSet, "DS_EMailKonten")  


            '################## Hier ist der neue teil  
            Private_tbl_EMailKonten_CommandBuilder = New OleDbCommandBuilder(Private_tbl_EMailKonten_Adapter
            '################## Hier ist der neue teil  

            With Private_tbl_EMailKonten_BindingSource
                cb_EMailKonto.DataSource = .DataSource
                cb_EMailKonto.DisplayMember = "EMailKonto"  
                cb_EMailKonto.ValueMember = "MyID"  

                Private_tbl_DMC_data_CurrentID = .DataSource.Rows(0)("MyID")  
                tb_Benutzername.DataBindings.Add("Text", .DataSource, "Benutzername")  
                tb_MailDomain.DataBindings.Add("Text", .DataSource, "MailDomain")  
                tb_Passwort.DataBindings.Add("Text", .DataSource, "Passwort")  
                tb_POPServer.DataBindings.Add("Text", .DataSource, "POPServer")  
                tb_POPPort.DataBindings.Add("Text", .DataSource, "POPPort")  
                tb_SMTPServer.DataBindings.Add("Text", .DataSource, "SMTPServer")  
                tb_SMTPPort.DataBindings.Add("Text", .DataSource, "SMTPPort")  
            End With
			
			...

        Catch ex As Exception
            MsgBox(ex.Message, vbOKOnly + vbCritical)

        End Try

    End Sub

    Private Sub btn_Speichern_Click(sender As Object, e As EventArgs) Handles btn_Speichern.Click

        Private_tbl_EMailKonten_Adapter.UpdateCommand = Private_tbl_EMailKonten_CommandBuilder.GetUpdateCommand()

        Private_tbl_EMailKonten_Adapter.Update(CType(Private_tbl_EMailKonten_BindingSource.DataSource, DataTable)) 'Datenherkunft aus BindingSource  

    End Sub

End Class

Option Explicit On

'Systemobjekte  
Imports System.Data

'MS Access  
Imports System.Data.OleDb

Public Class Form1

    Private Private_tbl_EMailKonten_DA As New OleDbDataAdapter()
    Private Private_tbl_EMailKonten_DS As New DataSet
    Private Private_tbl_EMailKonten_RS As String = "DS_EMailKonten"  

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim SQLString As String = "SELECT * FROM tbl_EVA_EMailKonten"  
        Dim SQLConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Test\EVADat_vbNet.mdb" & ";Jet OLEDB:Engine Type=5"  

        Private_tbl_EMailKonten_DA = New OleDbDataAdapter(SQLString, SQLConString)
        Private_tbl_EMailKonten_DA.Fill(Private_tbl_EMailKonten_DS, Private_tbl_EMailKonten_RS)

        Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(Private_tbl_EMailKonten_DA)
        Private_tbl_EMailKonten_DA.UpdateCommand = builder.GetUpdateCommand()

        Dim dt As DataTable = Private_tbl_EMailKonten_DS.Tables(Private_tbl_EMailKonten_RS)

        'Combobox binden  
        ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "Benutzername"  
        ComboBox1.ValueMember = "MyID"  

        'Textfelder binden  
        With Private_tbl_EMailKonten_DS
            TextBox1.DataBindings.Add("Text", .Tables(Private_tbl_EMailKonten_RS), "Benutzername")  
            TextBox2.DataBindings.Add("Text", .Tables(Private_tbl_EMailKonten_RS), "MailDomain")  
        End With

        ComboBox1.DisplayMember = "EMailKonto"  
        ComboBox1.ValueMember = "MyID"  

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Private_tbl_EMailKonten_DA.Update(Private_tbl_EMailKonten_DS, Private_tbl_EMailKonten_RS)

    End Sub

End Class