منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=41434)



اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - حماده ممدوح البحيرى - 13-05-22

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


وشكرا جزيلا






[attachment=27788]


RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - asmarsou - 13-05-22

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


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


RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - حماده ممدوح البحيرى - 14-05-22

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


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

[attachment=27790]


RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - سعود - 14-05-22

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


RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - حماده ممدوح البحيرى - 14-05-22

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

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



[attachment=27794]


[attachment=27793]


RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - aljzazy - 14-05-22






RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - حماده ممدوح البحيرى - 15-05-22

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


RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - سعود - 15-05-22

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

عدلته الى:
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(strcn)
 
       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.DescriptionMsgBoxStyle.Critical"")
 
       End Try 

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


RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - حماده ممدوح البحيرى - 16-05-22

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


RE: اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى - سعود - 16-05-22

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

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

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

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