http://www.builderau.com.au/program/dotnet/print.htm?TYPE=story&AT=339270702-339028399t-320002019c
Public
Sub Page_Load(sender As Object, e As System.EventArgs)
If Not (IsPostBack) Then
Dim conn As SqlConnection
Dim comm As SqlCommand
Dim sdr As SqlDataReader
Dim cString As String
cString = "Data
Source=Test;Initial Catalog=Northwind;User Id=sa;Password=;"
Dim custID As String
custID =
Request.QueryString("custid")
Dim selString As String
selString = "SELECT CustomerID,
CompanyName, ContactName, Address, City, Country, PostalCode FROM Customers
WHERE CustomerID = '" + custID + "' ORDER BY CompanyName"
Try
conn = New SqlConnection(cString)
conn.Open()
comm = new SqlCommand(selString,
conn)
sdr = comm.ExecuteReader()
sdr.Read()
txtAddress.Text =
sdr("Address").ToString()
txtCity.Text =
sdr("City").ToString()
txtCompanyName.Text =
sdr("CompanyName").ToString()
txtID.Text =
sdr("CustomerID").ToString()
txtCountry.Text =
sdr("Country").ToString()
txtPostalCode.Text =
sdr("PostalCode").ToString()
txtContactName.Text =
sdr("ContactName").ToString()
Finally
sdr.Dispose()
comm.Dispose()
If (conn.State =
ConnectionState.Open) Then
conn.Close()
End If
conn.Dispose()
End Try
End If
End
Sub