Home Ritorna

 

Tutorial Access - Collegare con VBA una tabella 
E' possibile con visual basic collegare una tabella ad un database di Access.
Questo esempio prevede una maschera con un tasto che intercetta il database back e si collega ad una tabella in esso residente.

Per provare gli esempi serve Access 2000 o XP (scaricate l'esempio per Access 2000) ed è necessario modificare i percorsi nella routine (vedi righe in rosso).

La routine è la seguente:

Private Sub Comando0_Click()

'Crea tabella collegata
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table

Set cat = New ADOX.Catalog

' Apre catalog
cat.ActiveConnection = CurrentProject.Connection

Set tbl = New ADOX.Table

' Crea la nuova tabella
tbl.Name = "Tabella_Prova_Collegata"

' Scorciatoia per creare una tabella
Set tbl.ParentCatalog = cat

'Imposta le proprietà per creare il link
tbl.Properties("Jet OLEDB:Create Link") = True

'Inserire percorso database
tbl.Properties("Jet OLEDB:Link Datasource") = "C:\Prova\Back_End.mdb"
'Inserire nome tabella
tbl.Properties("Jet OLEDB:Remote Table Name") = "Tabella_Prova_Collegamento"

' Aggiunge la tabella
cat.Tables.Append tbl

Set cat = Nothing

Uscita:
Exit Sub