Μεταφορές πινάκων από βάση σε βάση

[parara]

Γεια χαρά ,
γνωρίζει κανείς πως μπορώ να μεταφέρω πίνακες από μία βάση σε μία άλλη χωρίς να χαθούν οι μεταξύ τους σχέσεις.

Κατάφερα να μεταφέρω τους πίνακες (Import) αλλά όχι τις σχέσεις , με αποτέλεσμα όταν θέλω να επιστρέψω τους πίνακες πίσω στην αρχική βάση (export) να "χτυπάει λάθος" σ' αυτές που έχουν σχέσεις.


Καμιά ιδέα;

[Meteora]

Καλησπέρα.
Δημιούργησε τους πίνακες (χωρίς περιεχόμενο) και τις συνδέσεις στην εφαρμογή σου και απλά μετέφερε τα περιεχόμενα από τη βάση-πηγή στην προς χρήση βάση σου.
Αυτή τη τεχνική έχω χρησιμοποιήσει χωρίς πρόβλημα. Πρέπει όμως να προσέξεις να "φορτώσεις" αρχικά τους πίνακες με τα κύρια κλειδιά, αλλιώς θα δεχτείς "κλώτσημα"...

Με εκτίμηση
Νίκος

[parara]

Καλημέρα ,
σωστή σκέψη. Θα το δοκιμάσω και θα δω. Τι γίνεται όμως στην περίπτωση που θέλω να προσθέσω ένα νέο πίνακα και να δημιουργήσω μια νέα σχέση με κάποιον άλλο από τους υπάρχοντες;
Σκεπτόμενος αυτό ζήτησα ιδέες ώστε να μπορώ να κάνω αντίγραφο των πινάκων και των σχέσεων.

[parara]

Νίκο έχεις κώδικα vba για μεταφορά δεδομένων πινάκων μιας βάσης , σε ίδιους πίνακες άλλης βάσης;

[Meteora]

Καλημέρα
...Βεβαίως, αλλά δεν είμαι σπίτι μου. Θα κάνω ανάρτηση μετά τις 8 μ.μ.
Τα ξαναλέμε λοιπόν!
Νίκος

[parara]

Ευχαριστώ!!

[Meteora]

Ο κώδικας που ακολουθεί βρίσκεται στη ενεργοποιημένη βάση (την τρέχουσα) εργασίας και με ένα κουμπάκι εκτελείται!

Private Sub btn_insert_dataClick()

    Dim fso
    Dim file As String
    file = "C:\mikapa\tbldeltio71.accdb"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
        MsgBox "Δεν εντοπίζεται το " & file, vbInformation, "Έλεγχος"
        Exit Sub
    Else
        MsgBox " Εντοπίστηκε το " & file, vbInformation, "Έλεγχος"
    End If

    Dim db As DAO.Database
    Dim ws As DAO.Workspace

    Dim strPath As String
    strPath = CurrentProject.FullName

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase("c:\mikapa\tblDeltio71.accdb", False, False, "MS Access;PWD=8401")

    db.Execute "INSERT INTO tblSxolio IN '" & strPath & "' SELECT tblSxolio.* FROM tblSxolio;"
    db.Execute "INSERT INTO tblKatigites1 IN '" & strPath & "' SELECT tblKatigites1.* FROM tblKatigites1;"
    db.Execute "INSERT INTO tblKatigites2 IN '" & strPath & "' SELECT tblKatigites2.* FROM tblKatigites2;"
  
    '...  ακολουθούν και άλλες εντολές μεταφοράς πινάκων όμοιες με τις προαναφερόμενες

    db.Close

    Me.Requery
    
    MsgBox "Τα δεδομένα μεταφέρθηκαν !", vbInformation, "Έλεγχος"
End Sub

Παρατηρήσεις:

• Η βάση - πηγή είναι η C:\mikapa\tbldeltio71.accdb
• Οι πίνακες -όπως βλέπεις έχουν ίδιο όνομα και αυτό δεν είναι αναγκαίο!
• Η έκφραση "MS Access;PWD=8401", αφορά την περίπτωση που η βάση-πηγή είναι κλειδωμένη με password to 8401
• Μη ξεχάσεις τα Reference (Δες επισυναπτόμενο)

Δεν έχω κάτι πιο απλό...


Με εκτίμηση
Νίκος

[parara]

Το δοκίμασα δουλεύει θαυμάσια.
Πρόσθεσα στο τέλος και

sSource = "c:\update\esex.MDB"
sDest = "C:\dTest\esex.MDB"
FileCopy sSource, sDest

ώστε να μεταφέρω την αναβαθμισμένη έκδοση και τώρα μένει να μεταφέρω πάλι πίσω τα δεδομένα στους πίνακες. Φαντάζομαι ότι γίνεται με τροποποίηση του ίδιο κώδικα , έτσι.....

[parara]

Παρέλειψα να ευχαριστήσω.

Ευχαριστώ για τον κώδικα δουλεύει άψογα.