1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Dim myConnectionString As String
myConnectionString="server=locahost;" _
& "uid=Admin;" _
& "pwd=FULbert;" _
&"database=mo-etiolles;" _
& "persist security info =True";
Dim strCommand As String = "SELECT ECE_DATETIME_COMMANDE, ECE_NUM_COMMANDE_INT, CLA_LIB_CLASSE, MAT_NOM_MATIERE, STA_LIB_STATUT FROM entete_cmd_users_extend"
Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
Dim MySqlCommand As New MysqlCommand(mystrCommand, conn)
Dim drDataReader As MySqlDataReader
Dim dtDataTable As New DataTable
conn.Open()
drDataReader =MysqlCommand.ExecuteReader
dtDataTable.Load(drDataReader)
GridView1.DataSource=dtDataTable
GridView1.DataBind()
conn.Close()
End If
End Sub
End Class |
Partager