Problem mit Access Datenbank

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von T1g0r.

    Problem mit Access Datenbank

    Hey Leute,

    Schonmal im vorraus bin ein Visual basic Neuling und habe folgendes Problem:

    Da mein Desktop immer sehr vollgestopft war habe ich ein Programm geschrieben in dem meine Spiele in einem Fenster zusammengefasst sind.
    So das habe ich noch hinbekommen. Doch dann hab ich mir gedacht ist nicht so ganz des wahre. Ich will´s so haben dass ich den Namen der Spiele ändern und die verknüpfung zur .exe verändern kann. So lasse im moment alles in verschiedene Textdokumente schreiben um es so immer wieder abrufen zu können. Mein problem ist das ich 20 Textdokumente habe.
    Wollte mal fragen ob ich das irgendwie mit einer Access Datenbank hinbekommen würde.

    Hier noch der derzeitige Code:

    Form1:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\G1.txt") Then
    5. RadioButton1.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G1.txt")
    6. End If
    7. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\G2.txt") Then
    8. RadioButton2.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G2.txt")
    9. End If
    10. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\G3.txt") Then
    11. RadioButton4.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G3.txt")
    12. End If
    13. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\G4.txt") Then
    14. RadioButton3.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G4.txt")
    15. End If
    16. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\G5.txt") Then
    17. RadioButton6.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G5.txt")
    18. End If
    19. End Sub
    21. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    22. If Not My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\G6.txt") Then
    23. MsgBox("Go to options and configure the application!", MsgBoxStyle.Critical, "Error")
    24. ElseIf RadioButton1.Checked Then
    25. System.Diagnostics.Process.Start(My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G6.txt"))
    26. End If
    27. End Sub
    29. End Class


    Form2:

    VB.NET-Quellcode

    1. Public Class Form2
    4. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\A1.txt") Then
    6. RadioButton1.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A1.txt")
    7. End If
    8. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\A2.txt") Then
    9. RadioButton2.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A2.txt")
    10. End If
    11. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\A3.txt") Then
    12. RadioButton3.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A3.txt")
    13. End If
    14. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\A4.txt") Then
    15. RadioButton4.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A4.txt")
    16. End If
    17. If My.Computer.FileSystem.FileExists("C:\Dokumente und Einstellungen\A5.txt") Then
    18. RadioButton5.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A5.txt")
    19. End If
    20. End Sub
    21. End Class


    Form3:

    VB.NET-Quellcode

    1. Public Class Form3
    3. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    4. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G1.txt", TextBox1.Text, False)
    5. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G2.txt", TextBox2.Text, False)
    6. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G4.txt", TextBox3.Text, False)
    7. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G3.txt", TextBox4.Text, False)
    8. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G5.txt", TextBox5.Text, False)
    9. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G6.txt", TextBox15.Text, False)
    10. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G7.txt", TextBox14.Text, False)
    11. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G8.txt", TextBox13.Text, False)
    12. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G9.txt", TextBox7.Text, False)
    13. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\G10.txt", TextBox6.Text, False)
    14. Form1.RadioButton1.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G1.txt")
    15. Form1.RadioButton2.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G2.txt")
    16. Form1.RadioButton3.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G3.txt")
    17. Form1.RadioButton4.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G4.txt")
    18. Form1.RadioButton6.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\G5.txt")
    19. MsgBox("Gespeichert!", MsgBoxStyle.Information, "Saved!")
    20. End Sub
    22. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    23. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A1.txt", TextBox12.Text, False)
    24. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A2.txt", TextBox11.Text, False)
    25. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A3.txt", TextBox10.Text, False)
    26. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A4.txt", TextBox9.Text, False)
    27. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A5.txt", TextBox8.Text, False)
    28. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A6.txt", TextBox20.Text, False)
    29. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A7.txt", TextBox19.Text, False)
    30. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A8.txt", TextBox18.Text, False)
    31. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A9.txt", TextBox17.Text, False)
    32. My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\A10.txt", TextBox16.Text, False)
    33. Form2.RadioButton1.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A1.txt")
    34. Form2.RadioButton2.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A2.txt")
    35. Form2.RadioButton3.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A3.txt")
    36. Form2.RadioButton4.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A4.txt")
    37. Form2.RadioButton5.Text = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\A5.txt")
    38. MsgBox("Gespeichert!", MsgBoxStyle.Information, "Saved!")
    39. End Sub
    41. Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    42. Form1.Close()
    43. End Sub
    44. End Class



    Form4 hat keine weitere bedeutung.

    Hoffe ihr könnte mir helfen.

    mfg pAbst0

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „pAbst0“ ()

    Warum speicherst du die Pfadangaben nicht in den Programmeinstellungen? Wäre doch wesentlich einfacher, komfortabler und schneller...
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Das könnte man mit den Settings in wenigen Zeilen Programmieren.
    Aber naja, man kann niemanden zwingen...
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

Facebook
Telefonspende