+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Importazione dati

  1. #1
    biker non è in linea Scolaretto
    Post
    124

    Importazione dati

    Ciao ragazzi, volevo esporvi un problema.
    Ho creato un DB che aggiorno frequentemente importando dei dati da un altro DB identico al mio. Per cui importando i dati non faccio altro che togliere i vecchi dati ed inserire i nuovi che importo.
    Vorrei però un comando che mi consenta una duplice operazione:
    - importare tutto;
    - importare solo i nuovi record.
    La prima operazione la effettuo con questo codice:

    Dim DBCorrente As Database
    Dim DBEsterno As Database
    Dim TabellaDati_Generali As Recordset
    Dim TabellaTabella_Pm As Recordset
    Dim TabellaEsternadati_generali As Recordset
    Dim TabellaEsternaTabella_Pm As Recordset

    Dim path, ID_DATI

    'Apertura Tabella Corrente
    Set DBCorrente = CurrentDb
    Set TabellaDati_Generali = DBCorrente.OpenRecordset("DATI GENERALI")
    Set TabellaTabella_Pm = DBCorrente.OpenRecordset("tabella Pm")

    'Apertura Tabelle esterne
    path = Application.CurrentProject.path & "\(nome file).mde"
    Set DBEsterno = OpenDatabase(path)
    Set TabellaEsternadati_generali = DBEsterno.OpenRecordset("DATI GENERALI")
    Set TabellaEsternaTabella_Pm = DBEsterno.OpenRecordset("Tabella pm", dbOpenDynaset)

    'lettura di tutti i dati della tabella dati generali
    Do Until TabellaEsternadati_generali.EOF
    If TabellaEsternadati_generali.Fields("trasferito") = False Then

    Screen.MousePointer = 11 'Clessidra
    'Copia Dati della tabella Dati generali
    TabellaDati_Generali.AddNew
    TabellaDati_Generali.Fields("cognome") = TabellaEsternadati_generali.Fields("cognome")
    TabellaDati_Generali.Fields("nome") = TabellaEsternadati_generali.Fields("nome")
    ID_DATI = TabellaDati_Generali.Fields("id_dati")

    TabellaDati_Generali.Update
    End If

    'Ricerca di tutti i dati della tabella PM
    TabellaEsternaTabella_Pm.FindFirst "id_pm=" & TabellaEsternadati_generali.Fields("id_dati")
    Do Until TabellaEsternaTabella_Pm.NoMatch
    TabellaTabella_Pm.AddNew
    TabellaTabella_Pm.Fields("tipo di evento") = TabellaEsternaTabella_Pm.Fields("tipo di evento")
    TabellaTabella_Pm.Fields("sintesi evento") = TabellaEsternaTabella_Pm.Fields("sintesi evento")
    TabellaTabella_Pm.Update
    TabellaEsternaTabella_Pm.FindNext "id_pm=" & TabellaEsternadati_generali.Fields("id_dati")
    Loop
    'vai avanti di un dato
    TabellaEsternadati_generali.MoveNext
    chiusura tabelle



    con questo codice accodo dati di due tabelle con relazione uno a molti ad altrettante tabelle. Però sono obbligato ad importare tutto.

    A me interessava importare anche solo i nuovi record. chi può aiutarmi?
    Grazie in anticipo

  2. #2
    ivanvenuti non è in linea Scolaretto
    Post
    105
    per farlo credo che tu debba inserire un campo di tipo data dove scrivi la data dell'ultima modifica.
    Inoltre questo non risolve il problema delle eliminazioni di record. Per farlo o tieni traccia dei record eliminati in una seconda tabella di appoggio oppure elimini "logicamente" io record con un flag.

    Però, visto che i DB sono identici, ti consiglio una strada diversa: usa le repliche di database Access.

    Esisterà un db master e un certo numero di copie (con Strumenti > Replica > Crea replica). Successivamente, con l'operazione Strumenti > Replica > Sincronizza, puoi sincronizzare i dati delle diverse repliche con il master...
    http://ivenuti.altervista.org/articoli.htm: tanti articoli, da me pubblicati su riviste di informatica, ora scaricabili gratis! Se vuoi imparare JavaScript dai un occhio in libreria al mio nuovo libro! http://www.fag.it/scheda.aspx?ID=21754

+ Rispondi al Thread

Discussioni simili

  1. Importazione da excel di dati access
    Da issorcio nel forum Excel
    Risposte: 2
    Ultimo Post: 08-02-2006, 17:47
  2. Importazione dati phpMyAdmin da CSV
    Da sevenumber nel forum PHP
    Risposte: 11
    Ultimo Post: 26-01-2006, 21:14
  3. importazione dati con access
    Da kair78 nel forum Access
    Risposte: 1
    Ultimo Post: 17-01-2006, 18:16
  4. Importazione e gestione dati esterni in Excel
    Da allinone nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 18-12-2005, 20:46
  5. importazione dati
    Da samuele.fazio nel forum Microsoft Office, Access, VBA
    Risposte: 1
    Ultimo Post: 22-11-2005, 17:30

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi