🚀 go-pugleaf

Inaczej mówiąc chciałby uzyskać lustro tabli z SQLServer-a na MySQL z 
dodatkowymi polami.



W dniu 2017-09-14 o 10:32, PB pisze:
> 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
> 
> 
> 
> 
> 
> 

Próbowałem z DAO - to samo :(


W dniu 2017-09-14 o 10:32, PB pisze:
> 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
> 
> 
> 
> 
> 
> 

> Czy mogę to zrobić lepiej jak ?? 

Spróbuj czy nie przyspieszy kwerenda dołączająca.

sSQL = "INSERT INTO tbl_MySQL SELECT * FROM tbl_SQLServer where id<100000"
db.Execute sSQL

Musisz jeszcze tylko zadbać o te 4-ry dodatkowe pola.
Nie wiem czy powyższe przyspieszy ale można spróbować.

MF