Newsgroup: it.comp.appl.access
Titolo: riallegare più back end contemporaneamente

 
          Ciao a tutti e complimenti per l'ottimo NG,
avrei una domanda:
ho un DB costituito da un front-end connesso a tanti (8) back-end contenenti
le tabelle.
Non potendo riunire le tabelle in un unico BE cosa posso fare per riallegare
i vari BE al FE ?
Ho provato varie soluzioni sia dal sitocomune che dal NG ma senza risultato.
(switch-be ecc..). Uso una funzione spessissimo ma penso che non funzi
perchè i BE da riallegare sono tanti e non uno solo.
Idee?
Grazie tantissime,
Alessio
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Personalmente uso un sistema che a me va bene.
Una casella di riepilogo alimentata da:
SELECT MSysObjects.Name AS Tabella, MSysObjects.Database AS Connessione
FROM MSysObjects
WHERE ((Not (MSysObjects.Database) Is Null))
ORDER BY MSysObjects.Name DESC;
Un MSComDlg (ma va bene anche la routine del sito comune per cercare un 
file) per la ricerca del file.
Una routine che è simile alla seguente:
For Each varItm In ctl.ItemsSelected
        Set tdf = dbs.TableDefs(ctl.Column(0, varItm))
        tdf.Connect = ";DATABASE=" & selectedFile
        On Error Resume Next
        tdf.RefreshLink
        DoEvents
    Next varItm
L'operatore seleziona i BE da riallegare, dice dova si trova l'mdb e il 
codice fa il resto.
Questo mi serve se si spostano i BE.
Esistono anche altre strade...
Ciao, Carlo 


 Grazie Carlo,
dopo pranzo proverò.
Ciao, Alessio


 Alessio
Io faccio cosě:
Nel FE mi creo una Tabella:
NomeTabella
NomeBE
PWD
Quindi nel mio FE salvo i dati compilando questa tabella che chiamo
LinkedTable.
Ora solitamente il percorso del BE č noto, ma se č dinamico tendo
a renderlo derivato dal percorso del FE, magari in una SubFolder, quindi
in questo caso mi basta recuperare il percorso del FE sommare
la subfolder e recuperare cosě la radice.
Ora apro un recordet:
La PATH del FE č CurrentProject.Path
Dim rs AS DAO.RECORDSET
set rs=Currentdb.OpenRecordset("LinkedTable")
Do until rs.EOF
   Currentdb.Tabledefs(rs!NomeTabella).Connect="DATABASE=" &
Path+rs!NomeBE
   Currentdb.Tabledefs(rs!NomeTabella).RefreshLink 'spero di ricordare
bene
   rs.Movenext
Loop
Ovviamente se c'č la PWD nei vari BE la inserisco nella stringa.
Qualora non vengano trovati i BE apro il CommonDialog e
riparto...!
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
Vista la grandissima partecipazione.
Ho un affarillo. Se vuoi dammi una e-mail e te lo mando (e' in A2000)
1) tabella nomata SYSMDB dove vengono conservati i path dei BE da 
allegare  con possibilita' di indicare pwd del BE ( non gestita dalla 
maschera al punto b, va scritta direttamente sulla tabella). Ci sono un 
altro paio di campi che non mi ricordo piu' a cosa servano. Forse per 
allegare via ODBC.
2) Maschera con origine dati da SYSMDB (editabile) con opzione di quali 
BE Allegare o riallegare
3) Funzioni per la ricerca dei file  (window file dialog).
--
a.cara


Certo che mi interessa. :-)
adalxe...@tiscali.it
 ovviamente senza NOSPAM :-)
Grazie,


 
adalxe...@tiscali.it
 ovviamente senza NOSPAM :-)
fatto! E non nel senso del buon Lapo.
--
a.cara

Ciao 
Posso avere anch'io l'affarillo?
ho...@msn.com
Grazie Mille
Pino
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Giusto perche' l'indirizzo non e' "micio".
Arifatto
--
a.cara

 Ho un affarillo. Se vuoi dammi una e-mail e te lo mando (e' in A2000)
Ciao Alessandro,
proprio in virtů della "grandissima partecipazione" che citi, non potrebbe
essere utile rendere pubblico (sempre che non ci siano "impedimenta")
l'affarillo?
-- 
TANNHAUSER
"I've seen things you people wouldn't believe..."


 
Impedimenta non ce ne sono visto che lo ho spedito a chi me lo ha richiesto.
--
a.cara

dandoti la mia e-mail posso dare anch'io un'occhiata all'affarillo??
te ne sarei grato
ciao
Diego
diegoci...@hotmail.com

 ha scritto nel messaggio 
news:4LSxf.30252$av6....@tornado.fastwebnet.it...

Ciao Alessandro,
visto che ci sei, mandalo pure a me!
Napoleone 

 ha scritto nel messaggio 
news:15Nxf.29479$av6....@tornado.fastwebnet.it...

Scusate l'intrusione, ma se posso averlo pure io l'affarillo non mi 
dispiacerebbe.
art23...@libero.it
 naturalmente anchio senza NOSPAM
grazie 

 Impedimenta non ce ne sono visto che lo ho spedito a chi me lo ha richiesto.
Scusa, forse mi sono spiegato male. Intendevo dire che l'utilità della
procedura potrebbe renderne utile la pubblicazione sul sitocomune.


