bzgl.SQL:ADO anstatt DAO verweden?!?
07.03.2004 18:20:27
arash
eine SQL Abfrage die ich in VBA mit DAO erstellt habe läuft sehr langsam,da die Quelldatenbank(Access) sehr groß ist und ich dachte mir daß ich evtl. mit ADO besser beraten wäre als mit DAO wie bisher. Oder hat jemand eine bessere Idee?!?
was müßte ich machen um folgende Abfrage mit ADO anstatt mit DAO durchzuführen?
Sub EK_Daten_2003()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("C:\Test.mdb") 'Datenquelle
Sql = "SELECT [Datum],SUM([EK])" & _
"FROM tra WHERE [Datum] LIKE '*2003*'" & _
"GROUP BY [Datum] ORDER BY [Datum]"
Set rs = db.OpenRecordset(Sql)
Sheets("Actuals").Range("AN2").CopyFromRecordset rs 'Datenziel
End Sub
DANKE im Voraus