SQL VB: pb date
gu!ll@ume
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
apaul -
apaul -
Salut
J'ai un probleme de requete SQL en VB sous Access 2000.
le contexte:
Je cherche a obtenir le code maximum pour des critères bien précis séléctionnnés dans un formulaire.Hélas dans la requete le critère de recherche sur la date ne marche pas.
voici la requete:
Dim req As String
Dim base As Database
Dim enreg As Variant
Dim num_ordre As String
Set base = CurrentDb
req = "select max(livrer.code_ordre_livrer) as code_ordre from livrer " _
& " WHERE code_exploitant_livrer = " & Forms![saisie_livraison]![code_exploitant_livrer] & "" _
& " AND code_cereale_livrer = " & Forms![saisie_livraison]![code_cereale_livrer] & "" _
& " AND date_livraison = #" & Forms![saisie_livraison]![date_livraison] & "#;"
Set enreg = base.OpenRecordset(req)
dans ma table le format de la date est 00/00/000;0;
si j'enleve la selection sur la date, la requete marche très bien.
je vous remerci d'avance
Ajourd'hui ca va!!
Mais demain ca ira mieux!
J'ai un probleme de requete SQL en VB sous Access 2000.
le contexte:
Je cherche a obtenir le code maximum pour des critères bien précis séléctionnnés dans un formulaire.Hélas dans la requete le critère de recherche sur la date ne marche pas.
voici la requete:
Dim req As String
Dim base As Database
Dim enreg As Variant
Dim num_ordre As String
Set base = CurrentDb
req = "select max(livrer.code_ordre_livrer) as code_ordre from livrer " _
& " WHERE code_exploitant_livrer = " & Forms![saisie_livraison]![code_exploitant_livrer] & "" _
& " AND code_cereale_livrer = " & Forms![saisie_livraison]![code_cereale_livrer] & "" _
& " AND date_livraison = #" & Forms![saisie_livraison]![date_livraison] & "#;"
Set enreg = base.OpenRecordset(req)
dans ma table le format de la date est 00/00/000;0;
si j'enleve la selection sur la date, la requete marche très bien.
je vous remerci d'avance
Ajourd'hui ca va!!
Mais demain ca ira mieux!
A voir également:
- SQL VB: pb date
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Logiciel sql - Télécharger - Bases de données
- Requete sql pix - Forum PHP
- Additions et multiplication dans des requêtes SQL ✓ - Forum MySQL
1 réponse
Dim req As String
Dim base As Database
Dim enreg As Variant
Dim num_ordre As String
Dim WStrDate As String
WStrDate = "#" & Month(01/08/1996) & "/" & Day(01/08/1996) & "/" & Year(01/08/1996) & "#"
Set base = CurrentDb
req = "select max(livrer.code_ordre_livrer) as code_ordre from livrer " _
& " WHERE code_exploitant_livrer = " & Forms![saisie_livraison]![code_exploitant_livrer] & "" _
& " AND code_cereale_livrer = " & Forms![saisie_livraison]![code_cereale_livrer] & "" _
& " AND date_livraison = " & WStrDate & ";"
Set enreg = base.OpenRecordset(req)
http://multibases.site.voila.fr
Dim base As Database
Dim enreg As Variant
Dim num_ordre As String
Dim WStrDate As String
WStrDate = "#" & Month(01/08/1996) & "/" & Day(01/08/1996) & "/" & Year(01/08/1996) & "#"
Set base = CurrentDb
req = "select max(livrer.code_ordre_livrer) as code_ordre from livrer " _
& " WHERE code_exploitant_livrer = " & Forms![saisie_livraison]![code_exploitant_livrer] & "" _
& " AND code_cereale_livrer = " & Forms![saisie_livraison]![code_cereale_livrer] & "" _
& " AND date_livraison = " & WStrDate & ";"
Set enreg = base.OpenRecordset(req)
http://multibases.site.voila.fr