Newsgroup: it.comp.appl.access
Titolo: eseguire una query su un altro db

è possibile farlo??
allora sul db1 ho la query che si chiama query1,
la eseguo (richiamo) dal db2..
pensavo una cosa del tipo:
docmd.runquery "query1 in C:\db1.mdb"
ma ovviamente non funziona.
soluzioni? consigli?
ciauzzzot
Marco

 ha scritto nel messaggio
news:fcuJc.53591$c_1.1...@twister1.libero.it...

Allega le tabelle del db1 in db2 ed esegui localmente la query
Antonio

 
Se in db1 scrivi la query e una public sub che la richiama, crei
db1.mde,
lo referenzi nel db2 e da qui richiami la public sub forse . . . 
Ciao 
Marco anch'io
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Marco anch'io
ciao omonimo
Marco.

 ha scritto nel messaggio
news:fcuJc.53591$c_1.1...@twister1.libero.it...

Mai sentito parlare di DAO...?
Dim dbExt as DAO.Database
Dim qdfExt as DAO.Querydef
Set dbExt=OpenDatabase......
Set qdfExt=dbExt.Querydefs("NomeQuery").Execute
Ciao.
@Alex.

 Allega le tabelle del db1 in db2 ed esegui localmente la query
Il fatto è che talune tabelle sono gia collegate sul db1, e che per problemi
di sicurezza(gente moooolto smanettona e combina guai) sto valutando questa
soluzione..
l'altra strada che sto provando a percorrere è la seguente, tramite un
pulsantino eseguo la query:
su pulsante1_click
DoCmd.RunSQL "SELECT Stock.*  INTO db1 IN 'S:\TABELLE\db1.mdb' FROM Stock IN
'S:\TABELLE\db1.mdb';"
tutto funziona ma finche non metto la password al DB1.
nel momento che metto la password sul db1, eseguendo il commando sopra,
ovviamente mi da errore di password.. come posso raggirarlo??
Ho provato con un sistema gia sugeritomi in un altro post il quale
riguardava però direttamente una query, ed ho provato ad adattarlo qui ma
senza risultato.. ecco il tutto:
DoCmd.RunSQL "SELECT Stock.*  INTO db1 IN   'MS
Access;database=S:\TABELLE\db1.mdb;PWD=miapassword'   FROM Stock IN   'MS
Access;database=S:\TABELLE\db1.mdb;PWD=miapassword' ;"
grazie per i suggerimenti.
Marco

 Marco
LEggi la mia Mail sotto, come sai il Metodo OpenDatabase supporta la
specificazione
della PASSWORD, di conseguenza riesci a fare tutto.
@Alex.


Grazie mille, domani (oggi) provo il tutto...
purtroppo non ho molta pratica con dao e opendatabase (e da quello che ho
cercato sulla guida non ho trovato granchè), per cui spero di riuscire a
venirne a capo con i tuoi esempi.
Ciao ed ancora grazie.
Marco


ciao, Marco

 
Anche se la domanda non era rivolta a me la colgo al volo e
approfondisco.
Grazie.
Per quando riguarda il problema del nome (db1) non ricordo come ma credo
di averlo già risolto. Se interessa vado in archivio.


 ciao, Marco
Ho scopiazzato un pň di codice senza provarlo, fai tu qualche
test se funziona.
Public Function BypassKey(bolVal As Boolean, Optional strMdb As String,
Optional Pwd as string) As Boolean
'Accetta:
'bolVal = True: abilita; False: disabilita
'strMdb = [Opz.] percorso+nome del database
'Restituisce: True l'operazione e' stata eseguita correttamente
On Error GoTo bypass_Err
    Dim wrk As Workspace
    Dim dbs As Database
    Set wrk = CreateWorkspace("", "admin", Pwd, dbUseJet)
    If strMdb = "" Then
        Set dbs = CurrentDb()
    Else
        Set dbs = wrk.OpenDatabase(strMdb)
    End If
    dbs.Properties("AllowBypassKey") = bolVal
    BypassKey = True
    Set dbs = Nothing
    Set wrk = Nothing
    Exit Function
bypass_Err:
    If Err = 3270 Then
        Dim prp As Property
        Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True)
        dbs.Properties.Append prp
        Resume
    Else
        BypassKey = False
    End If
End Function
Ciao Marco.
Ciao @Alex.
