Access Datenbank kann nicht gefunden werden!

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Chris213.

    Access Datenbank kann nicht gefunden werden!

    Hi!

    Ich möchte dass aus einer Datenbank aus der Tabelle "Lose" dem StringSpalte "Code" der Code in einer Listbox angezeigt wird und daneben ob der Code Aktiv ist!(Steht auch in der DB! "Aktiv")

    Mein Code:

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Public Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Dim con As New OleDbConnection
    10. Dim cmd As New OleDbCommand
    11. Dim reader As OleDbDataReader
    13. con.ConnectionString =
    14. "Provider=Microsoft.Jet.OLEDB.4.0;" &
    15. "Data Source=C:\daten.mdb"
    17. cmd.Connection = con
    18. cmd.CommandText = "select * from lose"
    20. Try
    21. con.Open()
    23. reader = cmd.ExecuteReader()
    24. ListBox1.Items.Clear()
    25. Do While reader.Read
    26. ListBox1.Items.Add(
    27. reader("Code") & " # " &
    28. reader("Aktiv"))
    29. Loop
    30. reader.Close()
    31. con.Close()
    32. Catch ex As Exception
    33. MessageBox.Show(ex.Message)
    34. End Try
    35. End Sub
    36. End Class


    Jedoch bekommen ich wenn ich auf den Button Anzeigen klicke(Button1) eine Meldung:
    Datei 'C:\daten.mdb" nicht gefunden. obwohl es dort ist!

    Wann kann ich da machen! :?:

    Ich benutze Visual Studio 2010 Professional
    und habe Win7 und Microsoft Office Professional Plus 2010

    Gruß Cybergebi

    Cybergebi schrieb:

    Ich benutze Visual Studio 2010 Professional
    und habe Win7 und Microsoft Office Professional Plus 2010

    Legal? ^^
    Win7 hat ein recht enges Dateirechtesystem... Soweit ich weiß kannst du ohne Admin Rechte nicht auf C:\ zugreifen. Nimm am besten deinen Programmordner, oder starte das Programm mit Administratorberechtigungen...

    lg Morph

    habe den code 1:1 kopiert und bekomm da einige Fehler
    mach mal so:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Dim con As New OleDbConnection
    5. Dim cmd As New OleDbCommand
    6. Dim reader As OleDbDataReader
    8. con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    9. "Data Source=C:\daten.mdb"
    11. cmd.Connection = con
    12. cmd.CommandText = "select * from lose"
    14. Try
    15. con.Open()
    17. reader = cmd.ExecuteReader()
    18. ListBox1.Items.Clear()
    19. Do While reader.Read
    20. ListBox1.Items.Add(reader("Code") & " # " & reader("Aktiv"))
    21. Loop
    22. reader.Close()
    23. con.Close()
    24. Catch ex As Exception
    25. MessageBox.Show(ex.Message)
    26. End Try
    27. End Sub
    28. End Class


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    fichz schrieb:


    habe den code 1:1 kopiert und bekomm da einige Fehler
    mach mal so:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim con As New OleDbConnection
    4. Dim cmd As New OleDbCommand
    5. Dim reader As OleDbDataReader
    6. con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    7. "Data Source=C:\daten.mdb"
    8. cmd.Connection = con
    9. cmd.CommandText = "select * from lose"
    10. Try
    11. con.Open()
    12. reader = cmd.ExecuteReader()
    13. ListBox1.Items.Clear()
    14. Do While reader.Read
    15. ListBox1.Items.Add(reader("Code") & " # " & reader("Aktiv"))
    16. Loop
    17. reader.Close()
    18. con.Close()
    19. Catch ex As Exception
    20. MessageBox.Show(ex.Message)
    21. End Try
    22. End Sub
    23. End Class


    lg

    Hi fichz!

    Ich habe deinen Quellcode kopiert und eingefügt!

    Jedoch findet er die DB immer noch nicht!

Facebook