ich bastel ein wenig an eine Möglichkeit Access als Datenbank zu nutzen und möchte die Ein- und Ausgaben über Excel UserForm machen weil das Optisch ansprechend ist. Ich habe eine Verbindung hinbekommen aber bekomme nun 2 Fehler.
1. Fehler: Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben.
2. Fehler: Der Vorgang ist für ein geschlossenes Objekt nicht zugelassen.
Ich habe ein UserForm wo ich den Code bereits verwende dort bekomme ich den Fehler Fehler:
nun zu meinem Code.
Private Sub CommandButton_Login_OK_Click()
Dim oAdoConnection As New ADODB.Connection
Dim oAdoRecordset As New ADODB.Recordset
Dim sAdoConnectString As String, sPfad As String
Dim sQuery As String
Dim benutzer As String
Dim pw As String
Dim tabelle As String
benutzer = TextBox_user.Value
pw = TextBox_pw.Value
tabelle = "Mitarbeiter"
sPfad = "Database1.accdb"
On Error GoTo Fehler
sAdoConnectString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & sPfad
oAdoConnection.Open sAdoConnectString
MsgBox sQuery = "Select * From " & tabelle & " WHERE E-Nummer = " & benutzer & "
AND Passwort = " & pw
'sQuery = "Select * From " & tabelle & " WHERE E-Nummer = " & benutzer & " AND
Passwort = " & pw
sQuery = "Select * From " & tabelle & " WHERE E-Nummer = test AND Passwort =
test"
With oAdoRecordset
.Source = sQuery
.ActiveConnection = oAdoConnection
.Open
Worksheets(2).Cells(2, 1).Value = .Fields(1)
Worksheets(2).Cells(2, 2).Value = .Fields(2)
Worksheets(2).Cells(2, 3).Value = .Fields(3)
Worksheets(2).Cells(2, 4).Value = .Fields(5)
End With
Aufraeumen:
On Error Resume Next
oAdoRecordset.Close
oAdoConnection.Close
Set oAdoRecordset = Nothing
Set oAdoConnection = Nothing
Fehler:
MsgBox "Fehler: " & Err.Description
Resume Aufraeumen
End Sub
Ich hab jetzt schon ein paarmal drübergeschaut und alle Variablen auch mal direkt eingegeben aber ich finde nix.