Hallo!
Seit kurzem habe ich mich damit beschäftigt, ein Programm mit Database zu programmieren (Für die Datenbank nutze ich Acces 2010). Leider bekomme ich immer den Fehler
'Der Provider kann nicht gefunden werden. Möglicherweise ist er nicht richtig installiert worden."
Hier der Quellcode:
(Fehler ist in Zeile 17-18)
Ich habe keine Ahnung, was den Fehler verursacht. Hoffentlich kann mir hier jemand helfen!
MfG vich
Seit kurzem habe ich mich damit beschäftigt, ein Programm mit Database zu programmieren (Für die Datenbank nutze ich Acces 2010). Leider bekomme ich immer den Fehler
'Der Provider kann nicht gefunden werden. Möglicherweise ist er nicht richtig installiert worden."
Hier der Quellcode:
(Fehler ist in Zeile 17-18)
VB.NET-Quellcode
- Public Function Login()
- Dim DBConn As New ADODB.Connection
- Dim User As New ADODB.Recordset
- Dim Username As String
- Dim UserDB As String
- Dim passDB As String
- Dim UserFound As Boolean
- Dim loginerror As String
- DBConn.Open("Provider=Microsoft.ACE.OLEDB.12.0;" & _
- "Data Source = `" & Application.StartupPath & "\DLD.accdb")
- User.Open("UserTable", DBConn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
- UserFound = False
- Login = False
- Username = "Username = `" & txtUser.Text & "`"
- Do
- User.Find(Username)
- If User.BOF = False And User.EOF = False Then
- UserDB = User.Fields("Username").Value.ToString()
- passDB = User.Fields("Password").Value.ToString()
- If UserDB <> txtUser.Text Then
- User.MoveNext()
- Else
- UserFound = True
- If passDB = txtPass.Text Then
- User.Close()
- DBConn.Close()
- Return True
- Else
- loginerror = "Invalid Password"
- User.Close()
- DBConn.Close()
- Return False
- End If
- End If
- Else
- loginerror = "Invalid Username"
- User.Close()
- DBConn.Close()
- Return False
- End If
- Loop Until UserFound = True
- User.Close()
- DBConn.Close()
- Return False
- End Function
Ich habe keine Ahnung, was den Fehler verursacht. Hoffentlich kann mir hier jemand helfen!
MfG vich
“If debugging is the process of removing software bugs, then programming must be the process of putting them in.”
-Unbekannt
-Unbekannt