Πρώτα Βήματα - Βάσεις δεδομένων

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

tasos — Tue, 08 Sep 2009 16:44:38 GMT

Thanks για τη διευκρίνιση, δεν ήξερα ότι υπήρχε το WITH TIES για το TOP statement.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

epp1123 — Tue, 08 Sep 2009 01:09:10 GMT

Μάλιστα, δε το ήξερα. Ευχαριστώ και πάλι.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

KelMan — Tue, 08 Sep 2009 00:54:56 GMT

Κι εδώ χρειάζεται διευκρίνιση. Αν έχεις ένα πίνακα όπως ο παρακάτω:

col1  col2
----- -------
1     aaaa
2     aaaa
3     bbbb
4     bbbb
5     cccc

To query

SELECT TOP 3 * FROM X ORDER BY col2

Θα σου φέρει

col1  col2
----- -------
1     aaaa
2     aaaa
3     bbbb
4     bbbb

Αυτό δεν είναι bug, είναι η συμπεριφορά του query engine της Access για να επιλύει το πρόβλημα της ισοπαλίας. Όπως λέει και στο help της Access

The TOP predicate does not choose between equal values. In the preceding example, if the twenty-fifth and twenty-sixth highest grade point averages are the same, the query will return 26 records.

Το ίδιο πράγμα συμβαίνει στον SQL Server αν πεις

SELECT TOP 2 * FROM X ORDER BY col2 WITH TIES

Στην Access το "WITH TIES" είναι default (για την ακρίβεια δεν μπορείς να πεις "with no ties").

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

epp1123 — Tue, 08 Sep 2009 00:53:21 GMT

Το έφτιαξα. Σας ευχαριστώ όλους.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

tasos — Tue, 08 Sep 2009 00:31:39 GMT

KelMan:
Ψυχραιμία!

... Ωστόσο πάντοτε το SELECT TOP 10 * FROM Table1 ORDER BY 2 θα φέρνει τις ίδιες 10 πρώτες εγγραφές εκτός βέβαια αν στο μεταξύ κάνεις κάποιο insert/update/delete που αλλάζει τη σειρά...

Αυτό που είπα είναι ότι αν το δεύτερο πεδίο του πίνακα έχει πάντα την ίδια τιμή, τότε το ερώτημα "SELECT TOP 10 * FROM Table1 ORDER BY 2" δεν θα φέρει 10 εγγραφές αλλά όλο τον πίνακα. Και αυτό συμβαίνει στον φίλο epp1123 γιατί η rnd(5) είναι πάντα η ίδια τιμή.

Επισυνάπτω μία μικρή access και δείτε ότι όντως συμβαίνει αυτό. Υπάρχουν 31 εγγραφές και το field1 έχει παντού τη τιμή 'w'. το "SELECT TOP 10 * FROM Table1 ORDER BY 2" θα φέρει όλο το πίνακα.

Εκτός κι αν κάνω κάτι τραγικά λάθος...

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

KelMan — Mon, 07 Sep 2009 23:22:01 GMT

Ψυχραιμία!

Ας τα πάρουμε τα πράγματα από την αρχή. Λοιπόν, αυτό που προσπαθείς να κάνεις δεν θα παίξει. Το αποτέλεσμα του ORDER BY rnd(x) θα είναι να βγάλει μια φορά έναν τυχαίο αριθμό και να τον θεωρήσει αυτόν ως τη στήλη, βάσει της οποίας θα κάνει το ORDER BY. Γι αυτόν το λόγο φαίνεται σαν να επιλέγονται τυχαίες εγγραφές πράγμα που δεν συμβαίνει στην πράξη. Το SELECT TOP 10 * FROM Table1 ORDER BY rnd(AQuestion) μπορεί να συνεπάγεται SELECT TOP 10 * FROM Table1 ORDER BY 1 ή SELECT TOP 10 * FROM Table1 ORDER BY 2 δηλαδή, ταξινόμηση κατά το πρώτο πεδίο ή το δεύτερο, κοκ. Αν στην πρώτη στήλη έχει ένα ID θα ταξινομήσει σε αύξουσα σειρά τους αριθμούς και θα πάρει τις 10 πρώτες εγγραφές. Αν στην δεύτερη έχει επίθετα, θα ταξινομήσει τα ονόματα και θα πάρει τις 10 πρώτες εγγραφές, αν στην τρίτη έχει ημερομηνίες, θα ταξινομήσει βάσει των ημερομηνιών και θα πάρει πάλι τις 10 πρώτες εγγραφές. Ωστόσο πάντοτε το SELECT TOP 10 * FROM Table1 ORDER BY 2 θα φέρνει τις ίδιες 10 πρώτες εγγραφές εκτός βέβαια αν στο μεταξύ κάνεις κάποιο insert/update/delete που αλλάζει τη σειρά.

Τώρα, μιας και είσαι άτυχος και δουλεύεις στην Access που αν δεν κάνω λάθος, δεν έχει guid function, μια απλή λύση είναι να κάνεις τα παρακάτω μέσα από τη VB:

Με ένα query να πάρεις το πλήθος των εγγραφών του πίνακα, έστω Χ
Να παράγεις όσους τυχαίους αριθμούς χρειάζεσαι από τιμή 1 ως Χ
Με ένα DataReader να διαβάσεις σε loop τις εγγραφές και χρησιμοποιώντας έναν counter, όταν η τιμή του counter γίνεται ένας από τις τιμές που έβγαλες στο #2, να κρατάς την εγγραφή, αλλιώς να προχωράς στην επόμενη.

Υπάρχουν και άλλες τεχνικές που κινιούνται σε αυτήν τη φιλοσοφία, όπως πχ να κάνεις generate τυχαία κλειδιά (ειδικά αν το κλειδί είναι ένας ακέραιος αριθμός) και να τραβάς μία εγγραφή βάσει του τυχαίου κλειδιού. Όπως και να έχει απλά θα πρέπει να κρατάς τα τυχαία νούμερα που έχουν ήδη "βγει" σε κάποιο array και να ελέγχεις ότι ένα νέο τυχαίο νούμερο δεν βρίσκεται ήδη μέσα σε αυτό το array.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

epp1123 — Mon, 07 Sep 2009 23:15:03 GMT

Αααα μάλιστα. Αυτό δε το ήξερα. Έμαθα και κάτι σήμερα. Ευχαριστώ. Το rnd(5) δε το θέλω. Το δοκίμασα καθαρά ακαδημαικά.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

tasos — Mon, 07 Sep 2009 23:10:37 GMT

Το πρόβλημα σου είναι αλλού!

Η Access έχει ένα πρόβλημα με το TOP και το ORDER BY. Δηλαδή, αν το πεδίο στο ORDER BY δεν είναι μοναδικό, τότε η access δεν εκτελεί το TOP 5 και σου επιστρέφει όλες τις εγγραφές. Για παράδειγμα, αν έχεις ένα πεδίο field1 και όλες οι εγγραφές έχουν τη τιμή '4' στο πεδίο αυτό, τότε η ερώτηση "SELECT TOP 5 * FROM myTable ORDER BY field1" δεν θα σου επιστρέψει 5 εγγραφές αλλά όλο το πίνακα!!!!

Όταν εσύ κάνεις ORDER BY rnd(5), επειδή το rnd(5) είναι η ίδια τιμή ισχύει το bug που σου περιέγραψα και για αυτό παίρνεις όλες τις εγγραφές. Για να το λύσω έκανα order by στα πεδία που ήθελα αλλά πρόσθετα και το primary key στο τέλος, και έτσι έπαιζε σωστά.

Όμως δοκίμασα το "SELECT TOP 5 * FROM myTable ORDER BY rnd(5), myKey" αλλά δεν έπαιξε.

Δεν έχω κάποια λύση να σου προτείνω ακόμα, αν σκεφτώ κάτι θα το ποστάρω.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

epp1123 — Mon, 07 Sep 2009 22:48:18 GMT

το έχω κάνει ήδη. τίποτααααααααααααααααααααααααααααα

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

tasos — Mon, 07 Sep 2009 22:47:20 GMT

Καλά κατάλαβα λοιπόν, στο rnd() όμως δεν πρέπει να βάλεις το όνομα του πεδίου; Μάλλον έβαλες το 5 σαν seed στον random generator.

Δοκίμασε να σώσεις σαν query το "SELECT TOP 10 * FROM Table1 ORDER BY rnd(AQuestion)" και από κώδικα να καλείς την query αυτή. Ίσως έτσι να καταφέρεις να πάρεις τα data όπως θέλεις.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

epp1123 — Mon, 07 Sep 2009 22:33:32 GMT

Μέσα στην Access δουλεύει το "SELECT TOP 10 * FROM Table1 ORDER BY rnd(AQuestion)" όπως δούλεψε σε εσένα. Μέσα από κώδικα, είτε είναι VB.NET, είτε Java (το έτρεξα και εκεί) μου επιστρέφει τα ίδια. Στη πρόταση μου αν αλλάξω το AQuestion με 5 εννοώ αυτό --> "SELECT TOP 10 * FROM Table1 ORDER BY rnd(5)". Τότε όμως μου επιστρέφει και τις 100 εγγραφές της βάσης, όχι τις 10 που δηλώνω στο TOP 10.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

tasos — Mon, 07 Sep 2009 22:24:08 GMT

epp1123:
Η rnd() είναι της SQL που διαβάζει και ξέρει η Access, και άμα τρέξω το ερώτημα μέσα από την Access κάθε φορά μου επιστρέφει διαφορετικά αποτελέσματα. Τώρα αν είναι η ίδια από τα κατάλοιπα της VB δε το ξέρω.

Το sql ερώτημα μου είναι έτσι "SELECT TOP 10 * FROM Table1 ORDER BY rnd(AQuestion)". Αν στη θέση του AQuestion βάλω 5 πχ δε μου επιστρέφει 10 εγγραφές αλλά και τις 100 που είναι μες τον πίνακα. Θέλω τις 10 τυχαίες να τις πάρω μέσα από το sql ερώτημα μία και έξω.

Δοκίμασα σε μία βδ στην Access το ερώτημα "SELECT TOP 10 * FROM myTable ORDER BY rnd(myKey)" και παίρνω 10 αποτελέσματα και κάθε φορά είναι διαφορετικά. Αν τρέξεις το ίδιο ερώτημα κατευθείαν στην Access έχεις πάλι τις ίδιες εγγραφές σε κάθε εκτέλεση;

Δεν κατάλαβα αυτό που λες "Αν στη θέση του AQuestion βάλω 5 πχ". Αν θέλεις 5 αντί για 10 αποτελέσματα γιατί να μην αλλάξεις το ερώτημα σε "SELECT TOP 5 ...". Μήπως εννοείς κάτι άλλο;

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

sakalis — Mon, 07 Sep 2009 21:51:47 GMT

Μαλλον δεν υπήρξα κατανοητός.

Αυτό που γραφείς είναι SELECT TOP 10 * FROM Table1 ORDER BY x

όπου x ενας τυχαίος αριθμός όπου δημιουργεί η rnd. Δηλαδή λες φέρε μού όλα τα στοιχεία από τον πίνακα table1 και ταξινόμησε τα με τη سστήλη x η οποία δεν υπάρχει και όλας. Αυτό που προσπαθώ να σου πω είναι λάθος το query που έχεις. εσύ χρειάζεσαι κάτι του

select * from table1 where id in (x1,x2,x3,x4,x5) όπου xi είναι τυχαία id's που έχεις ήδη δημιουργήσει

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

epp1123 — Mon, 07 Sep 2009 21:28:54 GMT

Η στήλη υπάρχει μια χαρά, είναι η ID στήλη, απλά το όνομα είναι αυτό AQuestion.

Απ: VB.NET, σύνδεση σε βάση Microsoft Access και επιλογή τυχαίων εγγραφών.

sakalis — Mon, 07 Sep 2009 21:25:20 GMT

Βασικά είναι λάθος το query σου. Εσύ του ζητάς να σορτάρεις (order by) βάση μιας στηλης που ουσιαστικά δεν υπάρχει rnd(AQuestion)

Αυτό που χρειάζεσαι είναι να δημιουργήσεις ενα where με τυχαία ID's (φανταζομαι) των ερωτήσεων