000
11.07.2005, 07:45 Uhr
irminsul
|
morsche,
entweder stell ich mich mal wieder echt zu doof an oder so ... jedenfalls will ich ne datenbank nachdem ich daten hinzugefügt habe (hier funnktionier allerdings die update-methode auch irgednwie nich so recht) wieder speichern.
ich komm damit net klar ...
hier mal der quellcode ....
| Visual Basic: |
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
|
ich hoffe es kann mir jmd helfen ...
DANKE ! |
