Discussion :

[siadli]

Bonjour j'ai un message d'erreur sur application en VB6 qui m'indique cette syntaxe d'erreur dans le nombre dans l'expression 'numero = 10 and date =10.04.2014'
Voici mon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Data1.DatabaseName = Chemin & "\technique\technique.mdb"
 Data1.RecordSource = "select * from histo where numéro=" & Val(LblNuméro) & " and date =" & Format(ListeDate) & ""
 Data1.Refresh

logiquement je veux faire une recherche dans une liste de dates.
merci de votre aide

[l_autodidacte]

Bonjour et BIENVENU sur DVP

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Data1.RecordSource = "select * from histo where numéro='" & Val(LblNuméro) & "' and date ='" & Format(ListeDate) & ""

[siadli]

Bonjour et merci de votre aide.
Mais sa m indique un autre message d erreur avec votre idée voici la capture d image

[ProgElecT]

Salut siadli

Un petit coucou à l_autodidacte.

Pourquoi ma requête, qui a un critère sur une date, ne me renvoie aucun enregistrement ?

Donc siadli essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Data1.RecordSource = "select * from histo where numéro='" & Val(LblNuméro) & "'" _
                   & "And date = #" & Format(ListeDate.List(ListeDate.ListIndex), "dd.mm.yyyy") & "#"

[siadli]

Bonjour ProgElecT
Votre solution m indique le même code erreur avec ou sans # voici le message
merci de votre aide

[l_autodidacte]

Dans ce cas, il faut vérifier comment est déclarée la variable numéro : est-ce un entier ou une chaine ?

[ProgElecT]

Questions:
-1- la syntaxe des dates de ta liste sont elles bien l'exacte reflet de celles de la BDs (séparateurs des jour, mois et année, ordre mois, année et jour .....)?
-2- le champs date dans la BDs est il lui aussi de type Date ?
-3- le champs numérodans la BDs est il lui aussi de type string, si il est de type numérique il faut enlever les apostrophes ?

....................................................................................
Grillé par l_autodidacte

[siadli]

Rebonjour
LA syntaxe de ma date dans ma BDs a bien comme type Date/time avec comme séparateur (.)
Pour le champs numéro declaré comme chiffre, il est correcte car il me donne les bonnes Date dans ma liste de recherche.

[siadli]

Dans ce cas, il faut vérifier comment est déclarée la variable numéro : est-ce un entier ou une chaine ?

le numéro est une variable entier

[iclic]

Bonjour,

Si LblNumero est un entier pas besoin de Val qui s'applique a un string.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Data1.RecordSource = "select * from histo where numéro=" & LblNuméro & " and date =" & Format(ListeDate) & ""

[siadli]

Bonjour,

Si LblNumero est un entier pas besoin de Val qui s'applique a un string.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Data1.RecordSource = "select * from histo where numéro=" & LblNuméro & " and date =" & Format(ListeDate) & ""

Bonjour Iclic
je te remercie de votre aide mais j ai toujours le même problème ma formule du départ fonctionne très bien en vb5 mais en vb6 il me trouve bien tout les dates dans la listbox mais quand on clic sur une date sa me met toujours le même code erreur.

[iclic]

Bonjour,

Ton format date avec le point comme séparateur est-il compatible avec VB6?.

Si l'argument expression passé à la fonction excède la plage de valeurs du type de données cible, une erreur se produit.


La fonction CDate reconnaît les formats de date définis dans les paramètres régionaux de votre système. L'ordre des jours, mois et années risque de ne pouvoir être défini si les données sont fournies dans un format différent des paramètres de date reconnus. En outre, les formats de date complets précisant le jour de la semaine ne sont pas reconnus.

Pour des raisons de compatibilité avec les versions antérieures de Visual Basic, il existe une fonction CVDate, dont la syntaxe est identique à celle de la fonction Cdate. Cependant, la fonction CVDate renvoie une donnée de type Variant et de sous-type Date et non une véritable donnée de type Date. Dans la mesure où il existe désormais un type Date intrinsèque, la fonction CVDate n'est plus nécessaire. On obtient le même résultat en convertissant une expression en donnée de type Date, puis en l'affectant à une donnée de type Variant. Cette technique est cohérente avec la conversion des autres types intrinsèques dans le sous-type Variant équivalent.

exemple

Ceci provoque une erreur de type incompatible sur xdate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim xdate As Date
 
Private Sub Form_Load()
xdate = CDate("12.10.2015")
Stop
End Sub

Mais pas ceci, xdate contient bien la valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim xdate As Date
 
Private Sub Form_Load()
xdate = CDate("12/10/2015")
Stop
End Sub