Anonymní profil Nicolas – Programujte.com

Ahoj, chtěl bych updatovat záznam v access databázi z excelu, ale nevím si rady.

Umím vložit nový řádek do db, viz. příklad níže...v excelu v buňce 1,1 a 1,2 mám Jméno a Příjmení.

Potřeboval bych ale updatovat všechny řádky v access databázi (Jméno a Příjmení) z excelu z buňky 1,1 a 1,2, kde v databázi (např.) Město = Praha

Poraďte prosím.

Public Const Link1 As String = "C:\A1\dtb1.mdb"
Sub Save_Data() 'Zápis do DB access

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim r As Long
    Dim b As String
    

    ' connect to the Access database
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
    "Data Source=" + Link1 + ";"""

    ' open a recordset
    Set rs = New ADODB.Recordset
    rs.Open "Tab1", cn, adOpenKeyset, adLockOptimistic, adCmdTable

    ' all records in a table
   
            With rs
                .AddNew ' create a new record
                
                .Fields("Jméno") = ThisWorkbook.Sheets("L1").Cells(1, 1).Value
                .Fields("Příjmení") = ThisWorkbook.Sheets("L1").Cells(1, 2).Value
                
                .Update ' stores the new record
            End With

    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub

Vím že to je jen VBA, ale nevěděl jsem, kam ten dotaz lépe vložit.

Díky, Nicolas

Dobrý den, chtěl bych se zeptat, jaký je kód, aby mohl dotyčný, až navštíví stránku, dávat komentáře. Děkuji