[حماده ممدوح البحيرى]

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


وشكرا جزيلا







  صلاحيات مستخدمين (2).zip (الحجم : 246.49 ك ب / التحميلات : 7)

[asmarsou]

(13-05-22, 11:33 PM)حماده ممدوح البحيرى كتب : السلام عليكم ورحمة الله وبركاته
لو سمحت ف الملفات المرفقة يوجد خطأ عند التشغيل وعدم تنفيذ الكود لا اعلم ماهو


وشكرا جزيلا

وعليكم السلام ورحمة الله و بركاته
ما من خطأ يذكر ...فقط راجع حدث كليك للبوتن 1 للفورم 3

[حماده ممدوح البحيرى]

السلام عليكم بالفعل انا لم اذكر كيفية الخطا 
اسف جدا
بس تشغيل الفورم ونختار تبويب الاعدادات ثم تبيوب صلاحيات المستخدم يظهر لنا فورم جديد
عند وضع علامات على صلاحيات المستخدم ووضع كلمة سر ويوزر يتم اظهار الخطا


ويظهر الخطا لدى كما فى الصورة التالية

   

[سعود]

لو تعيد رفع المشروع بعد التعديلات الاخيرة.

[حماده ممدوح البحيرى]

قمت بارفاق الملف بعد التعديل كما اخبرتنى
ولم يظهر لى الخطا السابق

وظهر خطا جديد فى اخر سطر فى الكود




  صلاحيات بعد التعديل.rar (الحجم : 99.83 ك ب / التحميلات : 7)


   

[aljzazy]

[حماده ممدوح البحيرى]

اريد حل للموضوع جزاكم الله خيرا

[سعود]

الخطا  الاول قبل اكمال النظر هو مسار ملف القاعدة مربوط باسم جهازك وهذا يكون ثابت ما يتغير لا بد من كتابة كود يجلب المسار بشكل اوتاميتيكي [ان صحت التسمية]

عدلته الى:

PHP كود :

   Public apath As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
    Public connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & apath & "\user44.accdb" 


جاري النظر ...

---

نصف ساعة احاول بجملة Insert into   ولم تزول رسالة الخطا الا بعدما غير مسمى عمود password الى  tpassword  اضفت حرف اضافي الى اوله

قارنه بماعندك

PHP كود :

 Dim cn As OleDbConnection = Nothing
        Dim cm As OleDbCommand = Nothing
        Dim str As String = ""
        cn = New OleDbConnection(connectionstring)
        str = "insert into user_(user_name,tpassword,s1,s11,s12,s13) values (@user_name,@tpassword,@s1,@s11,@s12,@s13)"
        cm = New OleDbCommand(str, cn)
        cm.Parameters.Add(New OleDbParameter("@user_name", TextBox1.Text))
        cm.Parameters.Add(New OleDbParameter("@tpassword", TextBox2.Text))
        cm.Parameters.Add(New OleDbParameter("@s1", TreeView1.Nodes(0).Checked))
        cm.Parameters.Add(New OleDbParameter("@s11", TreeView1.Nodes(0).Nodes(0).Checked))
        cm.Parameters.Add(New OleDbParameter("@s12", TreeView1.Nodes(0).Nodes(1).Checked))
        cm.Parameters.Add(New OleDbParameter("@s13", TreeView1.Nodes(0).Nodes(2).Checked))
        cn.Open()
        Try
            cm.ExecuteNonQuery()
            MsgBox("saved")
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")
        End Try 


---

حاول تبحث عن الاسماء المحجوزة لكي لا تقع مرة اخرى بنفس الخطا.

[حماده ممدوح البحيرى]

استاذ مسعوووووووووووووووووووود
لا علم كيف اشكرك
ولكن كم انت مبدع ومبدع ومبدع

[سعود]

(16-05-22, 06:34 AM)حماده ممدوح البحيرى كتب : استاذ مسعوووووووووووووووووووود
لا علم كيف اشكرك
ولكن كم انت مبدع ومبدع ومبدع

العفو اخي الكريم 

اذكرك بما قلته لك من قبل:
واذا انت جديد على البرمجة انصحك بقناة حسونة اكاديمي 

تعلم الاساسيات بشكل نظري ثم ابدا بالتطبيق.