بكل تاكيد لكل شئ ولها حل
وكما تقول انه يوجد طريقة من خلال الكود
ولكن قبل ما اوضح الفكرة المقصودة بالكود اريد ان اسالك سؤال...!
هل ما تريده هو مظهر قاعدة البيانات من حيث المظهر ، ام انك تريد مضمون الفعلى للمطلوب فى البرنامج ؟
قاعدة البيانات ما هى الا مظر فقط
ولا يلزم كل ما يكتب بها هو الزامى بمعنى
انا اريد عمل شاشة تسجل مستخدم فلاتمام ذلك
يجب عليا ان اقوم بعمل جدول تحت اسم 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
اتمنى ان يكون مضمون الشرح وصل لك واستوعبت ما اريد ان يصل لك
تحياتى لك
وتمنياتى لك التوفيق