اضافة حقل نعم لا بالكود في قاعدة اكسس

اضافة حقل نعم لا بالكود في قاعدة اكسس - نسخة قابلة للطباعة

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

الصفحات: 1 2

اضافة حقل نعم لا بالكود في قاعدة اكسس - atefkhalf2004 - 23-03-19

عند اضافة الحقل
يظهر علي انه نص وليس نعم لا
alter table edary ADD column aaaa yesno
بحثت ولقيت
لكن هناك خطا في الجملة

alter table edary ADD column aaaa yesno DisplayControl CheckBox
برجاء حل مشكلتي

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - atefkhalf2004 - 23-03-19

up
up
please

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - alfaiz678 - 24-03-19

لو تضع الكود الذي فيه الخطأ
اعني كود الاضافة

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - atefkhalf2004 - 24-03-19

الكود في الموضوع مشاركة رقم 1 وبه الخطا. شكرا

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - حريف برمجة - 25-03-19

القي نظره هنا :

https://stackoverflow.com/questions/51773640/how-to-add-yes-no-column-in-a-make-table-query

https://stackoverflow.com/questions/27554147/add-field-using-alter-table-in-vba

https://stackoverflow.com/questions/38812748/what-is-a-yes-no-field-type-in-access-sql-query

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - atefkhalf2004 - 26-03-19

شكرا
لكن
هو يضيف الحقل ولكن يظهر علي انه نص
بعد ذلك
يدويا
تفتح القاعدة وتغير الشكل من نص الي checkbox

كيف ذلك برمجيا

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - atefkhalf2004 - 29-03-19

من فضلكم
اين عباقرة المدرسة

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - elgokr - 30-03-19

مرحباً اخى atefkhalf2004

بخصوص بتحويل عمود aaa من من رقم 0/1 الى خيار yes/no

وعو عن طريق Combo Box كل ما عليك فعله هو

فتح تصميم الجدول وتقوم بالوقوف على العمود المطلوب aaa

وبالاسفل ستجد قائمة Lookup قم بتنشيطها وطبق كما فى الصورة

لتقوم بتغيير TextBox الى Combo Box

بخصوص YesNo

اى كانت القيمة التى تنتج عن نص او رقم او ما كان الامر

فهو بالاول والاخر عبارة عن 0/1

فلا يهم طريقة ظهور القيمة بالجدول اذا كان رقم او نص

لان بالنهاية انت من تتعامل معها فى البرمجة فى الفورم من خلال التحقق واستبدال الجمل

وبخصوص الـ lookup ما هو الا اداء يتم التعامل معها يدوياً وليس من خلال الكود

ووظيفتها للتعامل مع قاعدة البيانات قا داتا و مشروع متكامل

حتى يختصر الامر معط فى انشاء الفورم من خلال قاعدة البيانات نفسها او عند اتمام عمل التقارير داخل قاعدة البيانات

وليس للتعامل مع الجدول خارج نطاق قاعدة البيانات مثل Vb.Net

لذلك عندما قلت لا تشغل بالك بطريقة تسجيلا لقيمة اذا كانت 0/1 أو Yes/No أو حتى True/False

لان بالنهاية قاعدة البيانات تقوم بقراءتها فعلياً عبارة عن 0/1 مهما كانت القيمة التى تظهر لك

جرب بنفسك التعديل على اى قيمة خاصة بـ Yes/No لو كانت القيمة No عند الوقوف عليها ستجد تلقائي يتحول الى 0

والعكس اذا كانت القيمة Yes ستجد بمجرد الوقوف عليها ستجد تحول القيمة الى -1 واى انه 1 فكلاهما واحد

لان اى قيمة غير 0 تعنى الموافقة

تحياتى لك

وتمنياتى لك التوفيق

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - atefkhalf2004 - 30-03-19

شكررا
علاونا كل شئ ينفع بللكود
مرة اخري شكرا لن افقد ابلمل

الامل طالما هناك منتي وعباقرة

RE: اضافة حقل نعم لا بالكود في قاعدة اكسس - elgokr - 01-04-19

بكل تاكيد لكل شئ ولها حل

وكما تقول انه يوجد طريقة من خلال الكود

ولكن قبل ما اوضح الفكرة المقصودة بالكود اريد ان اسالك سؤال...!

هل ما تريده هو مظهر قاعدة البيانات من حيث المظهر ، ام انك تريد مضمون الفعلى للمطلوب فى البرنامج ؟

قاعدة البيانات ما هى الا مظر فقط

ولا يلزم كل ما يكتب بها هو الزامى بمعنى

انا اريد عمل شاشة تسجل مستخدم فلاتمام ذلك

يجب عليا ان اقوم بعمل جدول تحت اسم users أو ما شبه

فبامكانى ان اجعله باسم ty18577 كمثال

وليس لان محتوى الجدول يعتمد على اسم المستخدم وكلمة المرور

فيصبح عمود الاسم username و الباسور Password

فمن الممكن ان اجعله ty-p15776 وما شبه من مسمى كمثال

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

فمن الممكن ان استخدمه كا نوع رقم او غيره حيث اقوم بتشفيل الحروف لارقام وما غيره من انواع التشفير

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

حتى لا تجعل من يقوم بفتح قاعدة البيانات الفهم لما يتضمن من محتوى

وكي لا يقوم باستخدامها فى اى شئ اخر

انما المضمون الحقيقى والرؤية النهائية هو ما يعرض فى البرنامج الذى قمت بتصميمه

ليقوم بتنفيذ المطلوب وليقوم بتخذين البيانات بانهاية بقاعدة البيانات

اى كانت طريقة ارسالة القيمة ومحتواها لقاعدة البيانات

وبخصوص الكود الذى تريده

فلاتمام تغيير Display Control اضافة DAO فى References

ومن ثم عمل كود

كود :

Imports dao

Imports dao.DataTypeEnum

وتتعامل مع الاضافة لتغيير Display Control

ليكون الكود على هذا النحو

كود :

   Dim dbe As New dao.DBEngine

    Dim dbs As dao.Database

    Dim fld As dao.Field

    Dim prp As dao.Property

    dbs = dbe.OpenDatabase("YourMDB.mdb")

    fld = dbs.TableDefs("YourTable").Fields("YourField")

    prp = fld.CreateProperty("DisplayControl", dbInteger, 106)

    Try

      fld.Properties.Append(prp)

    Catch ex As Exception

      MsgBox(ex.Message, MsgBoxStyle.Information)

    End Try

اذا كنت تلاحظ فى الكود ستجد انه يقوم بعمل فتح قاعدة البيانات ليقوم بتنفيذ

ما قمت بشرحه مسبقاً عن الطريقة اليدوية لان كما شرحت بالاعلى

ان المضمون النهائي للفكرة ما هو الا مظهر ولا يفيد المظهر داخل VB.NET

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

اى الاعداد لا تتجاوز 9 كي يكون الاعداد من 0:9 وكل ما ستقوم به عند ارسال قيمة ان ترسم Yes بقيمة 1 للعمود الرقمي

وما يخص No ان ترسل قيمتها بـ 0 وان تجعل العمود قيمة اجبارية والقيمة الافتراضية هى 0

اتمنى ان يكون مضمون الشرح وصل لك واستوعبت ما اريد ان يصل لك

تحياتى لك

وتمنياتى لك التوفيق