1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub LireCV()
Dim myCmd As OleDbCommand
Dim reader As OleDbDataReader
Dim MonBuffer(100) As Byte
Dim MaChaine As String
ProceduresCommunes.OuvrirConnexionALaBase()
myCmd = New OleDbCommand("select CV from T_Apprenant WHERE Id_Apprenant = " & ProceduresCommunes.IdDeLApprenant & ";", MaConnexion)
reader = myCmd.ExecuteReader()
While reader.Read
If Not reader.IsDBNull(0) Then
reader.GetBytes(0, 0, MonBuffer, 0, 100)
End If
End While
While reader.Read
MaChaine &= reader.GetValue(0).ToString
End While
reader.Close()
ProceduresCommunes.FermerLaConnexionALaBase()
End Sub |
Partager