title image


Smiley Re: Datenabank wieder speichern ?? ... VB.NET
also mein quelltext sieht wie folgt aus:







      

        Dim Dateiname As String, Datei

        Dim objDataSet_1 As DataSet

        Dim objDataSet_2 As DataSet

        'Dim objDataAdapter_1 As OleDb.OleDbDataAdapter

        'Dim objDataAdapter_2 As OleDb.OleDbDataAdapter

        '       Auswahl der Datenbank per Open-Dialog

        OpenFileDialog1.Filter = "Access-Datenbank (*.mdb)|*.mdb"

        OpenFileDialog1.FileName = "Test1.mdb"

        OpenFileDialog1.ShowDialog()

        Dateiname = OpenFileDialog1.FileName

        '       erstellen der Verbindung und DatenSet ...

        If Dateiname <> "" Then

            Dim objConnection As OleDb.OleDbConnection = _

               New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Dateiname)

            Dim objDataAdapter_1 As OleDb.OleDbDataAdapter

            Dim objDataAdapter_2 As OleDb.OleDbDataAdapter

            Dim objDataView As DataView

            'Beim Laden wird ein neues DataSet erstellt. Die Verbindung zur 

            'definierten Datenbank wird hergestellt. Damit wird mit einer 

            'SQL-Anweisung auf die entsprechenden Daten einer Tabelle (oder Abfrage) zugegriffen. 

            'Der DataAdapter wird gefüllt, das DataView-Objekt verweist auf eine Tabelle:



            objDataView = Nothing

            objDataSet_1 = New DataSet

            objDataSet_2 = New DataSet

            objConnection.Open()

            Dim CB As OleDbCommandBuilder = New OleDbCommandBuilder(objDataAdapter_1)





            objDataAdapter_1 = New OleDb.OleDbDataAdapter("\cf6 SELECT * \cf6 FROM Test1", objConnection)

            objDataAdapter_1.Fill(objDataSet_1, "Test1")

            objDataView = New DataView(objDataSet_1.Tables("Test1"))

            objDataAdapter_2 = New OleDb.OleDbDataAdapter("\cf6 SELECT * \cf6 FROM Test1Bestueckung", objConnection)

            objDataAdapter_2.Fill(objDataSet_2, "Test1Bestueckung")

            objDataView = New DataView(objDataSet_2.Tables("Test1Bestueckung"))







            Dim objZeile As DataRow

            objZeile = objDataSet_1.Tables("Test1").NewRow()

            With objZeile

                .Item(1) = TextBox1.Text

                .Item(2) = Now '.ToShortDateString '& Now.ToShortTimeString

                .Item(3) = TextBox3.Text

                '.Item("RunNr") = 111 'TextBox4.Text

                '.Item("ID") = 222 'TextBox5.Text

            End With

            objDataSet_1.Tables("Test1").Rows.Add(objZeile)

            objDataAdapter_1.Update(objDataSet_1, "Test1")







            DataGrid1.DataSource = objDataSet_1

            objDataAdapter_1.Fill(objDataSet_1)

            DataGrid2.DataSource = objDataSet_2

            objDataAdapter_2.Fill(objDataSet_2)



            objConnection.Close()

        End If

 



Code eingefügt mit Syntaxhighlighter 3.0









wie gesagt ... update funktioniert da nicht ... also löst einen fehler aus!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: