1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Protected Sub LoginButton_Click(sender As Object, e As EventArgs)
Dim myConnection As SqlConnection
Dim myAdapter As SqlDataAdapter
Dim myDataTable As DataTable
'Dim myCommand As SqlCommand
'Dim myReader1 As SqlDataReader
'Dim str As String
Dim Sql As String
'Requte sql
Sql = "SELECT * from utilisateur"
myConnection = CType(Session("myConnection"), SqlConnection)
myAdapter = New SqlDataAdapter(Sql, myConnection)
myDataTable = New DataTable()
myAdapter.Fill(myDataTable)
End Sub |
Partager