Uz umime vytvorit databazi, tabulku a dotaz. Umime take vypsat obsah databaze, ale jeste neumime do databaze vlozit data. Nasledujici kod nacte data z tabulky Excelu a ulozi je do tabulky databaze Access.

Sub ZapisDat()
    Dim wrkAccess As Workspace
    Dim dbsAccess As Database
    Dim rstAccess As Recordset
    
    ' Databaze byla vytvorena kodem z clanku DAO - vytvoreni nove databaze
    
    Set wrkAccess = CreateWorkspace("PripojeniAccess", "admin", 
	                "", dbUseJet)
    Set dbsAccess = wrkAccess.OpenDatabase("c:\dokumenty\telefony.mdb")
    Set rstAccess = dbsAccess.OpenRecordset("Seznam")
    
    ' ********************************
    ' Zde zacina kod pro Excel
    ' nacte hodnoty z bunek tabulky
    ' a ulozi je do databaze
    ' ********************************
    Do Until IsEmpty(ActiveCell)
        ' Pridame novy zaznam
        rstAccess.AddNew
        
        ' Zapiseme data do poli
        rstAccess("Jmeno").Value = ActiveCell.Value
        rstAccess("Telefon").Value = ActiveCell.Offset(0, 1)
        rstAccess("Poznamka").Value = ActiveCell.Offset(0, 2)
                
        ' Ulozime zaznam
        rstAccess.Update
        
        ' Posun na dalsi radek
        ActiveCell.Offset(1, 0).Activate
    Loop
    ' ********************************
    ' Zde konci kod pro Excel
    ' ********************************
    
    rstAccess.Close
    dbsAccess.Close
    wrkAccess.Close
End Sub

Pri vkladani novych zaznamu nazapominejte na metodu Update, aby se zaznam ulozil.

Souvisejici clanky:
DAO - co to, hergot, je?
DAO - vytvoreni a smazani dotazu
DAO - vytvoreni nove databaze
DAO - pripojeni zdroje dat ODBC