Probleme Dans la syntaxe Sql

**itri2006** · 26/07/2007, 00h11

Bonjour
Je suis entrai de developer une apllication pour gestion des notes
J ai utilisé un DataCombo pour affichage de la liste des etudiants
dan les proprietes de ce datacombo j ai ajouter le code sql suivant

Code :

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

select * from Etudiants , Promotions where  Etudiants.Code_promotion = Promotions.Code_promotion and Promotions.Code_promotion = " & Val(LNom_promotion.Caption)...

il me donne le message suivant " syntax error in string ....."
mais ca fonctionne pas
SVP aidez moi

**BM42** · 26/07/2007, 09h19

Salut

le problème vien peut être du "Val(..)".
Essai de le supprimer pour voir.

A+

**Phifi** · 26/07/2007, 09h50

Salut,

vu, revu et rerevu... concaténation d'un string et d'un numérique :/

**Gaetch** · 26/07/2007, 11h10

Ne faut-il pas mettre des ' ' (simples quotes)

Genre

Code :

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

"SELECT ... WHERE MACHIN = '" & Val(TRUC) & "'"

**itri2005** · 26/07/2007, 11h24

J ai essayé tout mais le probleme perciste il me donne le message suivant
"Data type mismatch in criteria expression."

**Phifi** · 26/07/2007, 11h49

Envoyé par Gaetch

Ne faut-il pas mettre des ' ' (simples quotes)

Genre "SELECT ... WHERE MACHIN = '" & Val(TRUC) & "'"

Oula, c'est l'heure des révisions !

On met des simples quotes seulement si le type de champ est alphanumérique, rien s'il est numérique.

Quoi qu'il en soit la chaine de requête est de type String, donc convertir en conséquence les valeurs concaténées :

Si le champ est de type numérique :

Code :

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

1
2
3
4
Dim id as Long
 
id = 8
req = "SELECT * FROM table WHERE table.ID_table=" & Cstr(id)

Si le champ est de type alphanumérique :

Code :

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

1
2
3
4
Dim nom as String
 
nom = "toto"
req = "SELECT * FROM table WHERE table.NomClient='" & nom & "'"

Si le champ est de type alphanumérique ET la variable numérique (exemple pas terrible mais ça arrive)

Code :

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

1
2
3
4
5
 
Dim code as Long
 
code = 8
req = "SELECT * FROM table WHERE table.CodeClient='" & Cstr(code) & "'"

Etc.

**Gaetch** · 26/07/2007, 14h05

Bon ben ...
*enlève ses quotes autour des valeurs numériques*
Ca marche pourtant !

**Phifi** · 26/07/2007, 15h02

Envoyé par Gaetch

Ca marche pourtant !

Et oui, malheureusement... comme d'autres choses que VB permet : & ou + pour concaténer 2 chaines de caractères ; le + est un opérateur arithmétique... Pas bien !

Val() renvoit un numérique du type approprié

**BM42** · 26/07/2007, 15h43

L'école est finie !!!!
Vive les vacances .... et les cahiers de vacances !!!

En parlant de vacances....

PS : Désolé les "modérateurs", s'est l'heure de mon pétage de cable journalier.

Si non pour le reste Phifi a tout dit.

**itri2006** · 26/07/2007, 19h06

rien n 'est changé...

**Gaetch** · 26/07/2007, 20h00

T'as pas par le plus grand des hasards une quote dans ta chaine ?

**ilyass85** · 27/07/2007, 00h50

il faut ecrire ce petit code pour charger datacombo

set t=new adod.recordset
t.open "select * from .............."
set datacombo.rowsource=t
datacombo.listefield="champ"