16-06-18, 12:39 PM
في حاجة ماسة إلى الكود الخاص بالتحقق من قيمة حقل في قاعدة البيانات
مثل التحقق من إسم المستخدم وكلمة المرور مثلا حتى يتم تسجيل الدخول لمرحله أخرى في البرنامج وهكذا
وشكرا لكم
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 Sub