1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Public Sub LoadDGVHisto(ByVal IDataGridView As DataGridView)
Try
Dim strSqlQuery As String = _
" SELECT UtilisateurMAJ, Titre, FormParametre, DateMAJ, Texte" & _
" FROM CLFWAddHisto" & _
" WHERE UtilisateurMAJ = '" & CLFWAdd.CLFWAddMy.CurrentUser.IDIntervenant & "'" & _
" ORDER BY DateMAJ Desc"
Dim cmd As New OleDb.OleDbCommand(strSqlQuery, CLFWAddMy.CurrentConnection)
Dim drHisto As OleDb.OleDbDataReader = cmd.ExecuteReader()
Dim intNbLigneCharge As Integer
IDataGridView.Rows.Clear()
Do While drHisto.Read And intNbLigneCharge < 50
intNbLigneCharge += 1
IDataGridView.Rows(IDataGridView.Rows.Add()).SetValues( _
"", _
drHisto("UtilisateurMAJ"), _
drHisto("Titre"), _
drHisto("FormParametre"), _
drHisto("DateMAJ"), _
drHisto("Texte"))
Loop
drHisto.Close()
Catch ex As Exception
CLFWAddLog.Write("CLFWAddHisto", "LoadDGVHisto", "Erreur lors du chargement : " & ex.Message, True, True)
End Try
End Sub |
Partager