1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
'on indique la requête à éxécuter
strSql = "SELECT NumBeneficiaire, NomBeneficiaire, PrenomBeneficiaire, " & _
"AdresseBeneficiare+ ' ' + CPBeneficiaire + ' ' + VilleBeneficiaire as ligne_adresse_Bene, " & _
"TelephoneBeneficiaire, Portablebeneficiaire, NumInt, NomInt, PrenomInt, VilleInt, TelFixeInt, TelPortInt " & _
" From BENEFICIAIRES, INTERVENANTE"
'on indique la table
table = "INTERVENANTE"
'on vide le dataset
ObjetDataSet.Clear()
'on éxécute la fonction pour se connecter à la base et éxécuter la requête
BD.ExecReq(strSql, table, ObjetDataSet)
'On crèe une datatable à partir du dataset
ObjetDataTable = ObjetDataSet.Tables(table)
' on lie le bindingsource à l'objet datatable
BSIntervenante.DataSource = ObjetDataTable |
Partager