تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كلمة السر في قاعدة بيانات اكسس
#1
يا اخوة هل لدى احدكم مثال حول كيفية التحقق من اسم المستخدم و كلمة السر في قاعدة البيانات اكسس .......... و اذا كان مثال مصور يكون احسن و شكرا جزيلا .....
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة:
#2
كنت اريد ان احيلك لموضوعي بقسم المشاريع ووجدك قد اطلعت عليه.
فما هي المشكلة؟
ما الذي تريده بالضبط
ان كان عمل مثال Login فهو موجود بكثرة بقسم

قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET
الرد }}}
تم الشكر بواسطة:
#3
شكرا اخي سعود لكن المشكله كلما اقوم بتحميل امثلة او مشاريع و فيها قاعدة بيانات اكسس لا تعمل عندي على جيهازي ما السبب لا اعرف و حتى عندما اقوم بتشغيل الملف الدفعي فانها ايضا لا تعمل و شكرا مرة اخرة .......
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة:
#4
العفو اخي الكريم
ماهو اصدار الاكسس لديك
وهل توجد رسالة خطا معينة ؟؟
الرد }}}
تم الشكر بواسطة:
#5
اخي الكريم عملت مثال للتو لاجلك
vs 2013 and access 2010

بالنسبة لاصدار الـ vs شوف الشرح هنا
http://vb4arb.com/vb/showthread.php?tid=757

اما قاعدة البيانات فابسط
tb==table
un====جدول نصي
ps=====جدول نصي
------------------------
مكونات المثال في فيجوال بيسك
Module1.vb
ومحتواه
كود :
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
Imports System.Data.OleDb

Module Module1
    Public Function Encrypt(ByVal text As String, ByVal key As String) As String
        Try
            Dim crp As New TripleDESCryptoServiceProvider
            Dim uEncode As New UnicodeEncoding
            Dim bytPlainText() As Byte = uEncode.GetBytes(text)
            Dim stmCipherText As New MemoryStream
            Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
            Dim pdb As New Rfc2898DeriveBytes(key, slt)
            Dim bytDerivedKey() As Byte = pdb.GetBytes(24)
            crp.Key = bytDerivedKey
            crp.IV = pdb.GetBytes(8)
            Dim csEncrypted As New CryptoStream(stmCipherText, crp.CreateEncryptor(), CryptoStreamMode.Write)
            csEncrypted.Write(bytPlainText, 0, bytPlainText.Length)
            csEncrypted.FlushFinalBlock()
            Return Convert.ToBase64String(stmCipherText.ToArray())
        Catch ex As Exception
            Throw
        End Try
    End Function
    Public str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Public con As New OleDbConnection(str)

    Function isvaliduser(ByVal un As String, ByVal ps As String) As Boolean
        Dim k As String = "vb4arabdotcom"
        Dim thepassword As String = Encrypt(ps, k)
        Dim cm As New OleDbCommand("select count(tid) from tb where un=@un and ps=@ps", con)
        cm.Parameters.AddWithValue("@un", un)
        cm.Parameters.AddWithValue("@ps", thepassword)
        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            If cm.ExecuteScalar > 0 Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

    Function istaken(ByVal un As String) As Boolean
        Dim cm As New OleDbCommand("select count(tid) from tb where un=@un", con)
        cm.Parameters.AddWithValue("@un", un)
        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            If cm.ExecuteScalar > 0 Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

    Function addme(ByVal un As String, ByVal ps As String) As Boolean
        If istaken(un) Then
            Return False
            Exit Function
        Else
            Dim k As String = "vb4arabdotcom"
            Dim thepassword As String = Encrypt(ps, k)

            Dim cm As New OleDbCommand("insert into tb(un,ps) values(@un,@ps)", con)
            cm.Parameters.AddWithValue("@un", un)
            cm.Parameters.AddWithValue("@ps", thepassword)
            Try
                If con.State = ConnectionState.Closed Then
                    con.Open()
                End If
                cm.ExecuteNonQuery()
                Return True
            Catch ex As Exception
                Return False
            End Try
        End If
    End Function
End Module
وملف register.vb
ومحتواه
كود :
Public Class register

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        lbl.Visible = False
        If addme(un.Text, ps.Text) Then
            lbl.Text = "تم تسجيلك بنجاح"
            lbl.ForeColor = Color.Green
            lbl.Visible = True
        Else
            lbl.Text = "لم يتم تسجيلك لسببين اما ان الاسم محجوز او لامر غير معروف ابلغ المسؤول بذلك"
            lbl.ForeColor = Color.Red
            lbl.Visible = True
        End If
    End Sub

  
End Class
وملف login.vb
ومحتواه
كود :
Public Class login

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

        If us.Text.Trim = "" Or ps.Text.Trim = "" Then Exit Sub
        lbl.Visible = False
        If isvaliduser(us.Text, ps.Text) Then
            lbl.Text = "أهلا وسهلا بك, البيانات صحيحة"
            lbl.ForeColor = Color.Green
            lbl.Visible = True
        Else
            lbl.Text = "عفوا البيانات خاطئة"
            lbl.ForeColor = Color.Red
            lbl.Visible = True
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        register.ShowDialog()
    End Sub

  
End Class

المثال مرفق


الملفات المرفقة
.zip   For_raoe-041.zip (الحجم : 59.06 ك ب / التحميلات : 65)
الرد }}}
تم الشكر بواسطة: Sajad
#6
شكرا اخي سعود و جزاك الله كل خير و الله يجعلها في ميزان حسناتك ........
اصدار الاكسس لدي هو 2010 اما نسخة الفيجوال بيسك 2013 فانها تظهر لي رساله خطأ كلما اردت ان اشغلها ......
و لكني اعمل ايضا على نسخة 2008 و هي شغاله و الحمد لله ......
و جاري تجريب المثال و شكرا مرة اخرة و تم التقيم .........
رسالة الخطأ بالنسبة للفيجوال بيسك 2013 هي .....
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة:
#7
و بعدها يتوقف البرنامج .......


الملفات المرفقة صورة/صور
   
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة:
#8
السبب لان النسخة اللي عندي ult واللي عندك pro
لكن مافيه مشكلة طبق اللي بالشرح
الرد }}}
تم الشكر بواسطة:
#9
اخي سعود نسخة 2013 كلها لا تعمل مع اني قمت بازالتها و تنصيبها من جديد و ايضا عملت الها اصلاح و لكنها لا تعمل ...........
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة:
#10
اليوم طرات مشكلة في vs2013 مع انه محدث الى update3 يتوقف عن العمل؟
الرد }}}
تم الشكر بواسطة: raoe-041


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 695 07-11-23, 08:27 AM
آخر رد: justforit
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,577 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 528 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 671 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,003 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,798 07-11-22, 10:27 PM
آخر رد: Am7
  [عنوان معدل]حفظ بيانات listbox fhad24 36 12,235 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,259 17-11-21, 10:09 AM
آخر رد: سعود
  كيف اتجنب أخطاء ارسال قيم فارغة الى حقول رقمية في اكسس بسام محمدغانم 2 1,132 09-11-21, 02:09 AM
آخر رد: Anas Mahmoud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم