konto usunięte

Temat: Transfer danych: Excel -> Access

Witam,

a więc zaczynamy to forum od rzeczy podstawowych, mianowicie jak wysłać dane z Excela do bazy Access'owej. Poniżej przykładowy kod (transfer przy użyciu ADO):
Sub transfer_to_access()

Dim rs As ADODB.Recordset

Dim r As Integer

Set rs = New ADODB.Recordset

rs.Open "JAKAS_TABELA", _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=<ścieżka do jakieś bazy>;Persist Security Info=False;Jet OLEDB:Database Password=<hasło>" _

, adOpenKeyset, adLockOptimistic, adCmdTable

For r = 1 To ThisWorkbook.Worksheets(1).Range("a1000").End(xlUp).Row

    With rs

        .AddNew

        .Fields("POLE_1") = ThisWorkbook.Worksheets(1).Range("G1").Value

        .Fields("POLE_2") = ThisWorkbook.Worksheets(1).Range("F1").Value

        .Fields("POLE_3") = ThisWorkbook.Worksheets(1).Cells(r, 1).Value

        .Fields("POLE_4") = ThisWorkbook.Worksheets(1).Cells(r, 2).Value

        .Fields("POLE_5") = ThisWorkbook.Worksheets(1).Cells(r, 3).Value

        .Fields("POLE_6") = ThisWorkbook.Worksheets(1).Cells(r, 4).Value

        .Fields("USER") = User_BR

        .Update

    End With

Next r

rs.Close

Set rs = Nothing

End Sub
Powyższy kod działa na wersjach 2000 Excela i Access'a (i wyżej).

Będę wdzięczny za inne przykładowe kody, umożliwiające wysyłkę do Access'a. Uwagi i pomysły na usprawnienie powyższego kodu również mile widziane.

Pozdrawiam,
Marcin
Link do wypowiedziLink