Forum

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

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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 30-06-11, 17:10
Όνομα: Απόστολος
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-10-2010
Μηνύματα: 37
Προεπιλογή Αντιγραφή πινάκων από τρέχουσα βάση σε νέα βάση

Καλησπέρα σας,

Θέλω τη βοήθεια σας στο εξής θέμα που με απασχολεί:
Έχω μια βάση δεδομένων και θέλω μέσω λειτουργικού κουμπιού φόρμας να αντιγράφονται μόνο οι πίνακες της βάσης σε νέα βάση που να δημιουργείτε εκείνη τη στιγμή.

Σας ευχαριστώ
Απάντηση με παράθεση
  #2  
Παλιά 30-06-11, 21:25
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.306
Προεπιλογή

Καλησπέρα στην παρέα

Απόστολε, στη ΒΔ που επισυνάπτω , αν κάνουμε κλικ στο κουμπί της φόρμας « frmCreateDB», δημιουργείται μία νέα ΒΔ και ακολούθως αντιγράφονται σ’ αυτήν οι πίνακες της τρέχουσας.
Η λειτουργικότητα του κουμπιού, οφείλεται στον κώδικα:
Κώδικας:
Private Sub cmdCreateDB_Click()

    Dim ws As Workspace
    Dim db As Database
    Dim LFilename As String, dirName As String
    Dim Tbl As DAO.TableDef
    Dim x As Variant, j As Integer

    Set ws = DBEngine.Workspaces(0)

    'Διαδρομή και όνομα αρχείου (Να προσαρμοστεί στις ανάγκες)
    LFilename = "c:\Test\NewDB.mdb"
    
    'Αν δεν υπάρχει ο φάκελος, δημιουργείται
    x = Split(LFilename, "\")
    For j = LBound(x) To UBound(x) - 1
        If j = LBound(x) Then dirName = x(LBound(x)) Else dirName = dirName & "\" & x(j)
        If Dir(dirName, vbDirectory) = "" Then MkDir dirName
    Next
        

    'Αν υπάρχει το αρχείο διαγράφεται
    If Dir(LFilename) <> "" Then Kill LFilename

    'Δημιουργία νέου αρχείου *.mdb
    Set db = ws.CreateDatabase(LFilename, dbLangGeneral)
    
    'Αντιγραφή των πινάκων της τρέχουσας ΒΔ στη νέα
    For Each Tbl In CurrentDb.TableDefs
        If Left(Tbl.Name, 4) <> "MSys" Then
            DoCmd.TransferDatabase acExport, "Microsoft Access", LFilename, _
            acTable, Tbl.Name, Tbl.Name, False
        End If
    Next
    MsgBox "Η εξαγωγή των πινάκων ολοκληρώθηκε"
    db.Close
    Set db = Nothing

End Sub
Όπως βλέπεις στον κώδικα, το πλήρες όνομα της νέας βάσης είναι: "c:\Test\NewDB.mdb" Συνεπώς θα πρέπει να το προσαρμόσεις στις ανάγκες σου.
Δοκίμασε τον κώδικα, μήπως κάτι μου διέφυγε.

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb CreateDB.mdb (256,0 KB, 50 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 18-07-11, 09:56
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.306
Προεπιλογή

Καλημέρα

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

Γιώργος
Απάντηση με παράθεση
  #4  
Παλιά 18-07-11, 16:06
Όνομα: Απόστολος
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-10-2010
Μηνύματα: 37
Προεπιλογή

Η απάντηση με βρήκε στις διακοπές μου μόλις χθες επέστρεψα το δοκίμασα και λειτούργει τέλεια
Σας ευχαριστώ,
Απάντηση με παράθεση
  #5  
Παλιά 24-02-16, 17:27
Όνομα: Σπήλιος
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-07-2011
Μηνύματα: 9
Προεπιλογή

Καλησπέρα σε όλη τη παρέα. Πρωτα απ όλα σας ευχαριστώ όλους για την πολύτιμη βοήθειά σας. Παρακαλώ αν είναι εύκολο να μου εξηγήσετε πως γίνεται στο παραπάνω πρόγραμμα, μαζί με τους πίνακες να σώζει και τις σχέσεις τους .Ευχαριστώ και πάλι
Απάντηση με παράθεση
  #6  
Παλιά 24-02-16, 20:08
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.306
Προεπιλογή

Καλησπέρα

Σπήλιο, δες τη συνημμένη ΒΔ.

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

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb CopyTablesRelations.mdb (396,0 KB, 25 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 24-02-16, 22:22
Όνομα: Σπήλιος
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-07-2011
Μηνύματα: 9
Προεπιλογή

Ευχαριστώ πάρα πολύ
Απάντηση με παράθεση
  #8  
Παλιά 04-03-16, 18:17
Όνομα: Σπήλιος
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-07-2011
Μηνύματα: 9
Προεπιλογή

Καλησπέρα σε όλη τη παρέα. Θα ήθελα να ρωτήσω τι πρέπει να αλλάξω στο παραπάνω παράδειγμα, αν αντί πινάκων έχω link των πινάκων, δηλαδη να πέρνω αντιγραφα των links αντι των πινάκων . Ευχαριστω

Τελευταία επεξεργασία από το χρήστη SPHLIOS : 04-03-16 στις 19:08.
Απάντηση με παράθεση
  #9  
Παλιά 04-03-16, 20:28
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.306
Προεπιλογή

Δοκίμασε τον κώδικα όπως είναι.

Αν συμβεί λάθος κατά την αντιγραφή των σχέσεων κάνε την εντολή:

copyRelations dbNew, dbCur σχόλιο.
Απάντηση με παράθεση
  #10  
Παλιά 04-03-16, 20:35
Όνομα: Σπήλιος
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-07-2011
Μηνύματα: 9
Προεπιλογή

Καλησπέρα, το πρόγραμμα δοκιμάστηκε και δεν δουλευει. Η εντολή που μου λές υπάρχει καΙ αντιγράφει τις σχέσεις. Εμένα με ενδιαφέρει να αντιγράφονται τα links των πινάκων. Ευχαριστώ
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

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


Η ώρα είναι 09:23.