In Datenbank schreiben

  • VB.NET

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

    In Datenbank schreiben

    Hallo zusammen,

    Ich bräuchte mal wieder eure Hilfe, das Thema heute ist Daten in datenbank schreiben.

    Ich habe mich noch nie damit beschäftigt und daher ist meine Erfahrung gleich null.

    Derzeitige situation in meinem programm:
    Ich arbeite hauptsächlich mit Strukturen und wenn das programm läuft liegen meine daten immer in der Struktur, da es nur wenig daten waren, habe ich mich damit zufrieden gegeben diese in eine Textdatei zu schreiben wenn ich das programm beendet habe und sie beim starten des programm von der Textdatei in die Struktur geladen.
    Das alles funktioniert auch sehr gut und vor allem auch zuverlässig, aber jetzt ist die Datenmenge extrem angewachsen da ich ein neues Feature eingebaut habe und es mir mit der textspeicherung zu unübersichtlich und unsauber geworden ist, jede kleine Änderung zieht nen Haufen Arbeit mit sich.

    Nun möchte ich aber das mein Programm so bleibt, vor allem die Struktur da darauf alles basiert, jedoch möchte ich das die Daten nicht mehr von der Struktur in eine Datei gespeichert werden sondern von der Struktur direkt in die Datenbank, eine Zeile nach der anderen.

    Was habe ich bereits gemacht?
    Datenbank via vs2013 erstellt (nur eine Tabelle) und Verbindung hergestellt.

    Wo hänge ich fest?
    Ich weiß nicht wie ich Daten von der Struktur in die Datenbank übertrage bzw von der Datenbank in die Struktur einlese.

    Schonmal 1000 Dank an alle.


    Viele Grüße

    Ne, das ist das Vorspiel bis er dir von einem Typisierten DataSet erzählt das man wunderbar speichern und laden kann ohne massen von Code schreiben zu müssen. Die Geheiwaffe für kleine Anwendungen.
    "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

    Hallo,

    ich habe jetzt mal mein Code für euch etwas bearbeitet bzw. extrem abgespeckt um die Situation darstellen zu können, um das Prinzip meiner Speicherung zu zeigen und warum die Struktur die Basis meines Programmes ist.

    Jedes Element, das Daten ausgeben soll, bezieht er diese aus der Struktur.

    Ich dachte mir das ich die Daten in Zukunft gerne in eine Datenbank schreiben würde anstelle einer Textdatei.

    Hier der Code:

    VB.NET-Quellcode

    1. Imports System.IO
    3. Module Variablen
    5. '*** Variablen ***
    6. Public n As Short
    8. End Module
    10. Module Strukturen
    12. '*** Strukturen ***
    13. Structure STRKDB
    14. Dim Wert_1 As String
    15. Dim Wert_2 As String
    16. Dim Wert_3 As String
    17. Dim Wert_4 As Char
    18. Dim Wert_5 As Char
    19. Dim Wert_6 As Byte
    20. Dim Wert_7 As Byte
    21. Dim Wert_8 As Byte
    22. Dim Wert_9 As Integer
    23. Dim Wert_10 As Integer
    24. Dim Wert_11 As Integer
    25. Dim Wert_12 As Boolean
    26. Dim Wert_13 As Boolean
    27. Dim Wert_14 As Boolean
    28. End Structure
    30. '*** Feldvariablen ***
    31. Public Tabelle_1(110) As STRKDB
    33. End Module
    35. Module Speichern
    37. ' Speichern der Daten in eine .txt
    38. Public Sub SpeichernDaten()
    40. Dim i As Short
    41. Dim Dateiname As String
    42. Dim SW As System.IO.StreamWriter
    44. Dateiname = "save/save.txt"
    46. SW = My.Computer.FileSystem.OpenTextFileWriter(Dateiname, False)
    48. SW.WriteLine(n)
    50. For i = 0 To n - 1
    51. SW.WriteLine(Tabelle_1(i).Wert_1)
    52. SW.WriteLine(Tabelle_1(i).Wert_2)
    53. SW.WriteLine(Tabelle_1(i).Wert_3)
    54. SW.WriteLine(Tabelle_1(i).Wert_4)
    55. SW.WriteLine(Tabelle_1(i).Wert_5)
    56. SW.WriteLine(Tabelle_1(i).Wert_6)
    57. SW.WriteLine(Tabelle_1(i).Wert_7)
    58. SW.WriteLine(Tabelle_1(i).Wert_8)
    59. SW.WriteLine(Tabelle_1(i).Wert_9)
    60. SW.WriteLine(Tabelle_1(i).Wert_10)
    61. SW.WriteLine(Tabelle_1(i).Wert_11)
    62. SW.WriteLine(Tabelle_1(i).Wert_12)
    63. SW.WriteLine(Tabelle_1(i).Wert_13)
    64. SW.WriteLine(Tabelle_1(i).Wert_14)
    65. Next
    66. SW.Close()
    67. End Sub
    69. End Module
    71. Module Laden
    73. ' Einlesen der Daten in die Struktur
    74. Public Sub LadenDaten()
    76. Dim i As Short
    77. Dim Dateiname As String
    78. Dim SR As System.IO.StreamReader
    80. Dateiname = "save/save.txt"
    81. SR = My.Computer.FileSystem.OpenTextFileReader(Dateiname)
    83. n = SR.ReadLine()
    85. For i = 0 To n - 1
    86. Tabelle_1(i).Wert_1 = SR.ReadLine()
    87. Tabelle_1(i).Wert_2 = SR.ReadLine()
    88. Tabelle_1(i).Wert_3 = SR.ReadLine()
    89. Tabelle_1(i).Wert_4 = SR.ReadLine()
    90. Tabelle_1(i).Wert_5 = SR.ReadLine()
    91. Tabelle_1(i).Wert_6 = SR.ReadLine()
    92. Tabelle_1(i).Wert_7 = SR.ReadLine()
    93. Tabelle_1(i).Wert_8 = SR.ReadLine()
    94. Tabelle_1(i).Wert_9 = SR.ReadLine()
    95. Tabelle_1(i).Wert_10 = SR.ReadLine()
    96. Tabelle_1(i).Wert_11 = SR.ReadLine()
    97. Tabelle_1(i).Wert_12 = SR.ReadLine()
    98. Tabelle_1(i).Wert_13 = SR.ReadLine()
    99. Tabelle_1(i).Wert_14 = SR.ReadLine()
    100. Next
    101. SR.Close()
    102. End Sub
    104. End Module

Facebook
Telefonspende