1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Dim ObjetCommand As New OleDbCommand
ObjetCommand.Connection = objConnection
Dim reader As OleDbDataReader
Dim Num As Integer = CInt(Me.TblEleveDataGridView.CurrentRow.Cells(0).Value)
ObjetCommand.CommandText = "SELECT datenaissance,nom,prenom,typeformation,code,photo FROM TblEleve WHERE num=" & Num
reader = ObjetCommand.ExecuteReader()
While reader.Read()
Dim nom, prenom, DateNaissance, TypeFormation As String
Dim drawFontParagraphe As New Font("Arial", 14)
Dim PremiereLigneY As Decimal = 450
Dim drawRectJeSossigne As New RectangleF(130.0F, PremiereLigneY, 680.0F, 500.0F)
e.Graphics.DrawString("Certifie que " & nom & " " & prenom & ", né le " & DateNaissance & " est présent(e) dans mon établissement" & _
" et étudie une formation en " & TypeFormation & "." _
, drawFontParagraphe, drawBrush, drawRectCertifie, drawFormat)
End While
reader.Close() |
Partager