Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Μεταφορές πινάκων από βάση σε βάση

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 02-04-14, 11:14
Όνομα: ΔΙΟΝΥΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 31-12-2012
Μηνύματα: 65
Προεπιλογή Μεταφορές πινάκων από βάση σε βάση

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

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


Καμιά ιδέα;
Απάντηση με παράθεση
  #2  
Παλιά 03-04-14, 21:01
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

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

Με εκτίμηση
Νίκος
Απάντηση με παράθεση
  #3  
Παλιά 04-04-14, 08:57
Όνομα: ΔΙΟΝΥΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 31-12-2012
Μηνύματα: 65
Προεπιλογή Σωστή σκέψη

Καλημέρα ,
σωστή σκέψη. Θα το δοκιμάσω και θα δω. Τι γίνεται όμως στην περίπτωση που θέλω να προσθέσω ένα νέο πίνακα και να δημιουργήσω μια νέα σχέση με κάποιον άλλο από τους υπάρχοντες;
Σκεπτόμενος αυτό ζήτησα ιδέες ώστε να μπορώ να κάνω αντίγραφο των πινάκων και των σχέσεων.
Απάντηση με παράθεση
  #4  
Παλιά 06-04-14, 23:39
Όνομα: ΔΙΟΝΥΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 31-12-2012
Μηνύματα: 65
Προεπιλογή Κώδικας μεταφοράς

Νίκο έχεις κώδικα vba για μεταφορά δεδομένων πινάκων μιας βάσης , σε ίδιους πίνακες άλλης βάσης;
Απάντηση με παράθεση
  #5  
Παλιά 07-04-14, 11:58
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

Καλημέρα
...Βεβαίως, αλλά δεν είμαι σπίτι μου. Θα κάνω ανάρτηση μετά τις 8 μ.μ.
Τα ξαναλέμε λοιπόν!
Νίκος
Απάντηση με παράθεση
  #6  
Παλιά 07-04-14, 12:26
Όνομα: ΔΙΟΝΥΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 31-12-2012
Μηνύματα: 65
Προεπιλογή ...........Tnx

Ευχαριστώ!!
Απάντηση με παράθεση
  #7  
Παλιά 07-04-14, 14:54
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

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

Κώδικας:
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 (Δες επισυναπτόμενο)
Δεν έχω κάτι πιο απλό...


Με εκτίμηση
Νίκος
Συνημμένα Αρχεία
Τύπος Αρχείου: doc reference.doc (50,0 KB, 30 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 08-04-14, 11:20
Όνομα: ΔΙΟΝΥΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 31-12-2012
Μηνύματα: 65
Προεπιλογή Τέλεια!!!

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

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

ώστε να μεταφέρω την αναβαθμισμένη έκδοση και τώρα μένει να μεταφέρω πάλι πίσω τα δεδομένα στους πίνακες. Φαντάζομαι ότι γίνεται με τροποποίηση του ίδιο κώδικα , έτσι.....
Απάντηση με παράθεση
  #9  
Παλιά 18-04-14, 13:14
Όνομα: ΔΙΟΝΥΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 31-12-2012
Μηνύματα: 65
Προεπιλογή Ευχαριστίες

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

Ευχαριστώ για τον κώδικα δουλεύει άψογα.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Πίνακες ] Αντιγραφή πινάκων από τρέχουσα βάση σε νέα βάση apostolos Access - Ερωτήσεις / Απαντήσεις 11 04-03-16 21:43
Βαση Αποδειξεων asterix Access - Ερωτήσεις / Απαντήσεις 3 10-04-15 17:45
[ Πίνακες ] Σύνδεση Πινάκων σε FrontEnd BackEnd βάση Δημήτρης Access - Ερωτήσεις / Απαντήσεις 2 26-11-11 13:47
[ Ερωτήματα ] ΒΑΣΗ ΔΕΔΟΜΕΝΩΝ chris1978 Access - Ερωτήσεις / Απαντήσεις 15 09-12-10 09:59
Βοήθεια για την βάση μου Τακης Access - Ερωτήσεις / Απαντήσεις 5 22-04-10 18:54


Η ώρα είναι 10:10.