Office: (Office 2010) Ado Recordset in anderen kopieren

bkleine · 7. Dezember 2013

Hi,
dim rst, rst1 as Adodb.Recordset
' get rst as recordset
...
'copy filtered rst to rst1
set rst1=rst
schien mal zu funktionieren, jedenfalls gibt es das beim Googlen. Bei mir meckert der Kompiler aber "Methode oder Datenobjekt nicht gefunden".

Wie geht es denn richtig?

Gruß Bernhard

:)

Maxel · 9. Dezember 2013

dim rst, rst1 as Adodb.Recordset
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo,

hier wird rst als Variant deklariert. Richtig ist
Code:

dim rst as Adodb.Recordset, rst1 as Adodb.Recordset
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Josef P. · 9. Dezember 2013

Hallo!

wegen "kopieren"
Code:

set rst1=rst
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser Code kopiert nur die Referenz => beide Variablen zeigen auf das gleiche Recordset.

mfg
Josef

bkleine · 9. Dezember 2013

mit dem Verweis kann ich vielleicht sogar leben.
rst ist das Original

strTfilter = BuildCriteria (("[ass_TG]", dbLong, CStr(T))
strVfilter = BuildCriteria("[ass_Visit]", dbLong, CStr(V))
set rstV = rst.Filter strVfilter
set rstT = rst.Filter strTfilter

geht sowas?
Danke für alle Hilfe
Bernhard

ebs17 · 9. Dezember 2013

Nein.
Hast Du ein System, nach dem Du irgendwelche Stücke zu "irgendwie"-Anweisungen zusammenklopfst?

Woraus wird das erste Recordset generiert? Ist da eine Tabelle/Abfrage Basis, braucht man da nur den Filter zu ergänzen und daraus dann das zweite Recordset erzeugen.

von VBA-Hilfe

Häufig wird ein neues Recordset-Objekt schneller geöffnet, wenn Sie eine SQL-Anweisung verwenden, die eine WHERE-Klausel einschließt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nachträgliches Filtern eines Recordsets
Code:

Public Sub PersonenNachAnrede()
Dim db As DAO.Database
Dim rstAlle As DAO.Recordset
Dim rstNurFrauen As DAO.Recordset
Set db = CurrentDb
Set rstAlle = db.OpenRecordset("qryPersonen", _
dbOpenDynaset)
rstAlle.Filter = "Anrede = 'Frau'"
Set rstNurFrauen = rstAlle.OpenRecordset
Do While Not rstNurFrauen.EOF
Debug.Print rstNurFrauen!Anrede, _
rstNurFrauen!Nachname
rstNurFrauen.MoveNext
Loop
rstNurFrauen.Close
Set rstNurFrauen = Nothing
rstAlle.Close
Set rstAlle = Nothing
Set db = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bkleine · 9. Dezember 2013

Das erste Recordset rst wird aus einer Tabelle generiert.

Code:

Dim rst As ADODB.Recordset
Dim rstT As ADODB.Recordset
Dim T as Integer
T=2
Set rst = New ADODB.Recordset
With rst
.Open "tab_assignments", CurrentProject.AccessConnection, adOpenKeyset, adLockOptimistic
End With
strTfilter = BuildCriteria("[ass_TG]", dbLong, CStr(T))
Set rstT = rst.OpenRecordset
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein Problem ist

Hier meckert der Kompiler und erleuchtet das .OpenRecordset mit "Fehler beim Kompilieren - Methode oder Datenobjekt nicht gefunden"

ist halt nicht DAO sondern ADODB.

Bernhard

ebs17 · 9. Dezember 2013

ist halt nicht DAO sondern ADODB
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Genau, und Openrecordset ist eine DAO-Methode.
Warum nicht gleich so:
Code:

With rst
.Open "tab_assignments", _
CurrentProject.AccessConnection, adOpenKeyset, adLockOptimistic
.Open "SELECT ass_TG FROM tab_assignments WHERE ass_TG = 567", _
CurrentProject.AccessConnection, adOpenKeyset, adLockOptimistic
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erst die SQL-Anweisung, die kann besser und schneller filtern oder auch andere Operationen ausführen, und daraus wird das Recordset gebildet = Ergebnismenge.

Office: (Office 2010) Ado Recordset in anderen kopieren

Ado Recordset in anderen kopieren

Ado Recordset in anderen kopieren

Ado Recordset in anderen kopieren

Ado Recordset in anderen kopieren - Similar Threads - Ado Recordset kopieren

ADO: Recordset in Array

Recordset auf Inhalt prüfen (ADO, SQL)

Datensätze eines ADO Recordset OHNE Schleife in Tabelle schreiben

leeres ADO Recordset Field, nur mit isNull erkennbar?

Datensatz löschen aus ADO Recordset

ADO Recordset aktualisieren

VBA ADO - mehrere Einträge in Recordset mit einmal in DB schreiben