الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

شرح طريقه التسجيل (login)

مغلق
بدأه Miss-Hearts في 5 مايو 2007 · 4 رد · 914 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله وبركاته

عندي استفسار

انا عندي جدول اليوزر

لازم كل مصنع عنده يوزر نيم واحد

واسم المصنع لازم يكون بعد واحد ما يتكرر في الداتابيس

كيف اسوي هذا الفاليديشن ؟؟

للعلم

اليوزر اول شي يسوي ريجستريشن

يضع اليوزر والباسورد والايميل

عقب يدخل عن طريق صفحه اللوقين

اذا ممكن شرح بالكود

وشكرا

#2

عملية التسجيل وإضافة البيانات سهلة اعتقد وهي عن طريق Insert statment بالنسبة للتصديق على عدم وجود اسم مكرر لازم تعمل Data reader بنفس حدث التسجيل مع جملة شرطية يقرأ البيانات من القاعدة ويشوف اذا الاسم متكرر يعطيه رسالة انه الاسم متكرر او اذا كان غير متكرر يكمل عملية التسجيل .

طبعا لازم تعملي استيراد للفضاء system.data.sqlclient في البداية

   Dim con As New SqlConnection
	Dim com As New SqlCommand
	Dim rd As SqlDataReader


	Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		con.ConnectionString = sd1.ConnectionString
		con.Open()
		com.Connection = con
		com.CommandText = "select * from student where fname='" + tbfname.Text + "' or lname='" + tblname.Text + "'"
		rd = com.ExecuteReader
		rd.Read()

		Dim savepath As String = "C:\Documents and Settings\Administrator\My Documents\WebSite4\images\"
		If (FileUpload1.HasFile) Then
			Dim filename As String = FileUpload1.FileName
			savepath += (filename)
			FileUpload1.SaveAs(savepath)

		End If
		If rd.Read = True Then
			wrong.Text = "this student alredy added in data base..."
		Else
			wrong.Text = ""
			sd1.InsertCommand = "insert into student values (" + tbid.Text + ",'" + tbfname.Text + "','" + tblname.Text + "','" + tbnatio.Text + "'," + tbphone.Text + ",'" + tbcname.Text + "'," + tbfees.Text + ",'" + FileUpload1.FileName + "')"
			sd1.Insert()
			ok.Text = " your students added seccessfuly....."
		End If
	End Sub

هدا كود إضافة طالب لداتا بيس تقريبا نفس الفكرة . طبعا لازم تعمل كومنيكشن خاص لعملية القراءة من الدتا بيس مثل مو شايفة

ارجو ان اكون افدتك

#3

مشكور اخوي ع ردك

سويت وطلعت لي هذي المسج

شو يعني ؟

Syntax error (missing operator) in query expression 'Username'ali''

وهذا الكود

 Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=|DataDirectory|ZonesCorp1.mdb")

Dim objCmd As OleDbCommand

Dim read As OleDbDataReader

Dim sqlCmd As String

Dim objRng As New RNGCryptoServiceProvider

Dim intSaltSize As Integer = 16







objConn.Open()





objCmd = New OleDbCommand("select Username from Users where Username'" + txtUserName.Text + "' ", objConn)

read = objCmd.ExecuteReader

read.Read()



' If (txtUserName.Text = True) Then

If read.Read = True Then



lblMsg.Text = "this name is alredy exist in the database..."

Else



sqlCmd = "INSERT INTO Users (Username, Salt, Pass, Email) VALUES (@Username, @Salt, @Pass, @Email)"

objCmd = New OleDbCommand(sqlCmd, objConn)

objCmd.Parameters.Add("@Username", txtUserName.Text)

Dim objByte() As Byte = New Byte(intSaltSize) {}

objRng.GetBytes(objByte)

Dim strSalt As String = Convert.ToBase64String(objByte)

objCmd.Parameters.Add("@Salt", strSalt)

objCmd.Parameters.Add("@Pass", FormsAuthentication.HashPasswordForStoringInConfigFile(strSalt + txtPass.Text, "SHA1"))

objCmd.Parameters.Add("@Email", txtEmail.Text)

objCmd.ExecuteNonQuery()

objConn.Close()

lblMsg.Text = "your name added seccessfuly....."

Response.Redirect("login.aspx")



End If
#4

السلام عليكم

ارجو من احد الخبراء يساعدك لانه ما عندي خبرة في C يا دوب VB . الكود الي اعطيتك هو شغال تمام بالنسبة للكود مالك ما عندي فكرة مثل ما قلت لك. واتمنى تجدي الحل بأسرع وقت ممكن .

#5

مشكور اخوي

حليت المشكله

يزاك الله خير

هذا الموضوع مغلق.

مواضيع مشابهة