Creare da VBA nuove tabelle collegate

namor

unread,

Aug 24, 2003, 2:01:55 PM8/24/03

to

Ho dei problemi nella creazione da codice (con DAO) di una nuova
tabella collegata.
Questo codice crea una nuova tabella in un DB, e funziona:

Dim Db As Database, Tbl As TableDef, Fld As Field
Set Db = OpenDatabase("D:\Dbase\Prove.mdb")
Set Tbl = Db.CreateTableDef("Ciao")
Set Fld = Tbl.CreateField("ID", dbLong): Tbl.Fields.Append Fld
Set Fld = <...CUT...>
Db.TableDefs.Append Tbl

E questo dovrebbe creare nel Db corrente la corrispondente tabella
collegata:
Set Tbl = CurrentDb.CreateTableDef("Ciao", dbAttachedTable, "Ciao",
";DATABASE=D:\Dbase\Prove.mdb")

Ma l'uso di "dbAttachedTable" mi dà l'errore "Argomento non valido".
Ho controllato le proprietà delle altre tabelle collegate già presenti nel
Db e la proprietà Attributes è correttamente impostata sul valore di
dbAttachedTable. Non capisco perchè non l'accetta al momento della
creazione della nuova tbl collegata.

Ho provato anche a impostare l'attributo dopo aver creato la tabella:

Set Tbl = CurrentDb.CreateTableDef("Ciao")
Tbl.Connect = ";DATABASE=D:\Dbase\Prove.mdb"
Tbl.SourceTableName = "Ciao"
Tbl.Attributes = dbAttachedTable

ma dà lo stesso errore "Argomento non valido" sull'ultima riga,
ancora prima di fare l'append all'insieme TableDefs.

Qualche suggerimento?
Grazie.
Namor

Alessandro Baraldi

unread,

Aug 25, 2003, 2:11:03 AM8/25/03

to

"namor" <na...@DontSpamMe.inwind.it> wrote in message
news:n472b.262459$lK4.8...@twister1.libero.it

> Ho dei problemi nella creazione da codice (con DAO) di una nuova
> tabella collegata.
> Questo codice crea una nuova tabella in un DB, e funziona:
>
> Dim Db As Database, Tbl As TableDef, Fld As Field
> Set Db = OpenDatabase("D:\Dbase\Prove.mdb")
> Set Tbl = Db.CreateTableDef("Ciao")
> Set Fld = Tbl.CreateField("ID", dbLong): Tbl.Fields.Append Fld
> Set Fld = <...CUT...>
> Db.TableDefs.Append Tbl
>

[CUT]

> Qualche suggerimento?
> Grazie.
> Namor

Ora che hai creato nell'Oggetto Db remoto la tua tabella
perchè non usi il metodo

DoCmd.TransferDatabase acLink,.....ecc..........!

@Alex.

--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG

namor

unread,

Aug 25, 2003, 2:57:53 AM8/25/03

to

Alessandro Baraldi ha scritto:

> "namor" <na...@DontSpamMe.inwind.it> wrote in message
> news:n472b.262459$lK4.8...@twister1.libero.it
> > Ho dei problemi nella creazione da codice (con DAO) di una nuova
> > tabella collegata.
> > Questo codice crea una nuova tabella in un DB, e funziona:
> > Dim Db As Database, Tbl As TableDef, Fld As Field

> > Set Db = OpenDatabase("D:DbaseProve.mdb")

> > Set Tbl = Db.CreateTableDef("Ciao")
> > Set Fld = Tbl.CreateField("ID", dbLong): Tbl.Fields.Append Fld
> > Set Fld = <...CUT...>
> > Db.TableDefs.Append Tbl
> [CUT]
> > Qualche suggerimento?
> > Grazie.
> > Namor

> Ora che hai creato nell'Oggetto Db remoto la tua tabella
> perchè non usi il metodo
> DoCmd.TransferDatabase acLink,.....ecc..........!
> @Alex.

Ok, così funziona. Problema risolto, grazie.
Però resta la curiosità: perchè il CreateTableDef non funziona, appurato
che è prevista tra i parametri la possibilità di creare tabelle collegate?
Namor

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it

marco

unread,

Aug 31, 2003, 12:44:31 PM8/31/03

to

"Alessandro Baraldi" <ik2...@libero.it> ha scritto nel messaggio
news:ba559d37314d413618...@mygate.mailgate.org...

Come si collega una tabella di un BE protetto da pass mediante il comando
DoCmd.TransferDatabase ???
Tra i parametri da passargli non c'è quello per la password e provando a
metterla in una stringa col nome del db non funzia....

Marco