01.Dim objConn As SqlConnection
02. Dim objCmd As SqlCommand
03. Dim dtAdapter As New SqlDataAdapter
04. Dim strSQL As String
05.
06.
07. Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
08.
09. Dim strConnString As String
10. strConnString = "Server=localhost\SQLExpress;Database=Myweb;Trusted_Connection=True;"
11. objConn = New SqlConnection(strConnString)
12. objConn.Open()
13.
14. If Not Page.IsPostBack() Then
15. BindData()
16. End If
17.
18. End Sub
19.
20. Sub BindData()
21. Dim dtadapter As SqlDataAdapter
22. Dim dt As New DataTable
23. strSQL = "SELECT * FROM Username"
24.
25. dtadapter = New SqlDataAdapter(strSQL, objConn)
26.
27. dtadapter.Fill(dt)
28.
29.
30. dtadapter = Nothing
31.
32. End Sub
33.
34. Sub Page_UnLoad()
35. objConn.Close()
36. objConn = Nothing
37. End Sub
38.
39. Sub modDeleteCommand(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs)
40. strSQL = "DELETE FROM ACCESSORIES WHERE UserId = '" & GridView2.DataKeys.Item(e.RowIndex).Value & "'"
41. objCmd = New SqlCommand(strSQL, objConn)
42. objCmd.ExecuteNonQuery()
43.
44. GridView2.EditIndex = -1
45. BindData()
46. End Sub
Quote:
