VB e FoxPro

Article View: free.it.visual-basic

Article #3630

Back to free.it.visual-basic Previous Next

#3630

From: Marcello SWI
Date: Wed, 08 May 2002 11:52

21 lines
1732 bytes

Ho un grosso problema,
devo creare delle tebelle collegate in un DB Access in runtime.
Per le tabelle access nessun problema, ma per quelle FoxPro non riesco a
farlo funzionare!
La mia funzione utilizza ADOX, qualcuno sa dirmi come fare?

Dim xt_connect as Adox.Table
Dim xc_catalog as Adox.Catalog

xc_catalog.Create "Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data
Source=database.mdb;Mode=Share Deny None;Jet OLEDB:Engine Type=4;Jet
OLEDB:Database Locking Mode=0"

xt_connect.ParentCatalog = xc_catalog
xt_connect.Properties("Jet OLEDB:Remote Table Name") = nometabella
xt_connect.Properties("Jet OLEDB:Link Datasource") = percorso
xt_connect.Properties("Jet OLEDB:Create Link") = -1
xt_connect.Name = nomefile
xc_catalog.Tables.Append xt_connect

Grazie

Technical Details

Message-ID: <uh8C8.26329$5k4.605142@twister2.libero.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!supernews.com!skynet.be!skynet.be!news.mailgate.org!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f94ee,3c75d2b0ecabc2d9,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-05-08 04:49:52 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!supernews.com!skynet.be!skynet.be!news.mailgate.org!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail
From: "Marcello SWI" <marcello@softwareitalia.it>
Newsgroups: free.it.visual-basic
Subject: VB e FoxPro
Lines: 23
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <uh8C8.26329$5k4.605142@twister2.libero.it>
Date: Wed, 8 May 2002 13:52:17 +0200
NNTP-Posting-Host: 151.25.202.16
X-Complaints-To: abuse@libero.it
X-Trace: twister2.libero.it 1020858586 151.25.202.16 (Wed, 08 May 2002 13:49:46 MET DST)
NNTP-Posting-Date: Wed, 08 May 2002 13:49:46 MET DST
Organization: [Infostrada]