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