Office: Recordset Filter

Schtief · 27. März 2017

Hallo Zusammen,

ich würde gerne in einer Datenbank per Recordset einen bestimmten Datensatz öffnen (um ihn daraufhin zu bearbeiten).

Ich weiß nur nicht wie die Recordset.Open Anweisung zu schreiben wäre und habe mich auch an Filtern versucht. *confused.gif*

Also meine Frage wäre, wie kann ich entweder direkt bei der Recordset.Open Anweisung den richtigen Datensatz (ich habe mir sowas wie unten in rot markiert vorgestellt) öffnen oder zunächst die gesamte Tabelle öffnen und dann mit zwei nachfolgenden Filtern den richtigen Datensatz abgreifen.

Ich hatte gedacht der Filter würde kaskadiert arbeiten, jedoch filtert er und vergisst daraufhin den Filter wieder. *sos

Code:

Sub FilterTest()
Dim strDB As String
Dim strTab As String
Dim strVorname As String
Dim strNachname As String

Dim objCon As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rstGefiltert As ADODB.Recordset

Dim ctrDG As control
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table

strDB = ThisWorkbook.Path & "BeispielDB.accdb" 'Hierhin wird exportiert

strTab = "Testtabelle"
strVorname = "Klaus"
strNachname = "Zufall"

Set objCon = New ADODB.Connection
objCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB
cat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB

Set rst = New ADODB.Recordset

'rst.Open "SELECT * FROM " & strTab & " WHERE VORNAME = " & strVorname & " AND NACHNAME = " & strNachname & ";", objCon, adOpenKeyset, adLockOptimistic
'Debug.Print rst.RecordCount
rst.Open "SELECT * FROM " & strTab & ";", objCon, adOpenKeyset, adLockOptimistic
Debug.Print rst.RecordCount
rst.Filter = "Vorname ='" & strVorname & "'"
Debug.Print rst.RecordCount
rst.Filter = "Nachname ='" & strNachname & "'"
Debug.Print rst.RecordCount

rst.Close
objCon.Close

Set tbl = Nothing
Set objCon = Nothing
Set rst = Nothing
Set rstGefiltert = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anbei habe ich eine kleine DB angehängt zum Testen des Codes.

Grüße
Steffen

:)

Luschi · 29. März 2017

Hallo Steffen,

hier mal mein Beispiel dazu.

Gruß von Luschi
aus klein-Paris

Schtief · 29. März 2017

Wow!

Vielen Dank für deine Mühe.
Alles was ich wollte war eigentlich nur die strSQL. Komisch finde ich dass man die Herkunftstabelle ohne zusätzliche Gänsefüschen schreibt und die Filterkriterien mit... *confused.gif*

Und ich habe was über Early und Late Binding gelernt, wobei ich wohl immer mit dem Early Binding gearbeitet habe.

Luschi · 29. März 2017

Hallo Steffen,

sollte die Accesstabelle Leerzeichen im Namen haben dann mußt Du das so definieren:
strTab = "[Test Tabelle]" statt strTab = "Testtabelle"

Da die Inhalte der beiden Felder Vor- und Nachname Texte enthalten, sind die einfachen Hochkommas erforderlich, bei Zahlen nicht.

Gruß von Luschi
aus klein-Paris

Schtief · 30. März 2017

Hallo Luschi,

danke für die Informationen, habe ich so vorher nicht gewusst.

Ich habe noch eine Frage bzgl der Bearbeitung des gefilterten Recordsets, bzw der Neuanlage falls es den ausgewählten Datensatz nicht gibt.

Code:

strSQL = "Select * From " & strTab & " Where Vorname = '" & strVorname & "' And " & _
"Nachname= '" & strNachname & "';"
strSQLLeer = "SELECT * FROM " & strTab & " WHERE ID=" & _
0 & ";"

Set rst = New ADODB.Recordset

rst.Open strSQL, objCon, adOpenKeyset, adLockOptimistic

Debug.Print rst.RecordCount
If rst.RecordCount = 0 Then
Set rstLeer = New ADODB.Recordset
rstLeer.Open strSQLLeer, objCon, adOpenKeyset, adLockOptimistic
rstLeer.AddNew
rstLeer.Fields("Vorname") = strVorname
rstLeer.Fields("Nachname") = strNachname
rstLeer.Fields(strFeld) = Me.Controls("txt" & iArt & iJahr).Value

rstLeer.Update
objCon.Close
Set objCon = Nothing

Else

rst.Fields(strFeld) = Me.Controls("txt" & iArt & iJahr).Value

rst.Update
objCon.Close
Set objCon = Nothing

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der/das String "strFeld" wird über zwei Schleifen (zuverlässig *Smilie) mit den richtigen Werten gefüllt.

Also mein Problem ist, wenn kein entsprechender Datensatz gefunden wird, wird kein neuer Datensatz erzeugt. Keine Fehlermeldungen, einfach kein neuer Datensatz. Wenn der Datensatz vorhanden ist, dann funktioniert alles wie gewollt.

Komisch finde ich dass die Funktion des neuen Datensatzes an einer anderen Stelle meiner Excel funktioniert.

Grüße
Steffen

Luschi · 30. März 2017

Hallo Steffen,

das Prüfen, ob Datensätze im Reordset vorhanden sind geht so: Code:

oRstFilter.Open strSQL, oCon, 0, 3
If Not oRstFilter.EOF Then
'es gibt DS
Else
'keine DS vorhanden
Endif
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

PS: Mein Tipp - stelle die Verweise zu 'ADODB' wieder auf 'Late Binding' um, dann hast Du weniger Probleme, wenn Du das Makro mal an einem PC testest, der eine ander Version installiert hat.
Set oCon = CreateObject("ADODB.Connection")
Set oRstFilter = CreateObject("ADODB.Recordset")

Es gibt dann zwar keine Intellisense aber dafür ist ja Google da!

Office: Recordset Filter

Recordset Filter

Recordset Filter

Recordset Filter

Recordset Filter - Similar Threads - Recordset Filter

Apostroph in sql Recordset

Recordset auf einmal nicht mehr aktualisierbar

Recordset

Recordset wird nicht erfasst

Recordset-Feldname mit Variable verbinden

Recordset Listenfeld füllen

ID aus SQL Recordset ermitteln - Geänderter Treiber?