Protected Sub ButtonLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click
Dim DatabaseW7ConnectionString As New SqlConnection(ConfigurationManager.ConnectionStrings("DatabaseW7ConnectionString").ConnectionString)
DatabaseW7ConnectionString.Open()
Dim cmdStr As String = "Select count (*) from Pat where UserName='" + TextBoxUserName.Text & "'"
Dim Checkuser As New SqlCommand(cmdStr, DatabaseW7ConnectionString) Dim objDataAdapter As New SqlDataAdapter(Checkuser) Dim dsResult As New DataSet()
objDataAdapter.Fill(dsResult)
if dsResult.tables(0).rows.count>0 then
if dsResult.tables(0).rows(0).item("password")=TextBoxUserName.Text then
Munish.Soni
Member
23 Points
18 Posts
Re: how to create custom login
Mar 23, 2012 02:37 PM|LINK
Imports System.Data.SqlClient
Partial Class Login
Inherits System.Web.UI.Page
Protected Sub ButtonLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click
Dim DatabaseW7ConnectionString As New SqlConnection(ConfigurationManager.ConnectionStrings("DatabaseW7ConnectionString").ConnectionString)
DatabaseW7ConnectionString.Open()
Dim cmdStr As String = "Select count (*) from Pat where UserName='" + TextBoxUserName.Text & "'"
Dim Checkuser As New SqlCommand(cmdStr, DatabaseW7ConnectionString)
Dim objDataAdapter As New SqlDataAdapter(Checkuser)
Dim dsResult As New DataSet()
objDataAdapter.Fill(dsResult)
if dsResult.tables(0).rows.count>0 then
if dsResult.tables(0).rows(0).item("password")=TextBoxUserName.Text then
response.redirect("~/welcome.aspx")
else
response.write("Invalid User")
end if
end sub
end class