Hiho,
ein weiteres Problem ergab sich, wo ich nach ewiger Suche kein Problem finde was mein Problem auslösen könnte und finde auch keine Lösung zu dem mir nicht bekannten Problem. Anstatt mit einer Datenbank möchte ich mit XML in meinem Programm arbeiten. Deswegen habe ich auf den Button der auch den Vertragdruck ausführt, ein Bereich reingearbeitet wo eine XML Datei mit allen Daten angelegt und gespeichert werden. Dieses sieht wie folgt aus:
Das scheint auch Grundlegend zu klappen. Er speichert die Datei ab in diesem Beispiel dann unter "J2KL87U2-kunde-Buchmann" also wie ich es auch möchte "Kundenummer-Kunde-Nachname ! Öffne ich nun die Datei scheinen auch die ersten Schritte ohne Problem zu funktionieren, daher in der Datei:
aufzufinden ist. Also scheint er ja auf jedenfall ohne Probleme den Bereich
alles danach scheint er nicht anzulegen, ich bekomme aber auch keinerlei Fehlermeldung. Die Druckvorschau die sich nach der Speicherung öffnet übernimmt die Variablen aber perfekt an den Stellen wo die Daten rein gehören, womit sich ausschließt das die Variablen nicht arbeiten. Hat jemand eine Idee oder Lösung ?
Liebe Grüße
ein weiteres Problem ergab sich, wo ich nach ewiger Suche kein Problem finde was mein Problem auslösen könnte und finde auch keine Lösung zu dem mir nicht bekannten Problem. Anstatt mit einer Datenbank möchte ich mit XML in meinem Programm arbeiten. Deswegen habe ich auf den Button der auch den Vertragdruck ausführt, ein Bereich reingearbeitet wo eine XML Datei mit allen Daten angelegt und gespeichert werden. Dieses sieht wie folgt aus:
VB.NET-Quellcode
- Public Sub BTNAufBes_Click(sender As Object, e As EventArgs) Handles BTNAufBes.Click
- RegVorname = NAVorname.Text
- RegNachname = NANachname.Text
- RegAusweiss = NAAusweissnummer.Text
- RegWohnhaft = NAWohnort.Text
- RegGeraet = NAGeraet.Text
- RegIMEI = NaIMEI.Text
- RegModel = NAModel.Text
- RegSchaden = NASchaden.Text
- RegPreis = NAPreis.Text
- RegTermin = NATermin.Text
- RegTel = NATelefon.Text
- 'XML Section'
- Dim XmlDoc As New XmlDocument
- 'XML Declaration
- Dim XmlDeclaration As XmlDeclaration = XmlDoc.CreateXmlDeclaration("1.0", "UTF-8", Nothing)
- 'RootElement Section
- Dim RootNode As XmlElement = XmlDoc.CreateElement("RootNode")
- XmlDoc.InsertBefore(XmlDeclaration, XmlDoc.DocumentElement)
- XmlDoc.AppendChild(RootNode)
- 'New <Category> element add to the root node
- Dim ParentNode As XmlElement = XmlDoc.CreateElement("Kunde")
- 'Set attribute name and value!
- ParentNode.SetAttribute("Datensatz", RegAusweiss)
- XmlDoc.DocumentElement.PrependChild(ParentNode)
- (Elements)
- Dim AusweissID As XmlElement = XmlDoc.CreateElement("AusweissID")
- Dim Vorname As XmlElement = XmlDoc.CreateElement("Vorname")
- Dim Nachname As XmlElement = XmlDoc.CreateElement("Nachname")
- Dim Wohnort As XmlElement = XmlDoc.CreateElement("Wohnort")
- Dim Telefon As XmlElement = XmlDoc.CreateElement("Telefon")
- (Text Elements)
- Dim AusweissIDFeld As XmlText = XmlDoc.CreateTextNode(RegAusweiss)
- Dim VornameFeld As XmlText = XmlDoc.CreateTextNode(RegVorname)
- Dim NachnameFeld As XmlText = XmlDoc.CreateTextNode(RegNachname)
- Dim WohnhaftFeld As XmlText = XmlDoc.CreateTextNode(RegWohnhaft)
- Dim TelefonFeld As XmlText = XmlDoc.CreateTextNode(RegTel)
- ParentNode.AppendChild(AusweissIDFeld)
- ParentNode.AppendChild(VornameFeld)
- ParentNode.AppendChild(NachnameFeld)
- ParentNode.AppendChild(WohnhaftFeld)
- ParentNode.AppendChild(TelefonFeld)
- 'save the value of the fields into the nodes
- AusweissID.AppendChild(AusweissIDFeld)
- Vorname.AppendChild(VornameFeld)
- Nachname.AppendChild(NachnameFeld)
- Wohnort.AppendChild(WohnhaftFeld)
- Telefon.AppendChild(TelefonFeld)
- 'Save to the XML file
- XmlDoc.Save(RegAusweiss + "-kunde-" + RegNachname + ".xml")
- 'XML SEKTION ENDE'
- Using dlg As New PrintPreviewDialog
- Me.PrintDocument1.DocumentName = "Test" ' Arbeitstitel
- dlg.Document = Me.PrintDocument1
- dlg.ShowDialog()
- End Using
- End Sub
Das scheint auch Grundlegend zu klappen. Er speichert die Datei ab in diesem Beispiel dann unter "J2KL87U2-kunde-Buchmann" also wie ich es auch möchte "Kundenummer-Kunde-Nachname ! Öffne ich nun die Datei scheinen auch die ersten Schritte ohne Problem zu funktionieren, daher in der Datei:
aufzufinden ist. Also scheint er ja auf jedenfall ohne Probleme den Bereich
VB.NET-Quellcode
- 'XML Section'
- Dim XmlDoc As New XmlDocument
- 'XML Declaration
- Dim XmlDeclaration As XmlDeclaration = XmlDoc.CreateXmlDeclaration("1.0", "UTF-8", Nothing)
- 'RootElement Section
- Dim RootNode As XmlElement = XmlDoc.CreateElement("RootNode")
- XmlDoc.InsertBefore(XmlDeclaration, XmlDoc.DocumentElement)
- XmlDoc.AppendChild(RootNode)
- 'New <Category> element add to the root node
- Dim ParentNode As XmlElement = XmlDoc.CreateElement("Kunde")
- 'Set attribute name and value!
- ParentNode.SetAttribute("Datensatz", RegAusweiss)
- XmlDoc.DocumentElement.PrependChild(ParentNode)
alles danach scheint er nicht anzulegen, ich bekomme aber auch keinerlei Fehlermeldung. Die Druckvorschau die sich nach der Speicherung öffnet übernimmt die Variablen aber perfekt an den Stellen wo die Daten rein gehören, womit sich ausschließt das die Variablen nicht arbeiten. Hat jemand eine Idee oder Lösung ?
Liebe Grüße