Εξαγωγή πινάκων σε αρχείο txt

[Αναστάσιος]

Καλημέρα, και χρόνια πολλά

Θα ήθελα βοήθεια όποιος /α μπορεί, γιατί όσο και να έψαξα φόρουμ ή στο Ίντερνετ, δεν βρήκα κάτι.

Βγάζω από το Erp κάποια στοιχεία, και αφού τα επεξεργαστώ, (Access and Vba), τα βγάζω σε 2 αρχεία txt, για να αποστολή στην εταιρεία. Όλα δουλεύουν τέλεια, (χάρη στον κώδικα που βρήκα στο φόρουμ).
Το πρόβλημα: Όταν είναι λίγες εγγραφές, ( περίπου 1000), το βγάζει σε δευτερόλεπτα. όσο όμως αυξάνονται τα δεδομένα, αρχίζει να γίνετε πολύ αργό......Το ένα αρχείο που έχει πελάτες, είναι μικρό και το βγάζει αμέσως, το δεύτερο όμως που έχει τις κινήσεις των πελατών, για όλη την χρονιά, βγάζει περίπου 285.000 εγγραφές.
Εχθές το άφησα όταν έφυγα από την δουλειά για να δω τον χρόνο που θέλει, και έκανε 7:20 ώρες!!!!!!!!!!!!!!!!!!, (Παρόλα αυτά, έβγαλε τα δεδομένα μια χαρά).
Το προηγούμενο πρόγραμμα που είχαν φτιάξει με παρόμοιο σχετικά τρόπο, (Vba-Sql), έκανε περίπου 35 δευτερόλεπτα....

τι κάνω λάθος;

Ευχαριστώ εκ το προτέρων.

Φιλικά

Αναστάσιος

[Meteora]

Καλησπέρα

Τόσος κώδικας για μια αποστολή δεδομένων σε *.txt ; Δεν αντιλαμβάνομαι τη δημιουργία πίνακα κατά τη διαδικασία εξόδου των δεδομένων σου. Αυτό σχεδιαστικά είναι μια κακή επιλογή ! Αφού έχεις τα δεδομένα σε πίνακα, θα πας σε ερώτημα και μετά θα στείλεις τα δεδομένα του σε *.txt, σε excel, ...

Από περιέργεια και μόνο, θα ήθελα να δοκιμάσεις τις δυο γραμμές κώδικα, αφού πρώτα φτιάξεις τον φάκελο C:\dokimi

 DoCmd.OutputTo acOutputTable, "Table_IceCream", acFormatTXT, _
                  "C:\dokimi\data.txt"
   MsgBox "The End !"

Για να δούμε...// Καλό βράδυ, Νίκος

[Αναστάσιος]

Καλημέρα σε όλους.

Σε ευχαριστώ Νίκο για την άμεση απάντηση....

Κάνω όλη αυτή την διαδικασία, για κάποιους συγκεκριμένους λόγους, που ίσως λόγω απειρίας να είναι και σχεδιαστικά λάθος, όπως είπες.......

Στον πρώτο πίνακα, Table_IceCream, έρχονται τα δεδομένα από το Erp.
Επειδή όμως μου ζητάνε να κάνω διάφορα πράγματα ανάλογα την κατηγορία πελάτη, όπως ομαδοποίηση δεδομένων, αλλαγή σε διάφορα παραστατικά, αλλαγή σε κωδικούς, αλλαγή σε παροχές, κτλ.....
Τρέχω ένα ερώτημα που κάνει ομαδοποίηση, δημιουργώ ένα πίνακα που τα βάζω εκεί μέσα, κάνω όλες τις υπόλοιπες αλλαγές, βγάζω το αρχείο, και σβήνω πίνακες και ερωτήματα......
Αυτά για να καταλάβεις το λόγο που τα έκανα όλα αυτά, αλλά και πάλι ΔΕΝ ξέρω αν είναι και ο σωστότερος τρόπος....

Θα κάνω αμέσως ότι μου είπες για να δω ΑΝ θα διορθωθεί το πρόβλημα......

Σε ευχαριστώ και πάλι, και θα ενημερώσω για την εξέλιξη....

Φιλικά

Αναστάσιος

[Αναστάσιος]

Νίκο,

Η εντολή που έδωσες πάει σφαίρα, (8'' για να βγούν 15.000 εγγραφές), αλλά με την γραμμογράφηση που έχει δεν μπορεί το Sap να καταχωρήσει το αρχείο.

αυτό που μου είπες βγάζει:
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
| AA | Zaf | Shell_A | PersonID | Shell_B | ID | Shell_C | Type | Shell_D | Date1 | Shell_E | Shell_K | CodeID | Shell_F | Quant | Shell_G | Price | Shell_H | NetValue | Shell_I | Description | Shell_J |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
| 1 | 030290 | # | 13.4190 | # | ΤΙΑ00155200 | # | 1 | # | 18/01/2017 | # | E | 05038 | # | 1 | # | 13,00 € | # | 13,00 € | # | ΤΕΜ | # |

και αυτοί θέλουν:

030290#13.4190 #ΤΙΑ00155200#1#18/01/2017#E05038#1 #13 #13 #ΤΕΜ#
030290#13.4190 #ΤΙΑ00155207#1#01/02/2017#E32212#1 #19,43 #19,43 #ΤΕΜ#

Γι αυτό το λόγο χρησιμοποιήσα κώδικα για την εξαγωγή δεδομένων.

Τώρα θα δοκιμάσω με ερώτημα.....

[Meteora]

Καλησπέρα
Φτιάξε ένα ερώτημα που να περιέχει μόνο τα πεδία που θες. Στο ερώτημα αυτό πρόσθεσε μια στήλη που να ενώνει τα περιεχόμενα των πεδίων και αυτό σημαίνει ότι οι κάθετες γραμμές πάνε περίπατο... Στο ερώτημα έχεις δυνατότητα απλής ή και πολλαπλής ταξινόμησης!
Είναι μια αρχή, ...αλλά δεν ξέρω που βγάζει, αφού αυτά τα Erp, Sap είναι για μένα κινέζικα! <έριξα μια ματιά στο διαδίκτυο)

Για να δούμε...

[kapetang]

Καλησπέρα

Εκτός από τη λύση του φίλου Νίκου και μια άλλη πρόταση.

Όπως κατάλαβα στο αρχείο κειμένου, που εξάγεται από το Erp (και στη συνέχεια εισάγεται), χρησιμοποιείται ως διαχωριστικό, των ονομάτων των πεδίων και των τιμών τους το σύμβολο #.

Κατά την εισαγωγή του αρχείου για επεξεργασία στην Access, δεν υπάρχει κανένας λόγος να δημιουργήσουμε πεδία για το διαχωριστικό με τη σταθερή τιμή #.

Στο συνημμένο αρχείο:

1) Αφαίρεσα από τον πίνακα Table_IceCream τα περιττά πεδία και επανέλαβα τις εγγραφές του, ώστε να γίνουν 373.248.

2) Πρόσθεσα διάφορα ερωτήματα, για δοκιμή της μεθόδου.

3) Στη φόρμα frmExportTableQuery, αφού επιλέξουμε πίνακα ή ερώτημα (SELECT ή UNION) το διαχωριστικό και το όνομα του αρχείου κειμένου, που θα δημιουργηθεί πατούμε το κουμπί.

Το αρχείο κειμένου θα δημιουργηθεί στο φάκελο που βρίσκεται η ΒΔ.

Χρειάζεται κάποια υπομονή. Στον υπολογιστή μου για την εξαγωγή του πίνακα Table_IceCream (373.248 εγγραφές) απαιτείται περίπου 1 λεπτό.

[Αναστάσιος]

Καλησπέρα,

Σας ευχαριστώ για τις απαντήσεις, και την δουλειά που κάνατε.
θα προχωρήσω σε δοκιμές, και θα σας ενημερώσω.

Φιλικά
Αναστάσιος

[Αναστάσιος]

καλησπέρα στο φόρουμ.

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

Γιώργο, προχώρησα και το τελείωσα με τον δικό σου κώδικα, και έκανα δουλειά...

Σας ευχαριστώ που ασχοληθήκατε, και επιλύσατε, το θέμα μου.

Εύχομαι χρόνια πολλά και υγεία για εσάς και τις οικογένειες σας.

Φιλικά

Αναστάσιος