login

[desinger2007]

با سلام
من برای لوگین کردن کاربران از این کد در رودیداد کلیک دکمه استفاده کردم ولی وقتی کلمه کاربری و رمز عبورو درست وارد میکنم نمیدونم چرا هیچ عکس العملی انجام نمیده

Dim ConnStr As String
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
        ConnStr &= "Data Source=" & Server.MapPath("name.mdb")
        Dim myOleDbConn As New OleDbConnection(ConnStr)
        myOleDbConn.Open()
        Dim SQL As String = "select * from ozviat where (email like '" & UserName.Text & "') and (passwords like '" & Password.Text & "')"
        Dim myOleDbCmd As New OleDbCommand(SQL, myOleDbConn)
        myOleDbCmd.Connection.Close()
        myOleDbCmd.Connection.Open()
        myOleDbCmd.Parameters.AddWithValue("email", UserName.Text)
        myOleDbCmd.Parameters.AddWithValue("passwords", Password.Text)
        If myOleDbCmd.ExecuteScalar = 1 Then
            Label1.Text = " True"
        ElseIf myOleDbCmd.ExecuteScalar = 0 Then
            Label1.Text = "false"
        End If
        myOleDbCmd.Connection.Close()

 

[khz-web1]

از این استفاده کن

Imports System.Data
Imports System.Data.OleDb
Partial Class login
Inherits System.Web.UI.Page
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ASP.NET-projeh\WebSite15\login.mdb") 'شی اتصال رو به همراه رشته اتصال تعریف میکنیم دقت کنید که دیتابیس اکسس داخل درایو دی قرار داره
Dim cmd As New OleDbCommand("select count(*) from tbl_members where uid=? and pwd=?", con) ' شی فرمان به همراه رشته تقاضا که یک دستور سلکت ساده هست رو تعیین کردم
cmd.Parameters.Add("uid", txt_uid.Text) 'پارامتر مربوط با نام کاربری رو پاس کردم
cmd.Parameters.Add ("pwd", txt_pwd.Text) 'پارامتر مبوط با رمز عبور رو پای کردم
con.Open() ' اتصال رو بر قرار می کنم
If cmd.ExecuteScalar = 1 Then ' اگر تعداد سطر های موجود در جدول که نام کاربری و رمز عبوری این چنین داشتن برابر یک بود

FormsAuthentication.RedirectFromDefaultPage(txt_uid.Text, chk_member.Checked) 'کاربر شناسایی شده و تصدیق شده اونو به صفحه اصلی هدایت می کنیم

ElseIf cmd.ExecuteScalar = 0 Then 'اگر تعداد سطر های موجود در جدول که نام کاربری و رمز عبوری این چنین داشتن برابر صفر بود

lbl.Visible = True 'پیامی جهت اشتباه بودن رمز عبور ارسال می گردد

End If 'پایان شرط


End Class