Newsgroup: it.comp.appl.access
Titolo: caricare dati senza collegare tabelle

Pur Avendo due database back_end. vorrei evitare di collegare un infinità di 
tabelle collegate nel front end.
Mi piacerebbe, se possibile, creare il rowsource di una casella di riepilogo 
al volo anche se i dati provengono da un altro db. E' possibile, magari 
aprendo recordset?

 wrote in message
news:d30i69$85k$
1...@hulme.interac.it

Le prestazioni potrebbero essere inferiori, ma hai 2 metodi:
1)"SELECT * FROM Clienti IN ''[;DATABASE=C:\Data.mdb;PWD=myPassword]
2)Aprire un Recordset sul DB_EXT e se usi A>2000(forse anche il 2000)
  il controllo ListBox/Combo supporta l'assegnazione del Recordset
  Diretto.
Dim DB_EXT as DAO.Database
Dim rs_ext as DAO.Recordset
Set DB_EXT=OpenDatabase(Nome_Dbs)
Set rs_ext=DB_EXT.OpenRecordset(.....!
Set Me!NomeList.Recordset=rs_Ext
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:01a344c93e1e7db417...@mygate.mailgate.org...

Perfetto la seconda soluzione mi sembra la più veloce.
Se volessi usare ADO ?

 Se volessi usare ADO ?
A parte che ti sconsiglio ADO se usi un BE(JET) puoi fare cosě:
Te lo passo senza controllarlo l'ho estrapolato da un pezzo
di Codice mio piů complesso pertanto non sono stato li ad
ottimizzarlo per il tuo uso.
Nel Modulo della Form:
Private Cn                    As New ADODB.Connection
Private rs                    As New ADODB.Recordset
Private Sub ConnectDatabase(strName As String)
   'If Cn.state = adStateOpen Then Cn.Close:  Set Cn = Nothing
   With Cn
         .Provider = "Microsoft.Access.OLEDB.10.0"
         .Properties("Data Provider").value = "Microsoft.Jet.OLEDB.4.0"
         .Properties("Data Source").value = strName
         .Open
   End With
   rs.Open "SELECT * FROM NomeTabella WHERE id=" & idx, Cn,
adOpenKeyset, adLockOptimistic
   Set Me!NomeList.Recordset=rs
End Sub


 ha scritto nel messaggio 
news:0974a2a940d19197f1...@mygate.mailgate.org...

Grazie, cosi dovrebbe andare  ...perň la tabella č collegata.
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String
    stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    stringa = stringa & CurrentProject.Connection
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "Ciclo?"    ' Definisce il messaggio.
    Style = vbYesNo + vbQuestion + vbDefaultButton2    ' Definisce i 
pulsanti.
    Title = "Conferma"    ' Definisce il titolo.
    Help = "DEMO.HLP"    ' Definisce il file della Guida.
    Ctxt = 1000    ' Definisce il contesto dell'argomento.
        ' Visualizza il messaggio.
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' L'utente sceglie il pulsante Sě.
    cn.Open stringa
    rs.Open "select 
socimas.id
,socimas.cognome & ' ' & socimas.nome as 
nominativo from socimas order by socimas.cognome;", cn, 3, 3
    Set Me.Elenco0.Recordset = rs
    Set cn = Nothing
    Set rs = Nothing
    Else    ' L'utente sceglie il pulsante No.
    MyString = "No"    ' Esegue un'azione.
    DoCmd.Close
End If 

 Grazie, cosi dovrebbe andare  ...perň la tabella č collegata.
[CUT]
Deciditi se la vuoi Collegata o no, non ci capisco piů nulla...!!!
Se č collegata stai facendo una cavolata.
Saluti.


 -- 
Gulp!

> @Alex
@Alex, hai mai pensato di proporti alle Nazioni Unite come diplomatico???
;-P
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it