VBA update Access databáze – Visual Basic – Fórum – 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

skus to bez rs.addnew a musis mu povedat ktory zaznam ma upravovat tzn. where id = 3

https://social.msdn.microsoft.com/Forums/en-US/9103260e-9623-4183-8e97-c638d05618bd/update-access-from-an-excel-spreadsheet?forum=accessdev

#2 ing
Ale když chce přidat nový záznam, tak by tam mělo být AddNew. Já bych to dělal přes DAO, viz můj příspěvek s odkazem do social.microsoft.com.

DŮLEŽITÉ:

Set db As DAO.Database
Set rs As DAO.Recordset

A nezapomenout na referenci ke knihovně DAO.

sice stara tema, ale on nechce pridavat ale updatovat :)