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

نسخة كاملة : طلب طريقه عمل الصلاحيات للمستخدمين بقاعده بيانات 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

الجدول
[صورة مرفقة: 276_01362664249.png]

تعبيه عن طريق sql وليس البرنامج
[صورة مرفقة: 276_11362664249.png]

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

[صورة مرفقة: 276_21362664249.png]
سعود كتب :يوجد مثال لاكسس
[صورة مرفقة: UMac1.jpg]
[صورة مرفقة: 34_01348356221.jpg]


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

[صورة مرفقة: 276_01362665053.png]

[صورة مرفقة: 276_11362665053.png]



هذا الملف بعد تعديل عليه
https://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="https://vb4arb.com/vb/uploaded/34_01362675370.zip"]تفضل المثال بعد التعديل.
[/url]ان لم يتم تثبيت القاعدة كما حصل معي قم باضافة قاعدة جديدة بالمواصفات التالية:
الاسم:db1
وتحتوي جدول واحد باسم: fusers
والمواصفات تتبين بالصورة:
[صورة مرفقة: 34_01362675537.jpg]
بالنسبة لعمود الاول tid اجعله مفتاح اساسي وترقيم تلقائي.
ان لم تعرف كيف تجعله ترقيم تلقائي اكتب رد.
الصفحات : 1 2 3