اريد مثالا حول كيفية إستخدام أدة Adodc

عليكم السلام ورحمة الله وبركاته

بما أنك حولت للـAdodc تطور زيادة واتصل بالـAdo عن طريق الكود :) ولا تخف نحن نساعدك ونوضح لك الكيفية من البداية وحتى تفهم .

طبعا إذا كان احد الاخوان راح يساعدك باستخدام هذه الاداة فله الشكر ..

والله الموفق

أخي المتميز

إسما على مسمى ، دائما متميز بردودك وحرصك على مساعدة إخوانك الأعضاء ، وأتمنى أن يظل هذا الإسم يضيئ منتدى Visual Basic دائما .

اشكرك على إهتمامك ، وأتمنى أن أجد ما أتطلع إليه حيث أنهكني البحث في المنتدى منذ صباح اليوم في الإسئلة والردود المتعلقة بأداة Adodc وكيفية التعامل معها ، إلا أنني لم أجد مثالا أستطيع الإنطلاق منه وخصوصا طريقة االإتصال بقاعدة البيانات والبحــــــــث .

أكرر شكري لك ولكل من سيساهم في تقديم المساعدة .

لأضافة حقل جديد

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

لحزف حقل

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

تفضل البحث

بحث ADODC.zip

أخي المتميز وأخي ahmed zakaria

أشكركم على تعاونكم ، وأود أن أستفسر من أخي المتميز حول كود البحث .

هل هناك تغيير ما على الكود حينما أرغب في إستعمال مربعان نصوص فقط وليس DataGrid ، وإذا كان كذلك فما هو هذا التعديل الواجب إجراءه على كود البحث ؟

اقتباس

كنت أستخدم أداة Data Control وقد إضطررات إلى التحويل إلى أداة Adodc للربط بقاعدة البيانات وإجراء العمليات المختلفة مثل الإضافة والحفظ والحذف والتعديل والبحث

حمل المرفق (h)

شؤون الطلاب.zip

أخي Professional VB999

مثال رائع ، وشكرا لتفاعلك ، ولكن لا زال نفس السؤال يحيرني ،حيث أن مثالك إستخدمت فيه أداة الربط Data Control بالإضافة إلى MSFLEXGRID وغيرها .

وأنا رغبت في مثال تستخدم فيه أداة Adodc للبحث في مربعات نصوص وليس DataGrid ، حيث كلما أدخلت كود تظهر رسالة خطأ ، والكود الذي إستخدمته كالتالي .

Adodc1.RecordSource = "SELECT * FROM Table1 where" & "Nme like '*" & Text1 & "*'"

وعندما أضيف الشفرة التالية تظهر رسالة خطأ

Adodc1.Refresh

ورسالة الخطأ هي كالتالي:

Syntax error in From Cluse

وأعتقد بأن الرسالة تفيد بأن هناك خطأ في الكلمة الدليلية From ولكن كيف يتم معالجتها ، لاأعرف !

وعندما أزيل جملة Adodc1.Refresh

وأقوم بعملية البحث لا أحصل على نتيجة ولا يقوم المشروع بعملية البحث بتاتا !

فهل يعرف أحدكم السبب ؟

السلام عليكم

جرب الكود التالي

Adodc1.RecordSource = "SELECT * FROM Table1 where Nme like '*" & Text1 & "*'"

بالنسبة للسؤال عن التكست بوكس الكود هو نفسه لا تغير فيه شي ، فقط اربط مربعات النصوص بأداة Adodc

أخي المتميز

السلام عليكم

لقد أحرجتني بكرمك ، ولا أود أن أثقل عليك بأسئلتي التي لا تنتهي . ولكن صدقني لقد أدرجت الشفرة ولم يتغير أي شيئ ، وقد تلقيت نفس رسالة الخطأ ، وإسمح لي بأن أرفق المثال لعلك تجد خطأ ما لم أكن على دراية به .

S.rar

السلام عليكم

بالعكس نفرح بسؤال من يتعلم

حليت لك المشكلة وودي ابين لك سبب الخطأ من اجل الاستفادة

إذا ربطت اداة ADODC بالقاعدة اجعل الـ RecordSource حقها سلسلة بحث وليس تحديد اسم الجدول

كيف يعني ؟

اضغط على الريكورد سورس حقها ( على النقاط الثلاث ) تظهر لك نافذة

من الـ CommandType اختر 1- AdCmdText

وفي Command Text اكتب الكود الذي يظهر السجلات

select * from Table1

الان تستطيع تغيير الـRecordSource متى ما أردت

تحياتي وتمنياتي لك بالتوفيق

هنا الملف المرفق

S.zip

أخي المتميز

يعجز لساني عن الشكر . فقد عمل الكود بشكل ممتاز والفضل يرجع لله ثم لتعاونك وأخواني الأعضاء .

وإسمح أن أطرح سؤال أخير فقط لاغير ، لأن الكرم الذي لاقيته منك أثار طمعي .

فعندما أبحث عن إسم معين وتظهر بياناته وصورته ، ثم أضغط على زر عرض التقرير يظهر التقرير والصورة الخاصة بالشخص ، ولكن عندما أغلق التقرير أجد أن السجل إنتقل للأمام أو للخلف وإختفى السجل الذي بحثت عنه لسجل فارغ مما يستدعي التنقل بزري الـ Adodc للوصول للسجل الذي قمت بالبحث عنه . فما سبب ذلك يا ترى ؟ مع العلم أنني إستخدمت طريقتك لعرض تقارير DataReport بدون إستخدام DataEnvironment . وقد نجحت والحمدلله .

وعندما أقوم بإستعراض السجلات فقط دون عملية البحث وأقف عند سجل معين ثم أقوم بعرض التقرير ، تظهر صورة الشخص المعروض بالسجل في كل السجلات .

أرجو المعذرة على الإسهاب في سؤالي .

السلام عليكم

اجعل الكود الذي يعرض التقرير هكذا

Private Sub Command1_Click()
Set DataReport1.DataSource = Adodc1
With DataReport1.Sections("Section1")
    Set .Controls("Image1").Picture = Form1.Image1.Picture
DataReport1.Show
End With
 Adodc1.Recordset.MoveFirst
End Sub

أخي المتميز

في الحقيقة لم يتغير أي شيئ عند إضافة الشفرة ، ولكن إلى هذا الحد يكفيني ما حصلت عليه من مساعدة ، وقد أحرجتني بطول بالك وسعة صدرك ، حيث غمرتني بكرمك .

أشكرك وجميع الأخوة اللذين مدوا يد العون والمساعدة من خلال هذا المنتدى الرائع ، وجزاك الله كل خير .

لا شكر على واجب

طيب ليه ما تستخدم الـDataGrid

كما في الملف المرفق

S.zip