اريد مساعدة في برنامج يستحدم كلمة مرور

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

اتفضل

 Connection()

conn.Open()

sel.CommandText = "select * from Users"



Dim dbread As SqlDataReader

dbread = sel.ExecuteReader()

While dbread.READ

If Me.TextBox1.Text = dbread.getstring(1) And TextBox2.Text = dbread.getstring(2) Then

MsgBox("accepted")

mainform.Show()

Else

MsgBox("not accepted")

TextBox1.Focus()

End If

End While

conn.Close()

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

هذه تشكيلة دروس في الموضوع :

مثال على صلاحيات المستخدم

كيف أستخدم نظام أكسس لصلاحيات المستخدمين؟, درس مختصر في ملف وورد لمعرفة المدخل إلى استخدام إمكانيات الأكسس

كيفية انشاء المستخدمين و كلمة الس و صلاحيات التعديل و الحدف و الاضافة

تحياتي...

السلام عليكم شباب

ملف المشروع بالمرفقات لاني لم استطع انجاز الفكره

فارجو من الجميع مساعدتي مع شرح الخطاء الذي قمت فية

وشكراً

Stores.rar

السلام عليكم

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

لذا ارجو المساعدة لو سمحتو

Stores.rar

Imports System.Data.OleDb
Public Class EntryOfProg
	Dim conn As New OleDb.OleDbConnection
	Dim MyReader As OleDb.OleDbDataReader
	Private Sub EntryOfProg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\Stores.mdb")
		conn.Open()
	End Sub
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click	  
		Dim sql As String
		sql = "select * from Entry where UserName ='" + TextBox1.Text + "' and Password='" + TextBox2.Text + "'"
		Dim MyCmd As New OleDbCommand(sql, conn)
		MyReader = MyCmd.ExecuteReader()
		MyReader.Read()
		If MyReader.HasRows Then
			TextBox1.Text = MyReader.Item("UserName")
			TextBox2.Text = MyReader.Item("Password")
			Me.Hide()
			Form1.MenuItem2.Enabled = True
			Form1.MenuItem3.Enabled = True
			Form1.MenuItem4.Enabled = True
		Else
			MsgBox("Empty", MsgBoxStyle.Exclamation)
		End If
		MyReader.Close()
		conn.Close()
	End Sub
	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Me.Hide()
	End Sub
End Class

جربه , لأن ماعندي البرنامج

بالتوفيق ..

شكراً لكي اختي إشراقــه فجــر

بعد محاولات كثيرة وجد الحل بهذا الكود

<

Imports System.Data

Imports System.Data.OleDb

Public Class EntryOfProg

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\Stores.mdb"

Dim conn As New OleDbConnection(ConStr)

Private Sub EntryOfProg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

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

Dim MyCmd As New OleDbCommand

Dim MyReader As OleDbDataReader

conn.Open()

MyCmd.Connection = conn

MyCmd.CommandType = CommandType.Text

MyCmd.CommandText = "SELECT * FROM Users where UserName = '" & TextBox1.Text & "' and Password = '" & TextBox2.Text & "'"

MyReader = MyCmd.ExecuteReader

If MyReader.Read Then

TextBox1.Text = MyReader.Item("UserName")

TextBox2.Text = MyReader.Item("Password")

Me.Hide()

Form1.MenuItem2.Enabled = True

Form1.MenuItem3.Enabled = True

Form1.MenuItem4.Enabled = True

Else

MsgBox("ں驤ںک ںé¢ڑè§ êë ں«ê ںéê«¢¦§ê يèéê، ںéê©ي©", MsgBoxStyle.Exclamation)

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.Focus()

End If

MyReader.Close()

conn.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Hide()

End Sub

End Class

>

وزبط معاي البرنامج

على العموم جربة الكود الموجود في مشاركتك ولكن تطلع هذه الرسالة

The Microsoft Jet database engine cannot find the input table or query 'Entry'. Make sure it exists and that its name is spelled correctly.

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

بصراحه مافهمت أنحلت مشكلتك ولا لا ..

على العموم , سويت هالمثال على السريع علشان يوضح لك كيف تتأكد من أن أسم المستخدم و كلمة المرور صحيحه ..

و طبعاً غيره إلى مايوافق برنامجك ..

وبالتوفيق ..

Example.rar

شكراً لكي اختي إشراقة فجر

الحمد لله انحلت المشكلة