Importare dati da database esterno

Question

Salve,

ho un problema che non riesco a risolvere: devo importare dei records in un database, prelevati da un database remoto. I due Db hanno la stessa identica struttura, sono relazionati uno a molti in tre livelli, ovvero:

TabellaPrincipale 1-M > TabellaSecondaria 1-M > TabellaTerziaria

giusto per visualizzare la cosa si veda l'immagine seguente: RELAZIONI

Il secondo Db avrà poi vita propria però devo permettere all'utente di importare determinati record dal primo, di tanto in tanto. Ad importare i dati nella TabellaPrincipale ci sarei anche riuscito ma non riesco a scendere di livello sulle altre tabelle relazionate.

Come posso procedere?

Answer 1

Se i criteri di estrazione sono sufficienti per scremare l'input, puoi utilizzare una semplice query di accodamento sulle tue tabelle.

Qualcosa del genere :

INSERT INTO myTabella( Dato1, Dato2 )

SELECT TabellaIn.Dato1, TabellaIn.Dato2

FROMTabellaIn

Volendo puoi aggiungere anche condizioni alla query.

Una volta caricati i dati puoi creare maschere che si basano direttamente sulla tua tabella (o su una query).

Dimmi se lo ritieni fattibile.

Mimmo

Answer 2

Ciao, figurati, giornataccia per tutti e due allora,

Era per facilitare l'utente, la selezione la fa da una ListBox su una finestra popup, preme "Importa" e carica i dati che può anche nodificare/aggiornare prima di salvare il record. Ma non c'è nessun problema, se risolvo inserendo direttamente i dati in tabella per me è lo stesso. Il mio problema è riportare i dati anche nelle tabelle collegate.

Answer 3

Ciao, scusa il ritardo....giornataccia.

Non capisco: leggi un record e ne imposti i dati su una form, e dopo? Perchè non scriverli direttamente  sulla tua tabella di destinazione?

Answer 4

Ciao Mimmo,

al momento faccio così, ho cambiato i nomi ma la struttura è questa. Non volevo inserirla per non influenzare le risposte, perché magari c'è un metodo diverso e migliore. Considera che purtroppo non posso intervenire in alcun modo nel database remoto, posso solo far creare l'accesso in sola lettura a quel file per permettere la lettura dei dati:

'percorso del database esterno con i dati che interessano

Const PercorsoDB = "\percorso\Dbremoto.mdb"

Function CaricaCodice()

On Error GoTo Errore

'*** Routine che carica il codice selezionato nella ListBox nei vari campi

    Dim strSQL As Variant

    Dim DBaseList As DAO.Database

    Dim Rs As Recordset

    strSQL = "stringa SQL per il fintraggio dei records che interessano"

    Set DBaseList = OpenDatabase(PercorsoDB)

    Set Rs = DBaseList.OpenRecordset(strSQL)

    'inserisco i dati nei vari campi della maschera principale

    With Forms!MascheraPrincipale

        !txtCampo1 = Rs!Campo1

        !txtCampo2 = Rs!Campo2

        ...

        .Refresh

    End With

    Rs.Close

    DBaseList.Close

    Set Rs = Nothing

    Set DBaseList = Nothing

'************************************************************************

    Exit Function

Errore:

    Rs.Close

    DBaseList.Close

    Set Rs = Nothing

    Set DBaseList = Nothing

    MsgBox Err.Description & " (" & Err.Number & ")"

End Function

Answer 5

Ciao Massimo,

riesci a collegare le tabelle esterne (magari via ODBC)?

Oppure puoi scaricare su file dal Db origine (fisso op Csv)?

Mimmo