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