Ανανέωση ιστοσελίδας

[Dimitriss]

Καλημέρα στην κοινότητα. Θα ήθελα την βοήθειά σας. Έχω το παρακάτω sql ερώτημα:

sql = "SELECT * FROM ΠΙΝΑΚΑ" _
        & " WHERE ΠΕΔΙΟ_Α= '" & cntro & "' AND" _
        & " ΠΕΔΙΟ_Β='" & kdkos & "' AND ΠΕΔΙΟ_Γ='" & eds & "' AND" _
        & " ΠΕΔΙΟ_Δ='" & tm & "' AND ΗΜΕΡΟΜΗΝΙΑ= #" & Format(DDate, "dd/mm/yyyy") & "#"

Το ερώτημα δεν λειτουργεί σωστά όταν έχω την ημερομηνία. Όταν διαγράφω την ημερομηνία τρέχει μία χαρά. Ο τύπος της ημερομηνίας στη βάση μου είναι Ημερομηνία/Ώρα.
Συντακτικά δε βλέπω κάποιο λάθος. Έχει κάποιος φίλος κάποια ιδέα τι μπορεί να φταίει;
Επίσης έχω δοκιμάσει και αυτή την εκδοχή αλλά και πάλι χωρίς αποτέλεσμα.

sql = "SELECT * FROM ΠΙΝΑΚΑ" _
        & " WHERE ΠΕΔΙΟ_Α= '" & cntro & "' AND" _
        & " ΠΕΔΙΟ_Β='" & kdkos & "' AND ΠΕΔΙΟ_Γ='" & eds & "' AND" _
        & " ΠΕΔΙΟ_Δ='" & tm & "' AND ΗΜΕΡΟΜΗΝΙΑ= DateValue(DDate) & "#"

Σημ. Όλες οι μεταβλητές είναι κανονικά δηλωμένες με τους σωστούς τύπους, ενώ η DDate είναι τύπου string.
Ευχαριστώ.

[Meteora]

Καλησπέρα

Όλες οι μεταβλητές είναι κανονικά δηλωμένες με τους σωστούς τύπους, ενώ η DDate είναι τύπου string

.
Η ημερομηνία δεν είναι string, αλλά τύπου date. Τι σε απαντάει access όταν ρωτάς -εκεί στο Immediate παράθυρο

Format(DDate, "dd/mm/yyyy")

;

Εδώ να εστιάσεις την προσοχή σου.

[Tasos]

Καλησπέρα σε όλους!

Δημήτρη στην SQL, η ημερομηνία σ' αυτή τη μορφή: "d/m/yyyy" δεν αναγνωρίζεται σωστά.

Δοκίμασε:

sql = "SELECT * FROM ΠΙΝΑΚΑ" _
        & " WHERE ΠΕΔΙΟ_Α= '" & cntro & "' AND" _
        & " ΠΕΔΙΟ_Β='" & kdkos & "' AND ΠΕΔΙΟ_Γ='" & eds & "' AND" _
        & " ΠΕΔΙΟ_Δ='" & tm & "' AND ΗΜΕΡΟΜΗΝΙΑ= #" & Format(DDate, "m\/d\/yyyy") & "#"

Καλή συνέχεια!

Τάσος

[Dimitriss]

Σας ευχαριστώ για τις απαντήσεις σας. Το πρόβλημα λύθηκε μετατρέποντας την ημερομηνία στην μορφή yyyy/mm/dd., δηλαδή
Format (DateValue(DDate), "yyyy/mm/dd").

[Tasos]

Αγαπητέ Δημήτρη θέλω αρχικά να με συγχωρέσεις για την παρέμβαση μου.

Δεν το συνηθίζω αλλά η ορθότητα της λύσης το επιβάλλει.
.
Η μορφή "m/d/yyyy" ή για περισσότερη συμβατότητα "m\/d\/yyyy" λειτουργεί στην SQL ακριβώς όπως η "yyyy/mm/dd" ή η "yyyy/m/d".

Πές μου αν θέλεις: Γιατί χρησιμοποιείς την DateValue ??

Θα είχε νόημα να τη χρησιμοποιήσεις αν το πεδίο DDate είναι τύπου κειμένου και όχι ημερομηνίας.

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

Τι εννοώ:

Σε υπολογιστή με αγγλική(USA) μορφή ημερομηνίας η DateValue("12/1/2020") θα επιστρέψει 1 Δεκεμβρίου 2020
ενώ υπολογιστή με ελληνική μορφή ημερομηνίας η DateValue("12/1/2020") θα επιστρέψει 12 Ιανουαρίου 2020

Αν πάλι το πεδίο DDate είναι τύπου ημερομηνίας η DateValue δεν χρειάζεται.

Ευχαριστώ

Με εκτίμηση

Τάσος

[Dimitriss]

Αγαπητέ Τάσο σε ευχαριστώ και πάλι για το σχόλιο σου. Η DDate είναι τύπου string (κειμένου) και το αναφέρω στο τέλος της αρχικής μου ανάρτησης, για αυτό χρησιμοποίησα την DateValue. Το επίπεδο μου στη VBA είναι μέτριο θα έλεγα, ως αυτοδίδακτος, εάν υπάρχει κάποια ορθότερη λύση από αυτή πολύ ευχαρίστως να τη χρησιμοποιήσω για πάω και ένα βήμα πιο πέρα.
Και πάλι ευχαριστώ για βοήθεια σας.

[Tasos]

Συγνώμη Δημήτρη. Δεν πρόσεξα ότι η DDate ήταν τύπου κειμένου.

Ωστόσο για περισσότερη συμβατότητα ειδικά αν το πρόγραμμα μας πρόκειται να τρέξει σε άγνωστο υπολογιστικό περιβάλλον όσον αφορά τη μετατροπή της συμβολοσειράς DDate και αφού γνωρίζουμε ότι η μορφή ημερομηνίας του πεδίου DDate είναι "d/M/yyyy" ή dd/MM/yyyy", είναι προτιμότερο να χρησιμοποιήσουμε μια συνάρτηση φτιαγμένη στα μέτρα μας.

Παράδειγμα:

Private Function ConvertToSQLDate(DateString As Variant) As String
    Dim DateParts() As String
    If InStr(1, DateString, "/") = 0 Then
        ConvertToSQLDate = "IS NULL"
        Exit Function
    End If
    DateParts = Split(DateString, "/")
    ConvertToSQLDate = "= #" & DateParts(1) & "\/" & DateParts(0) & "\/" & DateParts(2) & "#"
'    Debug.Print ConvertToSQLDate
End Function

'Χρήση της συνάρτησης:

Dim strSQL As String
strSQL = "SELECT * FROM ΠΙΝΑΚΑ" _
        & " WHERE ΠΕΔΙΟ_Α= '" & cntro & "' AND" _
        & " ΠΕΔΙΟ_Β='" & kdkos & "' AND ΠΕΔΙΟ_Γ='" & eds & "' AND" _
        & " ΠΕΔΙΟ_Δ='" & tm & "' AND ΗΜΕΡΟΜΗΝΙΑ " & ConvertToSQLDate(dDate)

[Dimitriss]

Ευχαριστώ Τάσο για τη χρήσιμη παρατήρησή σου. Θα κάνω τη σχετική αλλαγή.

[Dimitriss]

Αγαπητέ Τάσο έκανα την αλλαγή που πρότεινες αλλά με μία μικρή τροποποίηση γιατί μου έδινε Runtime error 3075. Άλλαξα το :
ConvertToSQLDate = "= #" & DateParts(1) & "/" & DateParts(0) & "/" & DateParts(2) & "#"
Με την παραπάνω αλλαγή τρέχει κανονικά.
Ευχαριστώ.

[Tasos]

Να είσαι καλά Δημήτρη μου!
Το σφάλμα 3075 προκαλείται όταν η μεταβλητή strSQL χρησιμοποιηθεί για φιλτράρισμα φόρμας ή έκθεσης. Έπρεπε να το διευκρινίσω.

Αν η strSQL με τα διαχωριστικά "\/" χρησιμοποιηθεί για ερώτημα θα λειτουργήσει κανονικά. Το έχω κάνει πάρα πολλές φορές.

Καλή συνέχεια!