|
Public Shared Sub EditOnLoad(Page As System.Web.UI.Page)
Dim ddlCustomer As DropDownList = Page.FindControl("fldCustomerID")
If IsNothing(ddlCustomer) OrElse ddlCustomer.SelectedValue=
String.Empty Then Exit Sub
Dim s AS String = ddlCustomer.SelectedValue
Dim cn As New OleDbConnection(func.GetConnectionStr())
Dim cmd As New OleDbCommand("select * from
orders where customerid='" + s+ "'",
cn)
Dim dr As OleDbDataReader
cmd.CommandType = CommandType.Text
Page.Response.Write("The all orders maked
this customer" & s & "<br>")
cn.Open()
dr = cmd.ExecuteReader()
While (dr.Read())
Dim orderId As String = ""
If Not IsDbNull(dr("OrderID"))
Then Convert.ToString(dr("OrderID"))
Dim orderDate As String = Convert.ToString(dr("OrderDate"))
Page.Response.Write(String.Format("<a
target=_blank href=orders_edit.asp?editid={0}>{0}</a>{1}<br>",
orderId, orderDate))
End While
dr.Close()
cn.Dispose()
End Sub |
