Problème de quotes VB Net

Version imprimable

Bonjour bonjour,

Je développe un programme sous Vbnet, et il me met une erreur dans mon fichier de connexion. Lorsqu'il exécute la requête, il ne trouve rien, alors que si je remplace mon '" & Appartement.num_app.Text & "' par un chiffre, cela fonctionne.

Voici la partie de mon code de connexion où il y a la requête :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'Ouverture de connexion à la base
            sql = "select client.num_cli, nom_cli, pre_cli, rue_cli, cp_cli, ville_cli, num_app, rue_app, cp_app, ville_app from CLIENT, APPARTEMENT where CLIENT.num_cli = APPARTEMENT.num_cli and num_app like '" & Appartement.num_app.Text & "';"
            commande = New OleDbCommand(sql)
            lien = New OleDbDataAdapter(commande)
            commande.Connection = con
            'La méthode Fill de l'objet ODbAdapter permet de remplir le Dataset
            'le dataset s'appelle "liste des clients" qui est le nom de l'espace mémoire
            'le DataSet peut travailler en mode déconnecté
            lien.Fill(dtset, "Liste des clients locataires de l'appartement")

            '-----------maximum
            'Avant de fermer récupération du maximum d'enregistrement
            max = "select client.num_cli, nom_cli, pre_cli, rue_cli, cp_cli, ville_cli, num_app, rue_app, cp_app, ville_app from CLIENT, APPARTEMENT where CLIENT.num_cli = APPARTEMENT.num_cli and num_app like '" & Appartement.num_app.Text & "';"

            'Execution de la requête du maximum et récupération du résultat de la requête
            commande = New OleDb.OleDbCommand(max, con)
            max_num = (commande.ExecuteScalar)

            '------------nb total d'enregistrements
            'Avant de fermer récupération du total d'enregistrements
            nb = "select client.num_cli, nom_cli, pre_cli, rue_cli, cp_cli, ville_cli, num_app, rue_app, cp_app, ville_app from CLIENT, APPARTEMENT where CLIENT.num_cli = APPARTEMENT.num_cli and num_app like '" & Appartement.num_app.Text & "';"
            'Execution de la requête du nombre total d'enregistrements et récupération
            commande = New OleDb.OleDbCommand(nb, con)
            nb_num = (commande.ExecuteScalar)

Merci de votre aide
Cordialement

01/04/2010, 12h07
sebnantes

Hello ^^

Retire les symbôles ', cela devrait marcher. Là tu passes une chaîne de caractère alors qu'il attend un entier je pense.
01/04/2010, 12h58
lola90_7

Je les ai supprimé, et du cou il me met une erreur à la ligne :

Code:

lien.Fill(dtset, "Liste des clients locataires de l'appartement")

me disant qu'il y a :

Citation:

Erreur de syntaxe (opérateur absent) dans l'expression 'CLIENT.num_cli = APPARTEMENT.num_cli and num_app like'.
01/04/2010, 13h01
cybermaxs

Pour continuer dans la logique de sebnantes, quel est le type de la colonne num_app ?
LIKE est un prédicat des chaînes pas des valeurs numériques. Si num_app n'est pas une chaîne, l'erreur vient peut être de là.

Autre remarque, si c'est effectivement une chaîne, tu n'utilises pas de % en début et en fin de requête. Faire un LIKE sans, ça n'a pas d'intérêts.

Au final, c'est quoi & "';" à la fin de tes requêtes ?
01/04/2010, 13h09
lola90_7

num_app.text est une valeur qu'il va chercher dans une de mes interfaces, et num_app dans ma bdd est un numéro automatique.

J'utilisais

Code:

'" & Appartement.num_app.Text & "'

avec VB6, et ça fonctionnait, du cou j'ai cherché sur les forum du net et avec ma prof, et en vb net apparemment ça fonctionne pareil.

Certains mettent

Code:

'" + Appartement.num_app.Text + "'

, mais le résultat est le même, il ne trouve pas la valeur.
01/04/2010, 13h51
cybermaxs

Citation:

Envoyé par lola90_7

num_app.text est une valeur qu'il va chercher dans une de mes interfaces, et num_app dans ma bdd est un numéro automatique.

J'utilisais avec VB6, et ça fonctionnait, du cou j'ai cherché sur les forum du net et avec ma prof, et en vb net apparemment ça fonctionne pareil.

Certains mettent , mais le résultat est le même, il ne trouve pas la valeur.

ça ne répond pas à mon post. Le fait de concaténer avec & ou + ne change rien ; c'est d'ailleurs pas çà le problème. Quel est le type de la colonne num_app ?
Si c'est un entier, le LIKE ne marchera pas !
Que veux tu faire ? une recherche exacte ? une recherche approchée ?
01/04/2010, 14h02
lola90_7

num_app est dans ma bdd access de type "numéro-auto", donc je pense qu'il le considère comme un entier.
Ma requête me permet de rechercher mes valeurs, que j'afficherai ensuite dans une interface de mon programme. Il faut donc qu'elle soit exacte.
01/04/2010, 14h09
cybermaxs

Citation:

Envoyé par lola90_7

num_app est dans ma bdd access de type "numéro-auto", donc je pense qu'il le considère comme un entier.
Ma requête me permet de rechercher mes valeurs, que j'afficherai ensuite dans une interface de mon programme. Il faut donc qu'elle soit exacte.

Dans ce cas, pas besoin de like, ni de quotes.

sql = "select client.num_cli, nom_cli, pre_cli, rue_cli, cp_cli, ville_cli, num_app, rue_app, cp_app, ville_app from CLIENT, APPARTEMENT where CLIENT.num_cli = APPARTEMENT.num_cli and num_app =" & Appartement.num_app.Text & "
01/04/2010, 14h19
lola90_7

Il me met l'erreur :

Citation:

L'exception OleDbException n'a pas été gérée. Erreur de syntaxe (opérateur absent) dans l'expression 'CLIENT.num_cli = APPARTEMENT.num_cli and num_app ='.
01/04/2010, 14h27
cybermaxs

Citation:

Envoyé par lola90_7

Il me met l'erreur :

es tu sûr que Appartement.num_app.Text n'est pas vide ?
01/04/2010, 14h28
Geo2A

Bonjour

IL faut convertir un chaîne de caractère en entier:

Code:

val(Appartement.num_app.Text)

NB: petite astuce avec les BD access : quand vous avez ce genre d'erreurs, vous faites un copier de la valeur de sql$, vous la coller en mode SQL direct dans access et access va vous indiquer où est l'erreur dans la chaîne, ça facilite parfois les choses.

A+
01/04/2010, 14h36
lola90_7

Justement, ce code se trouve dans ma page de connexion. La page connexion se lance donc avant d'afficher les interfaces. On ne trouve donc aucune valeur dans Appartement.num_app.Text puisque la page Appartement n'a pas encore été ouverte.
01/04/2010, 14h43
cybermaxs

Citation:

Envoyé par lola90_7

Justement, ce code se trouve dans ma page de connexion. La page connexion se lance donc avant d'afficher les interfaces. On ne trouve donc aucune valeur dans Appartement.num_app.Text puisque la page Appartement n'a pas encore été ouverte.

bah dans ce cas, retire le de ta requête !
Pourquoi filtrer sur quelques chose qui est défini dans ton formulaire dans ce cas ?

1 pièce(s) jointe(s)

ben oui, jveux bien, mais le truc c'est que jme sers de cette requête pour afficher; Voilà mon interface, ça t'aidera peut être plus pour comprendre.

A moins que j'insère comme sur VB6 ma requête dans le code de mon interface:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim rs_rendre As Recordset
Dim sql_rendre As String
 
 
Set rs_rendre = New ADODB.Recordset
rs_rendre.CursorType = adOpenDynamic
rs_rendre.CursorLocation = adUseClient
sql_rendre = "Select ELEVE.NOM_ELEVE, ELEVE.PRENOM_ELEVE, EMPRUNT.NUM_EMPRUNT, EMPRUNT.DATE_SORTIE, EMPRUNT.DATE_RENTREE "
sql_rendre = sql_rendre & "from EMPRUNT INNER JOIN (ELEVE INNER JOIN EMPRUNT_ELEVE ON ELEVE.NUM_ELEVE = EMPRUNT_ELEVE.NUM_ELEVE) ON EMPRUNT.NUM_EMPRUNT = EMPRUNT_ELEVE.NUM_EMPRUNT "
sql_rendre = sql_rendre & "where EMPRUNT.NUM_LIVRE=" & CInt(num_livre.Text)
rs_rendre.Open sql_rendre, cn, adOpenDynamic, adLockOptimistic
 
Text4.Text = rs_rendre.Fields(0)
Text5.Text = rs_rendre.Fields(1)
Text1.Text = rs_rendre.Fields(2)
Text2.Text = rs_rendre.Fields(3)
Text3.Text = rs_rendre.Fields(4)

01/04/2010, 15h50
Geo2A

Bonjour,

1) sous vb6 vous faisiez bien la conversion ( Cint()) ! [edit] qui plus est erronée car cela aurait du être Clng() [\Edit]

2) Sans savoir dans quel événement le code que vous donnez est placé c'est un peu difficile de déduire qq chose.
C'était certainement pas dans le Form_Load d'une feuille comportant le textbox num_livre !
01/04/2010, 16h24
cybermaxs

Citation:

Envoyé par Geo2A

2) Sans savoir dans quel événement le code que vous donnez est placé c'est un peu difficile de déduire qq chose.
C'était certainement pas dans le Form_Load d'une feuille comportant le textbox num_livre !

en effet, c'est quoi le rapport entre les élèves et les appartements ?:aie:
01/04/2010, 16h30
lola90_7

c'était juste un exemple de code que j'avais fait en vb6 sur un autre programme (Il était placé dans le form_load). Je voulais savoir si avec un algorithme de ce type placé dans ma page appartement (en VB Net), je pouvais faire un lien avec ma bdd et afficher mes valeurs.
01/04/2010, 16h47
cybermaxs

Citation:

Envoyé par lola90_7

c'était juste un exemple de code que j'avais fait en vb6 sur un autre programme (Il était placé dans le form_load). Je voulais savoir si avec un algorithme de ce type placé dans ma page appartement (en VB Net), je pouvais faire un lien avec ma bdd et afficher mes valeurs.

par rapport à ton premier post, il y a quelque chose que je ne comprends pas. Pourquoi as tu toujours la même requête SQL ? C'est à toi de l'adapter en fonction de tes besoins ! Si tu veux tous les données dans le Form Load, ne mets pas de clause Where, si tu veux les infos d'un appartement alors filtre sur cet appartement. C'est l'impression que tu mélanges un peu les choses...
01/04/2010, 17h17
lola90_7

J'ai créé un module en plus de celui de connexion, où j'ai mis le code de mon premier post.
Du cou, je l'appelle uniquement une fois que le numéro de l'appartement sur mon interface ai été affiché, ce qu'il ne me pose plus de problème de requête !

Merci pour votre aide :ccool:

Cordialement