Creare tabelle collegate in Access via codice

mercoledì 18 febbraio 2009 - 15.03

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

winchester_79 Profilo | Newbie

1 messaggi | Data Invio: mer 18 feb 2009 - 15:03

Salve a tutti,
ho un problema con la creazione di tabelle collegate in un db Access da codice.
Su internet ho trovato molti esempi simili al seguente:

Dim cat As New ADOX.Catalog
Dim cnAccess As New ADODB.Connection
Dim connString_dbDoveCreareLaTabellaCollegata As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\tmp\dbDoveCreareLaTabellaCollegata.mdb;"
Dim connString_dbDovePrendereLaTabellaCollegata As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\tmp\dbDovePrendereLaTabellaCollegata.mdb;"

cnAccess.Open(connString_dbDoveCreareLaTabellaCollegata)
cat.let_ActiveConnection(cnAccess)

Dim tbl As New ADOX.Table
Try
tbl.Name = "tabellaLinkCretaLnk"
tbl.ParentCatalog = cat
tbl.Properties("Jet OLEDB:Link Datasource").Value = connString_dbDovePrendereLaTabellaCollegata
tbl.Properties("Jet OLEDB:Remote Table Name").Value = "tabellaOrigineDaLinkare"
tbl.Properties("Jet OLEDB:Create Link").Value = True
cat.Tables.Append(tbl)
Return True
Catch
Return False
End Try

cat = Nothing
cnAccess.Close()
cnAccess = Nothing

Eseguendolo pero' ricevo un errore sulla riga:
tbl.Properties("Jet OLEDB:Link Datasource").Value = connString_dbDovePrendereLaTabellaCollegata

con la seguente eccezione:
"System.Runtime.InteropServices.COMException = {"Item cannot be found in the collection corresponding to the requested name or ordinal."}"

tbl.Properties.Count e' 0. Come posso aggiungere tali proprieta'?

Non riesco a capire da cosa possa dipendere...
Qualcuno ha idea del perche'?

Grazie in anticipo.
Alessandro

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !