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

كود الدخول الى قاعدة البيانات

بدأه aboklefh في 27 يونيو 2011 · 4 رد · 571 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخوانا

انا بحاجة الى مساعدتكم

اريد كود

برمجة الدخول الى قاعدة البيانات اسم المستخدم وكلمة المرور

بحيث اذا كان الاسم موجود في قاعدة البيانات يسمح له بالدخول

واذا كان غير موجود تظهر له رساله تفيد بانه غير مسجل

الله يوفكم ساعدوني بللللللللليز

#2

وعليكم السلام ورحمة الله .

ارجو ان تجرب هذا الكود

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    	Dim con As New SqlConnection(" ...... ")
    	Dim com As New SqlCommand
    	Dim da As New SqlDataAdapter
    	Dim ds As New DataSet
    	com.CommandText = "select * from users where username = '" & TextBox1.Text & "' and password = '" & TextBox2.Text & "'"
    	com.Connection = con
    	da.SelectCommand = com
    	da.Fill(ds)
    	If ds.Tables(0).Rows.Count = 1 Then
       	form1.Show()
        	Me.Hide()
    	Else
        	MsgBox("الرجاء ادخال كلمة اسم مستخدم او كلمة سر صحيحة")
    	End If
	End Sub

طبعا مع العلم في الsqlconnection يجب وضع المسار الصحيح للداتا بيز مع كامل المستلزمات ,.

اسم الجدول في الداتا بيز users واسماء ال

column

userename

password

تم تعديل هذه المشاركة بواسطة Eng.S.IDk في 27 يونيو 2011 في 23:02

#3

اضافة لما قالة الاخ الكريم Eng.S.IDk

طبعا كلمة المرور الخاصة بالمستخدمين لابد ان يكون مخزن داخل قاعده البيانات بشكل مشفر وليس متاح لاي شخص الاطلاع عليه من داخل الجداول الا للشخص الذي معه مفتاح فك شفرة الكود المسؤل عن تشفير كلمات المرور

ارجو مشاهده الرابط ادناه الذي يشرح طريقة تشفير بيانات داخل قواعد بيانات SQL

http://blog.sqlauthority.com/2009/04/28/sql-server-introduction-to-sql-server-encryption-and-symmetric-key-encryption-tutorial-with-script/

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#4

شكرا لكم

جزاكم الله خير

الله يوفكم

#5

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

اخي كما يمكنك عمل المطلوب على النحو التالي


Dim conn As New SqlConnection("ConnectionString")
Dim cmd As New SqlCommand("Select * From Users Where Username=@Username And Password=@Password",conn)
cmd.Parameters.AddWithValue("Username",txtUsername.Text)
cmd.Parameters.AddWithValue("Password",txtPassword.Text)
conn.Open()
Dim reader As SqlDataReader= cmd.ExecuteReader()
If reader.HasRows Then
'Your Logic
Else
MessageBox.Show("Invalid user credentails!!")
End If
conn.Close()

او


Dim conn As New SqlConnection("ConnectionString")
Dim cmd As New SqlCommand("Select Count(*) From Users Where Username=@Username And Password=@Password",conn)
cmd.Parameters.AddWithValue("Username",txtUsername.Text)
cmd.Parameters.AddWithValue("Password",txtPassword.Text)
conn.Open()
If Convert.ToInt32(cmd.ExecuteScalar())=1 Then
'Your Logic
Else
MessageBox.Show("Invalid user credentails!!")
End If
conn.Close()

.:: Wish to become better and better ::.

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