Sammlung einer Combobox erweitern und Speichern

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Blackn0va.

    Sammlung einer Combobox erweitern und Speichern

    Hallo ,


    ich habe eine kleine Anwendung zur Inventarisierung, in der Form sind einige Comboboxen die Ungebundene Inhalte besitzen die aus der Sammlung kommen.

    Die Sammlung der Combobox kann ich zur Laufzeit erweitern mit:

    VB.NET-Quellcode

    1. ​comboBox1.Items.Add(textBox1.Text)


    Aber der Eintrag in der Sammlung wird nicht Gespeichert. Kann mir jemand einen Tipp geben?

    Ich sehe ja auch nirgends ein Code Schnippsel der irgendwas speichern soll.
    Magst du den noch nachreichen?
    Ungebundene Comboboxen sind immer doof, setzt da doch ein Dataset mit Datatable hinter, dann geht das speichern ganz einfach

    Ja also Hier der Code.. Ich weiß das ich das Recht umständlich mache, nur hab ich einfach Schwierigkeiten mit gebundenen Comboboxen, da hab ich immer wieder Schwierigkeiten mit der Form und der Darstellung der Einträge in der XML..


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Xml
    3. Imports System.IO
    5. Public Class Hauptprogramm
    7. '** Globale Variablendeklaration **
    8. Dim DateiPfad As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "/abc.xml"
    10. Private Sub cmdSpeichern_Click(sender As Object, e As EventArgs) Handles cmdSpeichern.Click
    11. '** Deklarationen **
    12. Dim xmldoc As XmlDocument
    14. xmldoc = New XmlDocument
    15. If System.IO.File.Exists(DateiPfad) Then
    16. xmldoc.Load(DateiPfad)
    17. Else
    18. Dim enc As New System.Text.UnicodeEncoding
    19. ' XmlTextWriter-Objekt für unsere Ausgabedatei erzeugen:
    20. Dim XMLobj As Xml.XmlTextWriter = New Xml.XmlTextWriter(DateiPfad, enc)
    21. With XMLobj
    22. .Formatting = Xml.Formatting.Indented
    23. .Indentation = 4
    24. ' Dann fangen wir mal an:
    25. .WriteStartDocument()
    26. .WriteStartElement("Inventar")
    27. .WriteEndElement()
    28. .Close()
    29. End With
    30. xmldoc.Load(DateiPfad)
    31. End If
    33. Dim xml_Termin As XmlNode
    35. '** Vorname Definieren **
    36. xml_Termin = xmldoc.CreateElement("Mitarbeiter")
    38. '**Vorname **
    39. Dim xml_Vorname As XmlAttribute
    40. xml_Vorname = xmldoc.CreateAttribute("Vorname")
    42. Dim xml_Nachname As XmlAttribute
    43. xml_Nachname = xmldoc.CreateAttribute("Nachname")
    45. Dim xml_Handyeigentuemer As XmlAttribute
    46. xml_Handyeigentuemer = xmldoc.CreateAttribute("Handyeigentümer")
    48. Dim xml_SIMEigentuemer As XmlAttribute
    49. xml_SIMEigentuemer = xmldoc.CreateAttribute("SIM-eigentümer")
    51. Dim xml_Vertragspartner As XmlAttribute
    52. xml_Vertragspartner = xmldoc.CreateAttribute("Vertragspartner")
    54. Dim xml_Rechnungsempfaenger As XmlAttribute
    55. xml_Rechnungsempfaenger = xmldoc.CreateAttribute("Rechnungsempfänger")
    57. Dim xml_Handytyp As XmlAttribute
    58. xml_Handytyp = xmldoc.CreateAttribute("Handytyp")
    60. Dim xml_HandySN As XmlAttribute
    61. xml_HandySN = xmldoc.CreateAttribute("Handy-SN")
    63. Dim xml_SIMSN As XmlAttribute
    64. xml_SIMSN = xmldoc.CreateAttribute("SIM-SN")
    66. Dim xml_SIMTyp As XmlAttribute
    67. xml_SIMTyp = xmldoc.CreateAttribute("SIM-Typ")
    69. Dim xml_SIMPIN As XmlAttribute
    70. xml_SIMPIN = xmldoc.CreateAttribute("SIM-PIN")
    72. Dim xml_SIMPUK As XmlAttribute
    73. xml_SIMPUK = xmldoc.CreateAttribute("SIM-PUK")
    75. Dim xml_NotizSIM As XmlAttribute
    76. xml_NotizSIM = xmldoc.CreateAttribute("Notiz-SIM")
    78. Dim xml_Tarif As XmlAttribute
    79. xml_Tarif = xmldoc.CreateAttribute("Tarif")
    81. Dim xml_mtlKostenNetto As XmlAttribute
    82. xml_mtlKostenNetto = xmldoc.CreateAttribute("Mtl_Kosten_Netto")
    84. Dim xml_mtlKostenBrutto As XmlAttribute
    85. xml_mtlKostenBrutto = xmldoc.CreateAttribute("Mtl_Kosten_Brutto")
    87. Dim xml_RahmenvertragsNr As XmlAttribute
    88. xml_RahmenvertragsNr = xmldoc.CreateAttribute("Rahmenvertrags-Nr")
    90. Dim xml_KundenNr As XmlAttribute
    91. xml_KundenNr = xmldoc.CreateAttribute("Kunden-Nr")
    93. Dim xml_kundenkonto As XmlAttribute
    94. xml_kundenkonto = xmldoc.CreateAttribute("Kundenkonto")
    96. Dim xml_Vertragsbeginn As XmlAttribute
    97. xml_Vertragsbeginn = xmldoc.CreateAttribute("Vertragsbeginn")
    99. Dim xml_Vertragsende As XmlAttribute
    100. xml_Vertragsende = xmldoc.CreateAttribute("Vertragsende")
    102. Dim xml_kuendigungsfristBis As XmlAttribute
    103. xml_kuendigungsfristBis = xmldoc.CreateAttribute("Kuendigungsfrist-bis")
    105. Dim xml_iPadVonDomicil As XmlAttribute
    106. xml_iPadVonDomicil = xmldoc.CreateAttribute("iPadVonDomicil")
    108. Dim xml_iPadSN As XmlAttribute
    109. xml_iPadSN = xmldoc.CreateAttribute("iPad-SN")
    111. Dim xml_PCTyp As XmlAttribute
    112. xml_PCTyp = xmldoc.CreateAttribute("PC-Typ")
    114. Dim xml_PCInventarNr As XmlAttribute
    115. xml_PCInventarNr = xmldoc.CreateAttribute("PC-Inventar-Nr")
    117. Dim xml_Notebooktyp As XmlAttribute
    118. xml_Notebooktyp = xmldoc.CreateAttribute("Notebooktyp")
    120. Dim xml_NotebookSN As XmlAttribute
    121. xml_NotebookSN = xmldoc.CreateAttribute("Notebook-SN")
    123. Dim xml_NotebookInventNr As XmlAttribute
    124. xml_NotebookInventNr = xmldoc.CreateAttribute("Notebook-Inventar-Nr")
    126. Dim xml_AnzahlExtMonitore As XmlAttribute
    127. xml_AnzahlExtMonitore = xmldoc.CreateAttribute("Anzahl-Ext-Monitore")
    129. Dim xml_Dockingstation As XmlAttribute
    130. xml_Dockingstation = xmldoc.CreateAttribute("Dockingstation")
    132. Dim xml_Headset As XmlAttribute
    133. xml_Headset = xmldoc.CreateAttribute("Headset")
    135. Dim xml_NotizPC As XmlAttribute
    136. xml_NotizPC = xmldoc.CreateAttribute("Notiz-PC")
    138. '**Vorname Speichern **
    139. xml_Vorname.InnerText = txtName.Text
    141. '** Nachname Speichern **
    142. xml_Nachname.InnerText = txtNachname.Text
    144. '** Handyeigentümer Speichern *
    145. If cboHandyeigentuemer.SelectedIndex = -1 Then
    146. Else
    147. xml_Handyeigentuemer.InnerText = cboHandyeigentuemer.SelectedItem.ToString()
    148. End If
    150. '** SIM Eigentümer **
    151. If cboSIMEigentuemer.SelectedIndex = -1 Then
    152. Else
    153. xml_SIMEigentuemer.InnerText = cboSIMEigentuemer.SelectedItem.ToString()
    154. End If
    156. '** Vertragspartner **
    157. xml_Vertragspartner.InnerText = txtVertragspartner.Text
    159. '** Rechnungsempfänger **
    160. If cboRechnungsempfaenger.SelectedIndex = -1 Then
    161. Else
    162. xml_Rechnungsempfaenger.InnerText = cboRechnungsempfaenger.SelectedItem.ToString()
    163. End If
    165. '** Handytyp **
    166. If cboHandytyp.SelectedIndex = -1 Then
    167. Else
    168. xml_Handytyp.InnerText = cboHandytyp.SelectedItem.ToString()
    169. End If
    171. '** HandySN **
    172. xml_HandySN.InnerText = txtHandySN.Text
    174. '* SIM-SN **
    175. xml_SIMSN.InnerText = txtSIMSN.Text
    177. '** Sim-Typ **
    178. If cboSIMTyp.SelectedIndex = -1 Then
    179. Else
    180. xml_SIMTyp.InnerText = cboSIMTyp.SelectedItem.ToString()
    181. End If
    183. '** SimPIN **
    184. xml_SIMPIN.InnerText = txtSIMPin.Text
    186. '** SimPUK **
    187. xml_SIMPUK.InnerText = txtSIMPUK.Text
    189. '** Notiz SIM **
    190. xml_NotizSIM.InnerText = txtNotizSIm.Text
    192. '** Tarif **
    193. xml_Tarif.InnerText = txtTarif.Text
    195. '** Mtl Kosten Netto **
    196. xml_mtlKostenNetto.InnerText = txtMtlKostenNetto.Text
    198. '** Mtl Kosten Brutto **
    199. xml_mtlKostenBrutto.InnerText = txtMtlKostenBrutto.Text
    201. '** Rahmenvertragsnummer **
    202. xml_RahmenvertragsNr.InnerText = txtRahmenvertragsnummer.Text
    204. '** Kundennummer **
    205. xml_KundenNr.InnerText = txtKundenNr.Text
    207. '** Kundenkonto **
    208. xml_kundenkonto.InnerText = txtKundenkonto.Text
    210. '**Vertragsbeginn **
    211. If dtpVertragsbeginn.Checked = True Then
    212. xml_Vertragsbeginn.InnerText = dtpVertragsbeginn.Value.ToShortDateString()
    213. Else
    214. End If
    216. '** Vertragsende **
    217. If dtpVertragsende.Checked = True Then
    218. xml_Vertragsende.InnerText = dtpVertragsende.Value.ToShortDateString()
    219. Else
    220. End If
    222. '** Kündigungsfrist **
    223. If dtpKuendigungsfrist.Checked = True Then
    224. xml_kuendigungsfristBis.InnerText = dtpKuendigungsfrist.Value.ToShortDateString()
    225. Else
    226. End If
    228. '** iPad von Domicil **
    229. xml_iPadVonDomicil.InnerText = ckbiPadVonDomicil.CheckState.ToString()
    231. '** iPad Seriennummer **
    232. xml_iPadSN.InnerText = txtiPadSN.Text
    234. '** PC-Typ **
    235. If cboPcTyp.SelectedIndex = -1 Then
    236. Else
    237. xml_PCTyp.InnerText = cboPcTyp.SelectedItem.ToString()
    238. End If
    240. '** PC Inventar Nr **
    241. xml_PCInventarNr.InnerText = txtPCInventarNr.Text
    243. '** Notebooktyp **
    244. If cboNotebooktyp.SelectedIndex = -1 Then
    245. Else
    246. xml_Notebooktyp.InnerText = cboNotebooktyp.SelectedItem.ToString()
    247. End If
    249. '** Notebook SN **
    250. xml_NotebookSN.InnerText = txtNotebookSN.Text
    252. '** Notebook Inventar Nr **
    253. xml_NotebookInventNr.InnerText = txtNotebookInventNr.Text
    255. '** Anzahl Externer Monitore **
    256. xml_AnzahlExtMonitore.InnerText = numAnzahlExtMonitore.Value.ToString()
    258. '** Dockingstation **
    259. xml_Dockingstation.InnerText = ckbDockingstation.CheckState.ToString()
    261. '** Headset **
    262. xml_Headset.InnerText = ckbHeadset.CheckState.ToString()
    264. '** Notiz PC**
    265. xml_NotizPC.InnerText = txtNotizPC.Text
    267. xml_Termin.Attributes.Append(xml_Vorname)
    268. xml_Termin.Attributes.Append(xml_Nachname)
    269. xml_Termin.Attributes.Append(xml_Handyeigentuemer)
    270. xml_Termin.Attributes.Append(xml_SIMEigentuemer)
    271. xml_Termin.Attributes.Append(xml_Vertragspartner)
    272. xml_Termin.Attributes.Append(xml_Rechnungsempfaenger)
    273. xml_Termin.Attributes.Append(xml_Handytyp)
    274. xml_Termin.Attributes.Append(xml_HandySN)
    275. xml_Termin.Attributes.Append(xml_SIMSN)
    276. xml_Termin.Attributes.Append(xml_SIMTyp)
    277. xml_Termin.Attributes.Append(xml_SIMPIN)
    278. xml_Termin.Attributes.Append(xml_SIMPUK)
    279. xml_Termin.Attributes.Append(xml_NotizSIM)
    280. xml_Termin.Attributes.Append(xml_Tarif)
    281. xml_Termin.Attributes.Append(xml_mtlKostenNetto)
    282. xml_Termin.Attributes.Append(xml_mtlKostenBrutto)
    283. xml_Termin.Attributes.Append(xml_RahmenvertragsNr)
    284. xml_Termin.Attributes.Append(xml_KundenNr)
    285. xml_Termin.Attributes.Append(xml_kundenkonto)
    286. xml_Termin.Attributes.Append(xml_Vertragsbeginn)
    287. xml_Termin.Attributes.Append(xml_Vertragsende)
    288. xml_Termin.Attributes.Append(xml_kuendigungsfristBis)
    289. xml_Termin.Attributes.Append(xml_iPadVonDomicil)
    290. xml_Termin.Attributes.Append(xml_iPadSN)
    291. xml_Termin.Attributes.Append(xml_PCTyp)
    292. xml_Termin.Attributes.Append(xml_PCInventarNr)
    293. xml_Termin.Attributes.Append(xml_Notebooktyp)
    294. xml_Termin.Attributes.Append(xml_NotebookSN)
    295. xml_Termin.Attributes.Append(xml_NotebookInventNr)
    296. xml_Termin.Attributes.Append(xml_AnzahlExtMonitore)
    297. xml_Termin.Attributes.Append(xml_Dockingstation)
    298. xml_Termin.Attributes.Append(xml_Headset)
    299. xml_Termin.Attributes.Append(xml_NotizPC)
    301. '** Speichern des XML Dokuments **
    302. xmldoc.DocumentElement.AppendChild(xml_Termin)
    303. xmldoc.Save(DateiPfad)
    305. '** Textfelder Leeren **
    306. txtName.Text = ""
    307. txtNachname.Text = ""
    308. cboHandyeigentuemer.SelectedIndex = -1
    309. cboSIMEigentuemer.SelectedIndex = -1
    310. txtVertragspartner.Text = ""
    311. cboRechnungsempfaenger.SelectedIndex = -1
    312. cboHandytyp.SelectedIndex = -1
    313. txtHandySN.Text = ""
    314. txtSIMSN.Text = ""
    315. cboSIMTyp.SelectedIndex = -1
    316. txtSIMPin.Text = ""
    317. txtSIMPUK.Text = ""
    318. txtNotizSIm.Text = ""
    319. txtTarif.Text = ""
    320. txtMtlKostenNetto.Text = ""
    321. txtMtlKostenBrutto.Text = ""
    322. txtRahmenvertragsnummer.Text = ""
    323. txtKundenNr.Text = ""
    324. txtKundenkonto.Text = ""
    325. dtpVertragsbeginn.Checked = False
    326. dtpVertragsende.Checked = False
    327. dtpKuendigungsfrist.Checked = False
    328. ckbiPadVonDomicil.Checked = False
    329. txtiPadSN.Text = ""
    330. cboPcTyp.SelectedIndex = -1
    331. txtPCInventarNr.Text = ""
    332. cboNotebooktyp.SelectedIndex = -1
    333. txtNotebookSN.Text = ""
    334. txtNotebookInventNr.Text = ""
    335. numAnzahlExtMonitore.Value = 0
    336. ckbDockingstation.Checked = False
    337. txtNotizPC.Text = ""
    338. cboSIMEigentuemer.SelectedIndex = -1
    339. ckbHeadset.Checked = False
    341. End Sub
    343. Private Sub Hauptprogramm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    345. InventarDataSet.ReadXml(DateiPfad)
    347. DataGridView1.DataSource = InventarDataSet
    348. DataGridView1.DataMember = "Mitarbeiter"
    349. End Sub
    351. Private Sub cmdHandyHinzufügen_Click(sender As Object, e As EventArgs) Handles cmdHandyHinzufügen.Click
    352. '** Sammlung erweitertn Test **
    354. '** HIER WOLLTE ICH DIE SAMMLUNG ERWEITERN; ABER DIESE EBEN AUCH SPEICHERN **
    355. cboHandytyp.Items.Add(txtHandyHinzufügen.Text)
    357. End Sub
    358. End Class


    die Ausgabe der XML ist:
    Spoiler anzeigen

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-16"?>
    2. <Inventar>
    3. <Mitarbeiter Vorname="" Nachname="" Handyeigentümer="" SIM-eigentümer="" Vertragspartner="" Rechnungsempfänger="" Handytyp="" Handy-SN="" SIM-SN="" SIM-Typ="" SIM-PIN="" SIM-PUK="" Notiz-SIM="" Tarif="" Mtl_Kosten_Netto="" Mtl_Kosten_Brutto="" Rahmenvertrags-Nr="" Kunden-Nr="" Kundenkonto="" Vertragsbeginn="" Vertragsende="" Kuendigungsfrist-bis="" iPadVonDomicil="Unchecked" iPad-SN="" PC-Typ="" PC-Inventar-Nr="" Notebooktyp="" Notebook-SN="" Notebook-Inventar-Nr="" Anzahl-Ext-Monitore="5" Dockingstation="Unchecked" Headset="Unchecked" Notiz-PC="" />
    4. </Inventar>


    Oder kann ich einfach in einer Extra Node die Sammlung in die XML schreiben und da wieder rauslesen und in die Combobox eintragen?

    ps: Mir ist aufgefalen das im Forum der Counter für die Bearbeitung nicht richtig funktioniert. Ich hab jetzt 3 Mal bearbeitet ^

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Blackn0va“ ()

    Über die Settings kann man glaub auch "Sammlungen" speichern. Ist am unkompliziertesten.

    Woher kommt die xml?
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @Blackn0va Weise der Combobox eine DataSource zu, die kannst Du dann nach belieben erweitern und speichern, z.B. ein String-Array oder eine List(Of String).
    Pack die in eine separate Klasse und serialisiere die als XML.
    Feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    was mrMo meint ist in den My.Settings der Datentyp Specialized.String.Collection (Oder so ähnlich :))
    Die ganze schreibarbeit kannst du dir das nächste mal sparen, wenn du dir per Designer eine Dataset zusammenklickst, das übernimmt das ganze XML gehampel für dich

    Okay, das hab ich jetzt zumindest mit einer comboboy gemacht (Handytyp)

    Wenn ich nun in der Form ein neues Handy hinzufüge, werden die Inhalte in der ComboBox verdoppelt, aber der Inhalt der ComboBox wird richtig gespeichert.
    Ich habs mit cbo.items.clear() versucht, aber bei Datengebundene ComboBoxen geht das nicht.

    Was hab ich vergessen?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Xml
    3. Imports System.IO
    5. Public Class Hauptprogramm
    7. '** Globale Variablendeklaration **
    8. Dim DateiPfad As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "/abc.xml"
    10. Private Sub cmdSpeichern_Click(sender As Object, e As EventArgs) Handles cmdSpeichern.Click
    11. Speichern()
    12. End Sub
    14. Private Sub Hauptprogramm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    15. DatenLaden()
    16. End Sub
    18. Private Sub cmdHandyHinzufügen_Click(sender As Object, e As EventArgs) Handles cmdHandyHinzufügen.Click
    19. Speichern()
    20. Me.Refresh()
    21. End Sub
    23. Private Sub cmdSimTypHinzufuegen_Click(sender As Object, e As EventArgs) Handles cmdSimTypHinzufuegen.Click
    25. Speichern()
    27. End Sub
    29. Private Sub DatenLaden()
    31. '** DataGridView bei Load mit Daten befüllen **
    32. InventarDataSet.ReadXml(DateiPfad)
    33. DataGridView1.DataSource = InventarDataSet
    34. DataGridView1.DataMember = "Mitarbeiter"
    36. '** ComboBox Handytyp bei Load mit Daten befüllen **
    37. HandyTypDataSet.ReadXml(DateiPfad)
    38. Dim HandyTypBindingSource As New BindingSource(HandyTypDataSet, "Handytyp")
    39. cboHandytyp.DataSource = HandyTypBindingSource
    40. cboHandytyp.DisplayMember = "Typ"
    42. '** ComboBox Simtyp bei Load mit Daten befüllen **
    44. SimTypDataSet.ReadXml(DateiPfad)
    45. Dim SimTypBindingSource As New BindingSource(SimTypDataSet, "Simtyp")
    46. cboSIMTyp.DataSource = SimTypBindingSource
    47. cboSIMTyp.DisplayMember = "Typ"
    49. End Sub
    51. Private Sub Speichern()
    52. '** Deklarationen **
    53. Dim xmldoc As XmlDocument
    55. xmldoc = New XmlDocument
    56. If System.IO.File.Exists(DateiPfad) Then
    57. xmldoc.Load(DateiPfad)
    58. Else
    59. Dim enc As New System.Text.UnicodeEncoding
    60. ' XmlTextWriter-Objekt für unsere Ausgabedatei erzeugen:
    61. Dim XMLobj As Xml.XmlTextWriter = New Xml.XmlTextWriter(DateiPfad, enc)
    62. With XMLobj
    63. .Formatting = Xml.Formatting.Indented
    64. .Indentation = 4
    65. ' Dann fangen wir mal an:
    66. .WriteStartDocument()
    67. .WriteStartElement("Inventar")
    68. .WriteEndElement()
    69. .Close()
    70. End With
    71. xmldoc.Load(DateiPfad)
    72. End If
    74. Dim xml_Termin As XmlNode
    76. '** Vorname Definieren **
    77. xml_Termin = xmldoc.CreateElement("Mitarbeiter")
    79. '**Vorname **
    80. Dim xml_Vorname As XmlAttribute
    81. xml_Vorname = xmldoc.CreateAttribute("Vorname")
    83. Dim xml_Nachname As XmlAttribute
    84. xml_Nachname = xmldoc.CreateAttribute("Nachname")
    86. Dim xml_Handyeigentuemer As XmlAttribute
    87. xml_Handyeigentuemer = xmldoc.CreateAttribute("Handyeigentümer")
    89. Dim xml_SIMEigentuemer As XmlAttribute
    90. xml_SIMEigentuemer = xmldoc.CreateAttribute("SIM-eigentümer")
    92. Dim xml_Vertragspartner As XmlAttribute
    93. xml_Vertragspartner = xmldoc.CreateAttribute("Vertragspartner")
    95. Dim xml_Rechnungsempfaenger As XmlAttribute
    96. xml_Rechnungsempfaenger = xmldoc.CreateAttribute("Rechnungsempfänger")
    98. Dim xml_Handytyp As XmlAttribute
    99. xml_Handytyp = xmldoc.CreateAttribute("Handytyp")
    101. Dim xml_HandySN As XmlAttribute
    102. xml_HandySN = xmldoc.CreateAttribute("Handy-SN")
    104. Dim xml_SIMSN As XmlAttribute
    105. xml_SIMSN = xmldoc.CreateAttribute("SIM-SN")
    107. Dim xml_SIMTyp As XmlAttribute
    108. xml_SIMTyp = xmldoc.CreateAttribute("SIM-Typ")
    110. Dim xml_SIMPIN As XmlAttribute
    111. xml_SIMPIN = xmldoc.CreateAttribute("SIM-PIN")
    113. Dim xml_SIMPUK As XmlAttribute
    114. xml_SIMPUK = xmldoc.CreateAttribute("SIM-PUK")
    116. Dim xml_NotizSIM As XmlAttribute
    117. xml_NotizSIM = xmldoc.CreateAttribute("Notiz-SIM")
    119. Dim xml_Tarif As XmlAttribute
    120. xml_Tarif = xmldoc.CreateAttribute("Tarif")
    122. Dim xml_mtlKostenNetto As XmlAttribute
    123. xml_mtlKostenNetto = xmldoc.CreateAttribute("Mtl_Kosten_Netto")
    125. Dim xml_mtlKostenBrutto As XmlAttribute
    126. xml_mtlKostenBrutto = xmldoc.CreateAttribute("Mtl_Kosten_Brutto")
    128. Dim xml_RahmenvertragsNr As XmlAttribute
    129. xml_RahmenvertragsNr = xmldoc.CreateAttribute("Rahmenvertrags-Nr")
    131. Dim xml_KundenNr As XmlAttribute
    132. xml_KundenNr = xmldoc.CreateAttribute("Kunden-Nr")
    134. Dim xml_kundenkonto As XmlAttribute
    135. xml_kundenkonto = xmldoc.CreateAttribute("Kundenkonto")
    137. Dim xml_Vertragsbeginn As XmlAttribute
    138. xml_Vertragsbeginn = xmldoc.CreateAttribute("Vertragsbeginn")
    140. Dim xml_Vertragsende As XmlAttribute
    141. xml_Vertragsende = xmldoc.CreateAttribute("Vertragsende")
    143. Dim xml_kuendigungsfristBis As XmlAttribute
    144. xml_kuendigungsfristBis = xmldoc.CreateAttribute("Kuendigungsfrist-bis")
    146. Dim xml_iPadVonDomicil As XmlAttribute
    147. xml_iPadVonDomicil = xmldoc.CreateAttribute("iPadVonDomicil")
    149. Dim xml_iPadSN As XmlAttribute
    150. xml_iPadSN = xmldoc.CreateAttribute("iPad-SN")
    152. Dim xml_PCTyp As XmlAttribute
    153. xml_PCTyp = xmldoc.CreateAttribute("PC-Typ")
    155. Dim xml_PCInventarNr As XmlAttribute
    156. xml_PCInventarNr = xmldoc.CreateAttribute("PC-Inventar-Nr")
    158. Dim xml_Notebooktyp As XmlAttribute
    159. xml_Notebooktyp = xmldoc.CreateAttribute("Notebooktyp")
    161. Dim xml_NotebookSN As XmlAttribute
    162. xml_NotebookSN = xmldoc.CreateAttribute("Notebook-SN")
    164. Dim xml_NotebookInventNr As XmlAttribute
    165. xml_NotebookInventNr = xmldoc.CreateAttribute("Notebook-Inventar-Nr")
    167. Dim xml_AnzahlExtMonitore As XmlAttribute
    168. xml_AnzahlExtMonitore = xmldoc.CreateAttribute("Anzahl-Ext-Monitore")
    170. Dim xml_Dockingstation As XmlAttribute
    171. xml_Dockingstation = xmldoc.CreateAttribute("Dockingstation")
    173. Dim xml_Headset As XmlAttribute
    174. xml_Headset = xmldoc.CreateAttribute("Headset")
    176. Dim xml_NotizPC As XmlAttribute
    177. xml_NotizPC = xmldoc.CreateAttribute("Notiz-PC")
    179. '**Vorname Speichern **
    180. xml_Vorname.InnerText = txtName.Text
    182. '** Nachname Speichern **
    183. xml_Nachname.InnerText = txtNachname.Text
    185. '** Handyeigentümer Speichern *
    186. If cboHandyeigentuemer.SelectedIndex = -1 Then
    187. Else
    188. xml_Handyeigentuemer.InnerText = cboHandyeigentuemer.SelectedItem.ToString()
    189. End If
    191. '** SIM Eigentümer **
    192. If cboSIMEigentuemer.SelectedIndex = -1 Then
    193. Else
    194. xml_SIMEigentuemer.InnerText = cboSIMEigentuemer.SelectedItem.ToString()
    195. End If
    197. '** Vertragspartner **
    198. xml_Vertragspartner.InnerText = txtVertragspartner.Text
    200. '** Rechnungsempfänger **
    201. If cboRechnungsempfaenger.SelectedIndex = -1 Then
    202. Else
    203. xml_Rechnungsempfaenger.InnerText = cboRechnungsempfaenger.SelectedItem.ToString()
    204. End If
    206. '** Handytyp **
    207. If cboHandytyp.SelectedIndex = -1 Then
    208. Else
    209. xml_Handytyp.InnerText = cboHandytyp.SelectedItem.ToString()
    210. End If
    212. '** HandySN **
    213. xml_HandySN.InnerText = txtHandySN.Text
    215. '* SIM-SN **
    216. xml_SIMSN.InnerText = txtSIMSN.Text
    218. '** Sim-Typ **
    219. If cboSIMTyp.SelectedIndex = -1 Then
    220. Else
    221. xml_SIMTyp.InnerText = cboSIMTyp.SelectedItem.ToString()
    222. End If
    224. '** SimPIN **
    225. xml_SIMPIN.InnerText = txtSIMPin.Text
    227. '** SimPUK **
    228. xml_SIMPUK.InnerText = txtSIMPUK.Text
    230. '** Notiz SIM **
    231. xml_NotizSIM.InnerText = txtNotizSIm.Text
    233. '** Tarif **
    234. xml_Tarif.InnerText = txtTarif.Text
    236. '** Mtl Kosten Netto **
    237. xml_mtlKostenNetto.InnerText = txtMtlKostenNetto.Text
    239. '** Mtl Kosten Brutto **
    240. xml_mtlKostenBrutto.InnerText = txtMtlKostenBrutto.Text
    242. '** Rahmenvertragsnummer **
    243. xml_RahmenvertragsNr.InnerText = txtRahmenvertragsnummer.Text
    245. '** Kundennummer **
    246. xml_KundenNr.InnerText = txtKundenNr.Text
    248. '** Kundenkonto **
    249. xml_kundenkonto.InnerText = txtKundenkonto.Text
    251. '**Vertragsbeginn **
    252. If dtpVertragsbeginn.Checked = True Then
    253. xml_Vertragsbeginn.InnerText = dtpVertragsbeginn.Value.ToShortDateString()
    254. Else
    255. End If
    257. '** Vertragsende **
    258. If dtpVertragsende.Checked = True Then
    259. xml_Vertragsende.InnerText = dtpVertragsende.Value.ToShortDateString()
    260. Else
    261. End If
    263. '** Kündigungsfrist **
    264. If dtpKuendigungsfrist.Checked = True Then
    265. xml_kuendigungsfristBis.InnerText = dtpKuendigungsfrist.Value.ToShortDateString()
    266. Else
    267. End If
    269. '** iPad von Domicil **
    270. xml_iPadVonDomicil.InnerText = ckbiPadVonDomicil.CheckState.ToString()
    272. '** iPad Seriennummer **
    273. xml_iPadSN.InnerText = txtiPadSN.Text
    275. '** PC-Typ **
    276. If cboPcTyp.SelectedIndex = -1 Then
    277. Else
    278. xml_PCTyp.InnerText = cboPcTyp.SelectedItem.ToString()
    279. End If
    281. '** PC Inventar Nr **
    282. xml_PCInventarNr.InnerText = txtPCInventarNr.Text
    284. '** Notebooktyp **
    285. If cboNotebooktyp.SelectedIndex = -1 Then
    286. Else
    287. xml_Notebooktyp.InnerText = cboNotebooktyp.SelectedItem.ToString()
    288. End If
    290. '** Notebook SN **
    291. xml_NotebookSN.InnerText = txtNotebookSN.Text
    293. '** Notebook Inventar Nr **
    294. xml_NotebookInventNr.InnerText = txtNotebookInventNr.Text
    296. '** Anzahl Externer Monitore **
    297. xml_AnzahlExtMonitore.InnerText = numAnzahlExtMonitore.Value.ToString()
    299. '** Dockingstation **
    300. xml_Dockingstation.InnerText = ckbDockingstation.CheckState.ToString()
    302. '** Headset **
    303. xml_Headset.InnerText = ckbHeadset.CheckState.ToString()
    305. '** Notiz PC**
    306. xml_NotizPC.InnerText = txtNotizPC.Text
    308. xml_Termin.Attributes.Append(xml_Vorname)
    309. xml_Termin.Attributes.Append(xml_Nachname)
    310. xml_Termin.Attributes.Append(xml_Handyeigentuemer)
    311. xml_Termin.Attributes.Append(xml_SIMEigentuemer)
    312. xml_Termin.Attributes.Append(xml_Vertragspartner)
    313. xml_Termin.Attributes.Append(xml_Rechnungsempfaenger)
    314. xml_Termin.Attributes.Append(xml_Handytyp)
    315. xml_Termin.Attributes.Append(xml_HandySN)
    316. xml_Termin.Attributes.Append(xml_SIMSN)
    317. xml_Termin.Attributes.Append(xml_SIMTyp)
    318. xml_Termin.Attributes.Append(xml_SIMPIN)
    319. xml_Termin.Attributes.Append(xml_SIMPUK)
    320. xml_Termin.Attributes.Append(xml_NotizSIM)
    321. xml_Termin.Attributes.Append(xml_Tarif)
    322. xml_Termin.Attributes.Append(xml_mtlKostenNetto)
    323. xml_Termin.Attributes.Append(xml_mtlKostenBrutto)
    324. xml_Termin.Attributes.Append(xml_RahmenvertragsNr)
    325. xml_Termin.Attributes.Append(xml_KundenNr)
    326. xml_Termin.Attributes.Append(xml_kundenkonto)
    327. xml_Termin.Attributes.Append(xml_Vertragsbeginn)
    328. xml_Termin.Attributes.Append(xml_Vertragsende)
    329. xml_Termin.Attributes.Append(xml_kuendigungsfristBis)
    330. xml_Termin.Attributes.Append(xml_iPadVonDomicil)
    331. xml_Termin.Attributes.Append(xml_iPadSN)
    332. xml_Termin.Attributes.Append(xml_PCTyp)
    333. xml_Termin.Attributes.Append(xml_PCInventarNr)
    334. xml_Termin.Attributes.Append(xml_Notebooktyp)
    335. xml_Termin.Attributes.Append(xml_NotebookSN)
    336. xml_Termin.Attributes.Append(xml_NotebookInventNr)
    337. xml_Termin.Attributes.Append(xml_AnzahlExtMonitore)
    338. xml_Termin.Attributes.Append(xml_Dockingstation)
    339. xml_Termin.Attributes.Append(xml_Headset)
    340. xml_Termin.Attributes.Append(xml_NotizPC)
    342. '** Speichern **
    343. xmldoc.DocumentElement.AppendChild(xml_Termin)
    344. xmldoc.Save(DateiPfad)
    346. '** Textfelder Leeren **
    347. txtName.Text = ""
    348. txtNachname.Text = ""
    349. cboHandyeigentuemer.SelectedIndex = -1
    350. cboSIMEigentuemer.SelectedIndex = -1
    351. txtVertragspartner.Text = ""
    352. cboRechnungsempfaenger.SelectedIndex = -1
    353. cboHandytyp.SelectedIndex = -1
    354. txtHandySN.Text = ""
    355. txtSIMSN.Text = ""
    356. cboSIMTyp.SelectedIndex = -1
    357. txtSIMPin.Text = ""
    358. txtSIMPUK.Text = ""
    359. txtNotizSIm.Text = ""
    360. txtTarif.Text = ""
    361. txtMtlKostenNetto.Text = ""
    362. txtMtlKostenBrutto.Text = ""
    363. txtRahmenvertragsnummer.Text = ""
    364. txtKundenNr.Text = ""
    365. txtKundenkonto.Text = ""
    366. dtpVertragsbeginn.Checked = False
    367. dtpVertragsende.Checked = False
    368. dtpKuendigungsfrist.Checked = False
    369. ckbiPadVonDomicil.Checked = False
    370. txtiPadSN.Text = ""
    371. cboPcTyp.SelectedIndex = -1
    372. txtPCInventarNr.Text = ""
    373. cboNotebooktyp.SelectedIndex = -1
    374. txtNotebookSN.Text = ""
    375. txtNotebookInventNr.Text = ""
    376. numAnzahlExtMonitore.Value = 0
    377. ckbDockingstation.Checked = False
    378. txtNotizPC.Text = ""
    379. cboSIMEigentuemer.SelectedIndex = -1
    380. ckbHeadset.Checked = False
    382. '_________________________________________________________________
    383. '** Handytyp Definieren **
    384. xml_Termin = xmldoc.CreateElement("Handytyp")
    386. '**Handytyp **
    387. Dim xml_HandytypHinzufuegen As XmlAttribute
    388. xml_HandytypHinzufuegen = xmldoc.CreateAttribute("Typ")
    390. '**Handytyp Speichern **
    391. xml_HandytypHinzufuegen.InnerText = txtHandyHinzufügen.Text
    392. xml_Termin.Attributes.Append(xml_HandytypHinzufuegen)
    394. '** Speichern **
    395. xmldoc.DocumentElement.AppendChild(xml_Termin)
    396. xmldoc.Save(DateiPfad)
    398. '_________________________________________________________________
    399. '** Simtyp Definieren **
    400. xml_Termin = xmldoc.CreateElement("Simtyp")
    402. '**Simtyp **
    403. Dim xml_SimtypHinzufuegen As XmlAttribute
    404. xml_SimtypHinzufuegen = xmldoc.CreateAttribute("Typ")
    406. '**Simtyp Speichern **
    407. xml_SimtypHinzufuegen.InnerText = txtSimtypHinzufuegen.Text
    409. xml_Termin.Attributes.Append(xml_SimtypHinzufuegen)
    411. '** Speichern **
    412. xmldoc.DocumentElement.AppendChild(xml_Termin)
    413. xmldoc.Save(DateiPfad)
    415. End Sub
    417. End Class


    Okay also das mit den doppelten Einträgen hab ich hinbekommen, mit

    VB.NET-Quellcode

    1. ​ HandyTypDataSet.Clear()


    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Blackn0va“ ()

Facebook
Telefonspende