1 2 3 4 5 6 7 8 9 10 11 12 13
|
'Fonction pour la requete SQL
Public Class ImpFicheNdongos
Public Function CreateSql() As String
Dim sql As String = "SELECT MatriNdongo as Matricule, PrenomNom as Prenom_Nom, DateNaiss as Date_Naissance, LieuNaiss as Lieu_Naissance, Adresse, Telephone, PereName as Nom_Pere, MereName as Nom_Mere, Niveau as NiveauEtude, NomDara as Dahara, NumTof as N°Photo, Longeur, Epaule, Manche, Colle, LongThiaya, Ceinture, Photos as Photo FROM NDONGOS, DAARAS WHERE NDONGOS.NumDara = DAARAS.NumDara AND NomDara ='" + ListDara.Text + "'"
Return sql
End Function |
Partager