Format champs date VB et SQL

Question

Salut,

j'essais utiliser cette requete comme RecordSource dans un ADODC pour  afficher le resultat dans une DataGrid mais ça ne marche pas avec comme erreur incompatibilié dans les critères.
Mais qd met les dates données à la place des champs  Me.TxtStartDate et Me.TxtEndDate ça marche.

SELECT Tabventes.N°_facture, Tabventes.Date_facture
FROM Tabventes INNER JOIN Tabpaiements ON Tabventes.N°_vente = Tabpaiements.Ref_vente
WHERE (((Tabventes.Date_facture)>#Me.TxtStartDate# And (Tabventes.Date_facture)<#Me.TxtEndDate#))

Merci pour help
iras

cs_labout · Answer

labout

essaies

req=" SELECT Tabventes.N°_facture, Tabventes.Date_facture " & _
" FROM Tabventes INNER JOIN Tabpaiements ON Tabventes.[N°_vente] = Tabpaiements.Ref_vente " & _
" WHERE (((Tabventes.Date_facture)>#" & Me.TxtStartDate & "# And (Tabventes.Date_facture)<#" & Me.TxtEndDate & "#"

puis set rs= connection.execute(req)

@+

Cramfr · Answer

juste une question Ta base de donner c'est pas une base access ?

Cramsoturf le VBien en quête de nouveau programme  :big)

cs_iras · Answer

Ma base est bien dans access 2000

iras

cs_iras · Answer

j e vais essayer ta requete et te dirai quoi

Manu94600 · Answer

Pour acces les doivent etre sous forme mm/jj/aaaa.

req = SELECT Tabventes.N°_facture, Tabventes.Date_facture
FROM Tabventes INNER JOIN Tabpaiements ON Tabventes.N°_vente = Tabpaiements.Ref_vente
WHERE Tabventes.Date_facture Between #" & Month(Me.TxtStartDate) & "/" & Day(Me.TxtStartDate) & "/" & Year(Me.TxtStartDate) & "# and #" & Month(Me.TxtEndDate) & "/" & Day(Me.TxtEndDate) & "/" & Year(Me.TxtEndDate) & "#

ensuite tu fais:

ton_adodc.RecordSource= req
ton_adodc.refresh

Et normalement ton datagrid qui est relié par ton_adodc se met automatiquement à jour, sinon tu fais un refresh pour ton datagrid.

Manu

cs_iras · Answer

je viens d'assayer ta rqt mais l'erreur de syntaxe dans la date de l'expression se manifeste toujours

help

cs_iras · Answer

j'ai pas encore tetsé ta dernière requête je faisais akllusion à la première tantot

cs_iras · Answer

SALUT?

rien n'a changé , je recois toujours l'erreur de syntaxe dans la date dans l'expression

Manu94600 · Answer

Essai la requete sous acces, pour voir si elle marche, n'oubli pas les dates sous access sont de sous la forme mm/jj/aaaa

Ex:
SELECT Tabventes.N°_facture, Tabventes.Date_facture
FROM Tabventes INNER JOIN Tabpaiements ON Tabventes.N°_vente = Tabpaiements.Ref_vente
WHERE Tabventes.Date_facture between #10/20/2002# And #10/24/2002#;

'Cela selectionne les factures du 20 oct 2002 au 24 oct 2002.

Un question le format de Date_facture est bien de type date (date abrégé) ???

Est ce que les champs TxtStartDate et TxtEndDate sont bien renseigné : l'utilisateur doit bien rentrer la date, une date valide, sous la forme jj/mm/aaaa.

Manu

cs_iras · Answer

Oui ta requet marche bn en access meme en l'appiquant à l'adodc en VB. Quant au chanmps des dates de mon formulaire sont bien renseigner au format jj/mm/aaaa et date facture en Date, abrégé.

iras

Manu94600 · Answer

Je sais c koi !!

Je sais pas si c toi qui a oublié ou pas mais kan tu mets "Me.TxtStartDate", il te manque le ".text".

remplace ton Me.TxtStartDate par Me.TxtStartDate.Text

Et tu verras que c bcp mieu :)

Voila je pense que c la ton erreur.

Manu

cs_iras · Answer

Manu,

que j'utilise la première requete sans mm/MM/AA ou je remplace juste les dates par mes noms de champs(Me.TxtStartDate.Text et Me.TxtEndDate.Text)

Sinon j'essais les deux

iras

cs_labout · Answer

labout

Le problème vient de la date qui n'est pas au bon format
Vérifie dans Windows le format si c'est jj/mm/aa alors
Format(Me.TxtStartDate ,"dd/mm/yy")

@+

cs_iras · Answer

manu

ah décidement , ça marche pas non plus avec les champs. je vérifie si pas d'rreur de frappe qqpart car l'erreur signalée est de syntaxe.

Iras

Manu94600 · Answer

Posse un bout de ton code j'en suis sur que tu t trompé kelke part.

Car moi j'ai testé et ca marche chez moi. J'ai fais une table personnes avec des date de naissance et j'arrive alors pose un peu de code et je te dirai c koi qui marche pas. Du moin j'essaierais ;)

Manu

Manu94600 · Answer

Posse un bout de ton code j'en suis sur que tu t trompé kelke part.

Car moi j'ai testé et ca marche chez moi. J'ai fais une table personnes avec des date de naissance et j'arrive alors pose un peu de code et je te dirai c koi qui marche pas. Du moin j'essaierais ;)

Manu

cs_iras · Answer

ci après la reqt telle que je l'écris ds RecordSource

SELECT Tabventes.N°_facture, Tabventes.Date_facture
FROM Tabventes INNER JOIN Tabpaiements ON Tabventes.N°_vente = Tabpaiements.Ref_vente
WHERE (((Tabventes.Date_facture)># " & Me.TxtStartDate.text & " # And (Tabventes.Date_facture)<# " & Me.TxtEndDate.text & " #))

Iras

Manu94600 · Answer

Je sais d'ou vient l'erreur.

Remplace ta requete par cela, c'est la meme sans les espace entre # et "

SELECT Tabventes.N°_facture, Tabventes.Date_facture
FROM Tabventes INNER JOIN Tabpaiements ON Tabventes.N°_vente = Tabpaiements.Ref_vente
WHERE (((Tabventes.Date_facture)>#" & Me.TxtStartDate.text & "# And (Tabventes.Date_facture)<#" & Me.TxtEndDate.text & "#))

en fait ca faisait, ta requete faisait # date # au lieu #date#

Manu

cs_iras · Answer

Manu,

qqchose m'échappe!

en faisant copier /coller de ta requete j'ai toujours l'erreur de syntaxe. Est ce normal? ou bien faut que je réecrive la requete moi meme??

cs_iras · Answer

Manu,

si possible , peux tu m'envoyer par mail, les fichiers et db de ton test de la rqt en question peut être que je trouverai où je me trompre. Mon adresse email est:

edim@yucom.be

merci

Manu94600 · Answer

Je sais pas koi dire.

Voila la requete que je te propose : 
req "SELECT Tabventes.N°_facture, Tabventes.Date_facture FROM Tabventes INNER JOIN Tabpaiements ON Tabventes.N°_vente Tabpaiements.Ref_vente WHERE Tabventes.Date_facture Between #" & Me.TxtStartDate.text & "# And #" & Me.TxtEndDate.text & "#;"

'Je suppose que ta jointure est correct ensuite : 

adodc.recordsource =req
adodc.refresh

'et si ta bien relier ton datagrid avec ton adodc, ca devrai marché.

'pour le relier dans les propriétés de ton datagrid tu cherche DataSource et tu mets ton adodc.

Voila si c pas ca contact moi, envoi moi ton code par mail, je t'aiderai.

Manu

Manu94600 · Answer

Oki je t'envoi ca

;)

Manu

cs_iras · Answer

ok pour les fichiers te dirai quoi 
mci et bon week end

iras

abdellatifalaoui · Answer

Abdellatif

abdellatifalaoui · Answer

Bonjour
j'ai un problème de format de champ
dans ma base de données ACCESS j'ai un champ avec le format Numérique et 2 chiffre aprés ,. mais quand j'ai lié ce champ vev un MSFexGrid, son format est devenu Text (Pas de séparateur de millier ni de 2 chiffres aprés ,.
ma question : y'a t'il de code spécial à ajouter a MSFlexGrid pour coanger le format de l'un de ces collene.

merci

cs_iras · Answer

Ok j'ai appliqué ton code et ok.
Mais , comment puis je déclarer req car je dois l'insérer dans un  code avec avec Option explicit?

Merci bcp
iras

Cramfr · Answer

Ok c'est simple tu mets tes dates sous cette forme et çà marchera:

"#"  & format(myDate,"MM/DD/YYYY") & "#"

Car il n'acccepte pas le format français...

Cramsoturf le VBien en quête de nouveau programme  :big)

Format champs date VB et SQL

27 réponses

Discussions similaires