Default.aspx |
<form id="form1" runat="server"> <asp:ScriptManager ID="ScriptManager1" runat="server"></asp:ScriptManager> <div> <asp:UpdatePanel ID="UpdatePanel1" runat="server"> <ContentTemplate> Student ID : <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> <br /> <asp:Button ID="Button2" runat="server" Text="Submit" /> <br /> <asp:Label ID="Label1" runat="server" Text=""></asp:Label> </ContentTemplate> </asp:UpdatePanel> </div> </form> |
Default.aspx.vb |
Imports System.Data.SqlClient Partial Class _WebForm1 Inherits System.Web.UI.Page Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=aa; Integrated Security=SSPI" Dim con1 As SqlConnection = New SqlConnection(connectionString1) con1.Open() Dim SqlString1 As String = "EXEC ABC " & Page.Request("Textbox1").ToString.Trim Dim cmd1 As SqlCommand = New SqlCommand(SqlString1, con1) Dim dr As SqlDataReader = cmd1.ExecuteReader() If dr.HasRows Then Do While dr.Read Label1.Text = "Student ID : " & dr.Item("Student_ID").ToString.Trim() & _ " – " & dr.Item("School_Name").ToString.Trim() Loop End If dr.Close() con1.Close() con1.Dispose() End Sub End Class |