01.Sub Page_Load(sender As Object, e As EventArgs)
02. strConnString = "Server=localhost;Uid=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
03. objConn.ConnectionString = strConnString
04. objConn.Open()
05.
06. IF Not Page.IsPostBack() Then
07. ViewData()
08. End IF
09.End Sub
10.
11.Sub ViewData()
12.
13. Dim dtAdapter As SqlDataAdapter
14. Dim dt As New DataTable
15. strSQL = "SELECT * FROM customer WHERE CustomerID = '"& Request.QueryString("CustomerID") &"' "
16. dtAdapter = New SqlDataAdapter(strSQL, objConn)
17. dtAdapter.Fill(dt)
18.
19. If dt.Rows.Count > 0 Then
20. Me.txtCustomerID.Text = dt.Rows(0)("CustomerID")
21. Me.txtName.Text = dt.Rows(0)("Name")
22. Me.txtEmail.Text = dt.Rows(0)("Email")
23. Me.txtCountryCode.Text = dt.Rows(0)("CountryCode")
24. Me.txtBudget.Text = dt.Rows(0)("Budget")
25. Me.txtUsed.Text = dt.Rows(0)("Used")
26. End IF
27.End Sub
