Imports System.Data.SqlClient
Public Class Main
Inherits System.Web.UI.Page
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strUserName As String
Dim strPassword As String
Dim sqlcnnValidate As SqlConnection
Dim sqlcmdValidate As SqlCommand
Dim sqldtrValidate As SqlDataReader
Dim strSQL As String
sqlcnnValidate = New SqlConnection("server=WRACK\SQLDB;uid=sa;pwd=;database=NW;")
strSQL = "SELECT [UserName], [Password], [Role] FROM tblUsers Where UserName = '" & TextBox1.Text & "' ORDER BY [UserName]"
sqlcmdValidate = New SqlCommand(strSQL, sqlcnnValidate)
sqlcnnValidate.Open()
sqldtrValidate = sqlcmdValidate.ExecuteReader
sqldtrValidate.Read()
TextBox1.Text = sqldtrValidate("UserName")
TextBox2.Text = sqldtrValidate("Password")
TextBox3.Text = sqldtrValidate("Role")
sqldtrValidate.Close()
sqlcnnValidate.Close()
End Sub
End Class