تقييم الموضوع :
  • 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 ك ب / التحميلات : 19)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: Sajad
#6
شكرا اخي سعود و جزاك الله كل خير و الله يجعلها في ميزان حسناتك ........
اصدار الاكسس لدي هو 2010 اما نسخة الفيجوال بيسك 2013 فانها تظهر لي رساله خطأ كلما اردت ان اشغلها ......
و لكني اعمل ايضا على نسخة 2008 و هي شغاله و الحمد لله ......
و جاري تجريب المثال و شكرا مرة اخرة و تم التقيم .........
رسالة الخطأ بالنسبة للفيجوال بيسك 2013 هي .....
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة:
#7
و بعدها يتوقف البرنامج .......


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,604 10-05-17, 03:13 PM
آخر رد: safalo
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 2 56 10-05-17, 12:49 PM
آخر رد: djelloul
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 68 17-04-17, 07:13 PM
آخر رد: djelloul
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 8 849 03-04-17, 02:48 AM
آخر رد: ابو إياد
  تحويل ملف اكسس mdb الي sql server 2008 r2 atefkhalf2004 0 104 19-03-17, 08:17 PM
آخر رد: atefkhalf2004
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 152 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 168 05-03-17, 04:06 AM
آخر رد: thevirus
  جعل حقل كلمات السر يضهر على هذا الشكل ****** djelloul 5 227 05-03-17, 01:49 AM
آخر رد: noway
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 171 28-02-17, 03:27 PM
آخر رد: djelloul
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 9 9,236 28-02-17, 10:21 AM
آخر رد: وائل القطاوي

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


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