Hallo liebe Mitglieder
ich habe folgendes Problem: ich würde gerne meine Daten speichern können. Ich habe es geschafft die Funktion "Speichern unter" zu integrieren.
Was mir fehlt ist das ich die Daten einfach speichern kann ohne das sich das dialogfenster öffnet. Also die sollen aktualisiert werden. Hoffe die Erklärung reicht. Das ist mien Code dazu.
Dim ds1 As New DataSet("FIX_LENGTH_INTERFACE")
Dim dt As New DataTable("B00")
dt.Columns.Add("Name", GetType(String))
dt.Columns.Add("Alter", GetType(String))
dt.Columns.Add("Geburtsjahr", GetType(Integer))
dt.Columns.Add("PLZ", GetType(String))
dt.Columns.Add("von", GetType(Integer))
dt.Columns.Add("bis", GetType(Integer))
dt.Columns.Add("Bemerkung", GetType(String))
ds1.Tables.Add(dt)
Dim dr As DataRow
dr = dt.NewRow
dr("Name") &= txbName.Text
dr("Alter") &= cbAlter.Text
dr("Geburtsjahr") &= txbGeburtsjahr.Text
dr("PLZ") &= txbPLZ.Text
dr("von") &= txbVon.Text
dr("bis") &= txtBis.Text
dr("Bemerkung") &= txbBemerkung.Text
dt.Rows.Add(dr)
dgvXML.DataSource = dt
SaveFileDialog1.Filter = "Xml File(.xml)|*.xml"
Dim useClick As Boolean = SaveFileDialog1.ShowDialog()
If (useClick = True) Then
Dim stream = SaveFileDialog1.OpenFile()
ds1.WriteXml(stream)
End If
ich habe folgendes Problem: ich würde gerne meine Daten speichern können. Ich habe es geschafft die Funktion "Speichern unter" zu integrieren.
Was mir fehlt ist das ich die Daten einfach speichern kann ohne das sich das dialogfenster öffnet. Also die sollen aktualisiert werden. Hoffe die Erklärung reicht. Das ist mien Code dazu.
Dim ds1 As New DataSet("FIX_LENGTH_INTERFACE")
Dim dt As New DataTable("B00")
dt.Columns.Add("Name", GetType(String))
dt.Columns.Add("Alter", GetType(String))
dt.Columns.Add("Geburtsjahr", GetType(Integer))
dt.Columns.Add("PLZ", GetType(String))
dt.Columns.Add("von", GetType(Integer))
dt.Columns.Add("bis", GetType(Integer))
dt.Columns.Add("Bemerkung", GetType(String))
ds1.Tables.Add(dt)
Dim dr As DataRow
dr = dt.NewRow
dr("Name") &= txbName.Text
dr("Alter") &= cbAlter.Text
dr("Geburtsjahr") &= txbGeburtsjahr.Text
dr("PLZ") &= txbPLZ.Text
dr("von") &= txbVon.Text
dr("bis") &= txtBis.Text
dr("Bemerkung") &= txbBemerkung.Text
dt.Rows.Add(dr)
dgvXML.DataSource = dt
SaveFileDialog1.Filter = "Xml File(.xml)|*.xml"
Dim useClick As Boolean = SaveFileDialog1.ShowDialog()
If (useClick = True) Then
Dim stream = SaveFileDialog1.OpenFile()
ds1.WriteXml(stream)
End If