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) |
Partager