من لديه خبرة ببرمجة ال sql في الفيجوال بيسك وجمل ال select
يضع إيميله مشكورا
برمجة ال sql في الفيجوال بيسك وجمل ال select
مغلق
ال SQL او جمل الاتسعلام افضل مايميزها هو توافقيتها مع جميع قواعد البيانات تقريبا بالاضافة لبعض الاضافات لكل قاعدة بيانات وما اسهل برمجتها بواسطة ADO او حتى في XML مع فيجوال بيسك
فما الذي تحتاج له حتى نستطيع مساعدتك
السلام عليكم ورحمة الله وبركاته
الأستاذ الفاضل محمد بدوي جزاك الله ألف خير
أنا فمت بربط الفيجوال بيسك بالداتابيز بواسطة أداة الداتا
لدي في شاشة الموظفين 4 داتا
فكيف أعمل الكود إنو لما أضيف ينضاف في الجداول التي في الداتا بيز
ولما أحذف وأعدّل نفس الشي يتعدل وينحذف من الجداول التي في الداتا بيز
سألت قالوا لازم أعمل كود في الفورم لود جمل السيليكت وأقوم بتعريف قاعدة البيانات
في الكود
فالناتج الصحيح أنه عندما أحرك أي داتا (السجلات السابق والتالي) فيجب كل سجلات الداتا الأخرى تتحرك أيضا
فقمت بكتابة الكود التالي
Data1.DatabaseName = App.Path + "\db1.mdb"
Data1.RecordSource = "select * from emptable"
Data1.Refresh
Data2.DatabaseName = App.Path + "\db1.mdb"
Data2.RecordSource = "select * from nattable"
Data2.Refresh
Data3.DatabaseName = App.Path + "\db1.mdb"
Data3.RecordSource = "select * from qualtable"
Data3.Refresh
Data4.DatabaseName = App.Path + "\db1.mdb"
Data4.RecordSource = "select * from jobstable"
Data4.Refresh
لدي جدول الموظفين وجدول الجنسية والمؤهل العلمي والوظيفة
لكن الكود لم يحقق المطلوب
أرجو أن يكون شرحي واضح
إذا كنت ترغب بوضع ايميلك مشكورا للمراسلة
لأن لدي كم سؤال آخر
اخي audi بالنسبة لبريدي هو
webmaster@arabteam2000.com
وان كانة الاسئلة بالبرمجة فارجوا ان تضعها هنا لكي يستفيد الجميع وحتى يستطيع الجميع ان يفيدوك ايضا
بالنسبة لما قمت به
ما السبب لوضع عدد اربع ادوات داتا ؟
وفي حال اردت ان تتحكم اكثر فقم باستخدام ال Database object بدلا من استخدام ال data control
كما ارجوا ان تراجع الصفحة التالية للحصول على بعض الامثلة التي سوف تفيدك
بالنسبة لسؤالك عن طريقة التحكم في الداتا بيز باستعمال الدايا كنترول
ما أعرفه الأتي
أولا التعديل في الجداول يتم بصورة تلقائية في الجداول إذا تم أي تعديل في التكستات المرتبطة بها بواسطة الداتا كنترول و لا يحتاج التعديل لأي كود
ثانيا لحفظ بيانات جديد في الجداول فما عليك ألا وضع كود صغير في زر الحفظ و هو
data1.addnew
data2.addnew
data3.addnew
data4.addnew
هذا الكود سيقوم بإفراغ كل التكستات المرتبطة بالداتا كنترول و ما عليك ألا كتابة البيانات
الجديدة في التكستات و ستحفظ تلقائيا في الجداول
ثالثا بالنسبة للتنقل بين السجلات بواسطة الضغط على ازرار التنقل الوجودة في داتا كنترول واحدة من الأربعة الموجودة في النموزج الخاص بك فالطريقة كما قيل لك تحتاج لكتابة كود بجملة select
ولكن لكي تتمكن من عمل ذلك يوجد شرط وحيد و هو ان يكون بالجداول خاصتك مفتاح اساسي فريد . فإذا كان هذا الشرط متحقق فعليك كتابة الكود الاتي
() Private Sub Text1_Change
" "&(Data2.RecordSource = "select *from omla where nua=" & Val(Text1.Text
" "&(Data3.RecordSource = "select *from omla where nua=" & Val(Text1.Text
" "&(Data4.RecordSource = "select *from omla where nua=" & Val(Text1.Text
Data2.Refresh
Data3.Refresh
Data4.Refresh
End Sub
مع ملاحظة الاتي تغيير اسم الجدول الموجود بعد لكلمة from باسم الجدول خاصتك لكل داتا كنترول و تغيير اسم الحقل الموجود بعد كلمة where باسم الحقول في الجداول خاصتك لكل داتا
تغيير text1 بالتكست خاصتك المرتبط بالحقل الفريد
أخيرا هذا الكود سيقوم بالتغيير فقط عندما تتنقل بواسطة الداتا كنترول الاولي وإذا أردت التنقل بواسطة بقية الداتا كنترول فعليك كتابة المزيد من الكود
في الختام اتمني ان أكون قد أفدتك
هذا الموضوع مغلق.