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
| sub AfficherListeClasses()
dim con as new SqlConnection()
dim ssql as string
'dim com as SqlCommand
dim oAdapter as sqldataadapter
dim oDataset as new data.dataset
'dim datarider as SqlDataReader()
con.ConnectionString = ConfigurationSettings.AppSettings("SqlServer")
con.connectionstring =" server=(local);initial catalog= Etablissement;trusted_connection=true;"
con.open()
ssql = "SELECT * FROM [Classes] ORDER BY Nom_Class ASC"
'msgbox(ssql)
'System.Data.SqlClient.SqlDataReader datarider;
'com = new sqlcommand(ssql,con)
oAdapter = new sqldataadapter(ssql,con)
oAdapter.fill(oDataset)
'datarider=com.ExecuteReader()
'while (datarider.Read())
'DataGrid1.CurrentPageIndex=0
DataGrid1.datasource=oDataset
DataGrid1.databind()
'datarider.close()
con.close()
end sub
Sub DataGrid1_PageIndexChanged(Sender As Object, e As DataGridPageChangedEventArgs )
DataGrid1.CurrentPageIndex=e.NewPageIndex
AfficherListeClasses()
End Sub |
Partager