1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
sub rempligridwiev ()
Dim strConnexion2 As String = "Data Source=serveur01\sqlexpress;Initial Catalog=RIODIDI;User=sa;password=root;"
Dim oConnection2 As SqlConnection = New SqlConnection(strConnexion2)
oConnection2.Open()
Sqlsource.ConnectionString = strConnexion2
Me.jour.Text = "10"
Sqlsource.SelectCommand = "SELECT NumDi, dateEmission, Désignation, DtBon, CodeMach, DésMach, DateRéalPrév, commentaire, Effet, Nom from [DiRio-DI], [DiRio-DI Etats] Et, [DiRio-Emetteurs DI] Em where CptEtat = Et.Compteur and CptEmetteur = Em.compteur and datediff(day,dateEmission,'" & Date.Now() & "') < 10 and Nom like '" & Application("username") & "' order by dateEmission DESC"
Sqlsource.ID = "sqlsource"
GV.DataSourceID = "sqlsource"
GV.DataBind()
end sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
rempligridwiev ()
end if
End Sub |
Partager