🚀 go-pugleaf

Witam,
Mam takie pytanie.
Posiadam dwie tabele podłączone do MS Access-a.
Tabele podłączone są przez ODBC - jedna z SQL Server-a "lokalnie" a 
druga do MySQL-a serwer zdalny - hosting.

I teraz tak. Muszę aktualizować dane na MySQL-u co jakiś czas np. raz w 
tygodniu. Tabel z niema identyczne. Przy transferze na MySQL dodaje 4 
pola z lokalnej bazy, ale to nie jest problem.

Moje rozwiązanie działa, tylko niestety nie jest chyba najlepsze - przy 
paczce 100 000 rekordów trwa to bardzo długo, nawet się zawiesza.

Moja funkcja:

--
Function fAktualizujTabele()
Debug.Print "start: " & Now()
     Set conn = CurrentProject.Connection
     Set rst = New ADODB.Recordset
     Set rst2 = New ADODB.Recordset

     rst.Open "SELECT * FROM tbl_SQLServer where id<100000", conn, 
adOpenKeyset, adLockOptimistic
     rst2.Open "tbl_MySQL", conn, adOpenKeyset, adLockOptimistic

     rst.MoveLast
     rst.MoveFirst

     If rst.BOF And rst.EOF Then
         MsgBox "brak danych"
     End If

     Do While Not rst.EOF
             With rst2
               .AddNew
'              Pól jest zdecydowanie więcej, podaję tylko kilka przykład
                 rst2("id") = rst("id")
                 rst2("p_date") = rst("p_date")
                 rst2("p_time") = rst("p_time")
                 rst2("desc") = rst("desc")
		rst2("who") = "Admin"
               .Update
             End With

         rst.MoveNext
     Loop

     Set rst = Nothing
     Set rst2 = Nothing
     conn.Close
     Set conn = Nothing

Debug.Print "end: " & Now()


End Function

----
Założenie:

rst - pobieram dane z tabeli tbl_SQLServer z warunkiem where
następnie idę po kolei po każdy rekordzie i wrzucam do tabeli tbl_MySQL 
wykorzystując rst2.

Czy mogę to zrobić lepiej jak ??

dzięki za pomysły :)
PB