منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب طريقه عمل الصلاحيات للمستخدمين بقاعده بيانات sql
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
عفوا أخي أستبدله بهذا الكود
لان SQL لايقبل True و False يقبل يا 0 يا 1 جرب الكود التالي أستبدله بالسابق وإن شاء الله يشتغل 100 %

PHP كود :
Dim cmd As New SqlCommand("insert into users (username,userpass,allow_insert,allow_edit,allow_delete,allow_select,allow_add_users) values ('" Trim(TextBox1.Text) & "','" Trim(TextBox2.Text) & "', " IIf(CheckBox2.Checked True10) & "', " IIf(CheckBox3.Checked True10) & "', " IIf(CheckBox4.Checked True10) & "', " IIf(CheckBox5.Checked True10) & "', " IIf(CheckBox6.Checked True10) & ")"con)

con.Open()

cmd.ExecuteNonQuery()

con.Close()

MsgBox("تم حفظ المستخدم الجديد بنجاح"MsgBoxStyle.Information
Easy 4ever كتب :عفوا أخي أستبدله بهذا الكود
لان SQL لايقبل True و False يقبل يا 0 يا 1 جرب الكود التالي أستبدله بالسابق وإن شاء الله يشتغل 100 %

PHP كود :
Dim cmd As New SqlCommand("insert into users (username,userpass,allow_insert,allow_edit,allow_delete,allow_select,allow_add_users) values ('" Trim(TextBox1.Text) & "','" Trim(TextBox2.Text) & "', " IIf(CheckBox2.Checked True10) & "', " IIf(CheckBox3.Checked True10) & "', " IIf(CheckBox4.Checked True10) & "', " IIf(CheckBox5.Checked True10) & "', " IIf(CheckBox6.Checked True10) & ")"con)

con.Open()

cmd.ExecuteNonQuery()

con.Close()

MsgBox("تم حفظ المستخدم الجديد بنجاح"MsgBoxStyle.Information

اشكر يالغالي
هذي صور من قاعده البيانات sql

الجدول


تعبيه عن طريق sql وليس البرنامج


هذا بعد كتابة الكود الاخير تظهر رساله التالية :-

سعود كتب :يوجد مثال لاكسس



اشكرك يا اخي سعود لكن واجهتني مشكله بعد تحويل قاعده من اكسس الي sql







هذا الملف بعد تعديل عليه
http://vb4arb.com/vb/uploaded/276_01362665002.zip
تدري منتداي اللي انا اطبق عليه اني غيرت نوع البيانات من bit الى int بسبب الاختلاف بين تعامله مع اكسس و sql
وكنت اضع التحقق على ثلاثة توقعات:
dbnull
0
1
اعامل الاولى كالثانية فقط الاخيرة اعتبرها true
ينفع ارفع لك المثال بعد التعديل باصدار 2010 ؟
تقدر تشغله بنسخ الملفات
هلا فيك اخي سعود

لم افهم كيف بي امكان استخدم قيمة int بدل bit :confused:

انا لست متمرس على قاعده سيكوال سيرفر Rolleyes

ايه نعم لايوجد مشكله في الاصدارات انا استخدم 2008 و 2010 في نفس الجهاز ... :o

اتمنى لك التوفيق يا اخ سعود ...
طيب اخوي انتظرني اسوي قاعدة جديدة لان حاولت تكبير القاعدة وماوجدتها وحاولت اثبت اللي انت ارفقتها ومارضي فانتظرني دقائق باذن الله.
على فكرة ساقوم بتغيير جذري بالمثال كنت سابقا استخدم الداتاست لكن الان افضل استخدم sqlcommand
سعود كتب :طيب اخوي انتظرني اسوي قاعدة جديدة لان حاولت تكبير القاعدة وماوجدتها وحاولت اثبت اللي انت ارفقتها ومارضي فانتظرني دقائق باذن الله.

سعود كتب :على فكرة ساقوم بتغيير جذري بالمثال كنت سابقا استخدم الداتاست لكن الان افضل استخدم sqlcommand
.
لايوجد اي مشكله خذء رحتك
يكون افضل بستخدم sqlcommand

بارك الله فيك .
[url="http://vb4arb.com/vb/uploaded/34_01362675370.zip"]تفضل المثال بعد التعديل.
[/url]ان لم يتم تثبيت القاعدة كما حصل معي قم باضافة قاعدة جديدة بالمواصفات التالية:
الاسم:db1
وتحتوي جدول واحد باسم: fusers
والمواصفات تتبين بالصورة:
بالنسبة لعمود الاول tid اجعله مفتاح اساسي وترقيم تلقائي.
ان لم تعرف كيف تجعله ترقيم تلقائي اكتب رد.
الصفحات : 1 2 3