Discussion :

[lola90_7]

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 :

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

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

[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.

[lola90_7]

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

Code :

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

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

me disant qu'il y a :

Erreur de syntaxe (opérateur absent) dans l'expression 'CLIENT.num_cli = APPARTEMENT.num_cli and num_app like'.

[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 ?

[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 :

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

'" & 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 :

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

'" + Appartement.num_app.Text + "'

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

[cybermaxs]

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 ?

[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.

[cybermaxs]

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 & "

[lola90_7]

Il me met l'erreur :

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 ='.

[cybermaxs]

Il me met l'erreur :

es tu sûr que Appartement.num_app.Text n'est pas vide ?

[Geo2A]

Bonjour

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

Code :

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

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+

[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.

[cybermaxs]

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 ?

[lola90_7]

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 :

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

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)

[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 !

[cybermaxs]

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 ?

[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.

[cybermaxs]

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...

[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

Cordialement