+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التحقق من قيمة حقل في قاعدة البيانات (/showthread.php?tid=25401)
التحقق من قيمة حقل في قاعدة البيانات - ZaerAllail - 16-06-18
في حاجة ماسة إلى الكود الخاص بالتحقق من قيمة حقل في قاعدة البيانات
مثل التحقق من إسم المستخدم وكلمة المرور مثلا حتى يتم تسجيل الدخول لمرحله أخرى في البرنامج وهكذا
وشكرا لكم
RE: التحقق من قيمة حقل في قاعدة البيانات - حريف برمجة - 16-06-18
السؤال ناقص :
مثل اسم قاعدة البيانات ، اسم الجدول ، اسماء الحقول ..... إلخ
ضع مثال بسيط للفكرة وسوف تجد الحل بشكل سريع .
RE: التحقق من قيمة حقل في قاعدة البيانات - ZaerAllail - 16-06-18
اوضحها لك بشكل افضل
فرضاً لديك قاعدة بيانات بها جدولين
الجدول الأول
datatable1
يوجد به حقلين
username
password
الجدول الثاني
datatable2
يوجد به حقول خاصة ببيانات الموظفين مثلاً
وحتى يتمكن المستخدم من الدخول إلى النموذج الموجود به بيانات الموظفين في الجدول الثاني يجب عليه أولاً إدخال إسم المستخدم وكلمة المرور الخاصة به والتي ستكون مسجله في الجدول الأول !
اتمنى أكون شرحت الفكره بشكل جيد !
أنا توصلت مع المحاوله إلى كود يعمل بشكل جيد وهو المرفق مع هذا الرد ولكن الغريب أنه قام بالتحقق من إسم المستخدم وكلمة المرور دون أن أحدد له الجدول المقصود ولست أعلم كيف !
إذا ممكن أحد يشرح هالنقطه اكون جدا شاكر له !
كود :
Imports System.Data.OleDb
Public Class LogIn
Public con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;" & "data source=" & Application.StartupPath & "\MyPassData.accdb")
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Private Sub ButtonToUserSghinIn_Click(sender As Object, e As EventArgs) Handles ButtonToUserSghinIn.Click
Dim UName As String = dt.Rows(0)("UserName") 'إسم المستخدم الموجود في الجدول الأول في قاعدة البيانات
Dim Upass As String = dt.Rows(0)("Passsword") 'كلمة المرور الموجوده في الجدول الأول في قاعدة البيانات
If TextUserNam.Text <> UName And TextUserPass.Text <> Upass Then
MsgBox("بيانات إسم المستخدم وكلمة المرور غير صحيحة يرجى التأكد منها والمحاولة مره أخرى", vbInformation, "My Key")
TextUserNam.Text = ""
TextUserPass.Text = ""
TextUserNam.Focus()
Exit Sub
Else End If
MineF.Show()
Me.Hide()
End SubRE: التحقق من قيمة حقل في قاعدة البيانات - حريف برمجة - 16-06-18
بعد التحقق من اسم المستخدم وكلمة المرور قم بالتالي :
فتح الفورم المطلوب :
FormName.Show()
في حدث اللود تبع الفورم نيم ضع الأكواد التي تريدها .