الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلبتكم طلب لا تردوني وقد ضاقت بي السبل

بدأه azoz100 في 12 مارس 2009 · 39 رد · 3,116 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

صبحكم الله بألأ خير

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

والمشكلة لم اجد من يقف الى جواري لفك هذا اللغز بالرغم ان الجميع لم يسأل عنه لان الجميع يعرف الاجابة سوى محدثكم المحتار .

العفو سأبدأ مباشرة . . . .

أنا عملت برنامج خاص بالمدرسة

خطوات التنفيذ جيدة الى حد ما

بمعنى انه يؤدي الغرض الذي وضع من اجله

المهم

عندما جيت انقله من جهازي لجهاز المدرسة رفض يتعرف على قاعدة البيانات

بمعنى اخر قاعدة البيانات ملأتها بالبيانات اثناء ما كان البرنامج على جهازي الاساسي (محمل عليه الفيجوال بيسك)

ولما نقلته لجهاز المدرسة ظهر البرنامج ولكن لم يستطع البرنامج جلب البيانات من القاعدة المرفقه معه.

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

استخدمت ستب فاكتوريا للربط والحزم

واستخدمت الكريستال للريبورت

المطلوب من أهل الخبرة مشكورين الاتي :

دعمي ببرنامج صغير جدا فيه كود لربط الأزرار بقاعدة البيانات بدال data او بدال adoce او كتابة الكود بالشرح هنا

دعمي بطريقة جلب البيانات من القاعدة عن طريق الكود وكذلك data او adoce

لان التكستات لا تظهر فيها بيانات القاعدة المرفقه عند نقله الى جهاز ااخر

وبعض الأزارير لا تعمل

اتمنى من مصادرنا في هذا المنتدىالمبجل سرعه اسعافي بالحل وللجمع فائق تقديري وشكري العميق .

وللتواصل عبر الايميل

azzoz2005m@hotmail.com

#2

اعتقد ان المشكلة كلها في مسار قاعدة البيانات .. كان اولى ان ترفق صورة لرسائل الخطأ كاضعف الايمان

وعلى كل بامكانك متابعة هذا الموضوع .. حيث به مشكلة شبيهة بمشكلتك

رسالة اود التخلص منها لو سمحتم الصورة بالداخل

اما للربط بالكود والاستغناء عن ادوات الربط عموما

فقم اولا بتحميل Microsoft ActiveX Data Objects 2.x Library من الـ Preferences

وطبعا المقصود بالـ 2.x هو اي اصدار من مكتبة الـ ADO

ثم قم بتعريف متغير جديد من نوع ADODB.Connection في مديول

Public MYConnection As ADODB.Connection

والمقصود بالـ MYConnection هو اسم المتغير .. بإمكانك تغييره ان شئت

ثم اذهب للحدث الأول في المشروع اما الـ Sub Main أو الـ Form_Load لنموذجك الأول

وافتح في اوله الإتصال كما هو ادناه مع تغيير الـ db1.mdb بإسم قاعدة البيانات


Call MYConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb")
	Set MYConnection = New ADODB.Connection

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

ولا تنسى ان تغلق الإتصال في آخر إجراء يمر عليه برنامجك


Set MYConnection = Nothing
	Call MYConnection.Close

هذا بالنسبة للإتصال نفسه .. اما الـ Recordset فيتم تعريف المتغير اولا ثم يتم فتحه


Set MYRecordset = New ADODB.Recordset
Call MYRecordset.open("SELECT * FROM Table", MYConnection, adOpenStatic, adLockOptimistic)
	Dim MYRecordset As ADODB.Recordset

وبإمكانك تعريف المتغير في منطقة التصريحات مثلا وفتحه في اي مكان آخر ان شئت

المهم ان لا تنسى إغلاق الـ Recordset بعد الإنتهاء منه


set MYRecordset = Nothing
	Call MYRecordset.Close

واذا اردت ربط مثلا الـ Text1 بالـ Recordset السابق فعليك بتنفيذ الكود ادناه مع تغيير اللازم


Set Text1.DataSource = MYRecordset
	Text1.DataField = "Field1"

وطبعا الـ Field1 هو إسم الحقل المناسب للـ Text1

هذا كان ملخص للموضوع كله .. ولا داعي له من الاصل ان تتبعت الموضوع اعلاه

ويرجى في المرة القادمة رفع مثال بسيط (وليس المشروع) يحوي المشكلة لنراها ويكون الرد بشكل عملي

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#3

بيض الله وجهك يوم تسود الوجوه

ما اعرف كيف ارفع الملف بس اذا عندك ملف بسيط عملي اتمنى منك رفعه يكون صغير جدا يحوي ما ذكرت آنفا

ولك مني فائق التقدير والشكر الاثنين

#4

هل معنى ردك ان المشكلة لازالت قائمة ؟؟

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

ثم افتح المشروع واحذف منه الـ Controls المستخدمه الا واحد

واحذف كل الاكواد التي لا تخص هذا الـ Control ولنفرض مثلا انه TextBox

واكرر ان هذا في نسخه منفصلة تماما من المشروع الرئيسي وبكون عملية الحذف هذه بدراية وتركيز كامل

ثم قم بتجريب المشروع هذا في نفس الوضع الذي ظهر به الخطا في المرة السابقة

وحين ظهور المشكلة ارفعه لنا :D مع ذكر الخطوات التي مررت بها لتظهر لك المشكلة

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

ولكني متاكد انك لم تتبع الرابط سالف الذكر .. ارجو اتباعه اولا

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#5

هذا مثال بسيط وفقك الله لان البرنامج الاصلي حجمه كبير جدا فوق 20 ميجا

اريد هنا ان استغني عم الاداة adodc

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

اما بخصوص الرسائل فلا يظهر اي رسالة عند تشغيل البرنامج على جهاز آخر

سوى ان الحقول فارغة ولا يتصل بقاعدة البيانات وكان القاعدة فارغة

لك مني فائق الشكر والعرفان بالجميل

تحياتي للجميع

______________.rar

#6

وهذا ما طلبته :)

Adodc.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#7

بسم الله الرحمن الرحيم

اولا أسأل الله بأسمائه الحسنى وصفاته العلا ان يكتب لك حسنات بقدر نجوم السماء

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

واسمح لي فقط ان اعيد لك البرنامج لملاحظتين :

الاولى : عند نقله على الفلاش ميموري لجهازي المكتبي ظهرت رسالة الخطأ في الصورة المرفقه معه الان والتي آمل مشاهدتها واظنه يطلب مكتبه معينة

فاتوقع مع الحزم بالستب فاكتوري قد تنحل المشكلة

فارجو الافادة

ثانيا :

اضف - الله لا يهينك - امر التالي والسابق وادراج صورة كما في النموذج بحيث يكون الادراج من مجلد اسمه pic داخل المجلد الرئيسي للبرنامج

ودمت لي زندا احتاج اليك وقت الضروري

الف شكر لك

انتظرك . . .

تم تعديل هذه المشاركة بواسطة azoz100 في 13 مارس 2009 في 01:28

#8

احب الفت انتباهك واحذرك ان جهازك به Virus من نوع Win32.Sality

والمرفق ايضا مصاب .. يرجى حذف المرفق حتى لا يصيب اي من الاعضاء

وبالنسبة للإجابة على استفسارك فساجيب في المشاركة القادمة وبعد ان اتفحص المثال المرفق

ولكن وددت ان الحق الاخوة قبل تحميل المرفق :)

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#9

بخصوص رسالة الخطا فهي نقص في الملفات كما قلت انت من قبل

وبخصوص السابق والتالي فانظر المرفق

وبخصوص ادراج صورة تابع الموضوع ادناه

اضافة واستخراج الصور من خلال زر بحث

Adodc.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#10

الف الف الف الف شكر لك يا مبدع

وبيض الله وجهك فانت لها

ووالله اني استحي ان اكثر عليك الاسئلة

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

ولدي سؤال آخر دام وجدتك . .

هل هناك طريقة ليعمل البرنامج على جهاز آخر ليس عن طريق الكود بل عن طريق adodc بحث ادرج الاوامر مثل الحفظ والتراجع وجديد والسابق واللاحق . . . غيرهابالطريقة الاعتياديةمثال :

الجديد :

Adodc1.Recordset.AddNew

السابق:

Adodc1.Recordset.MovePrevious

وهكذا

لان كل برامجي بهذه الطريقة لكن لا يعمل البرنامج على جهاز آخر وربما باستخدام الكود يعمل وهذا لم اجربه بعد.

لان لغتي الانجليزية محدودة جدا

فإن كان هناك طريقة يعمل بها البرنامج بالطريقة التي ذكرتها الان فكيف ؟

وعموما لك جزيل الشكر وعظيم التقدير

تم تعديل هذه المشاركة بواسطة azoz100 في 13 مارس 2009 في 02:46

#11

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

تفصل وضعت لك خاصية البحث بالاسم

ونفس الفكرة طبقها على الرقم فقط غير اسم عمود الاسم من name إلى اسم عمود الرقم

لا تنسنا من دعاءك

Adodc.rar

فاعلم أنه لا إله إلا الله

#12

اسأل الله في هذا اليوم الجمعه المباركة أن يوفقك دنيا وآخره وأن يغفر لك ولوالديك

كما اسأله تعالى أن يحقق لك ما تتنمنى

ولا أنسى الاخوان الذين تعاونوا معي ولكم جميعا فائق الشكر والتقدير

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

والحين وقد وجدتكم فلله الحمد سأبدع - بحوله وقوته- وسافرغ طاقاتي وعلى أيديكم فلكم مني عظيم الشكر وجزيل الامتنان.

تم تعديل هذه المشاركة بواسطة azoz100 في 13 مارس 2009 في 10:32

#13

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

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

وتم ايضا وضع طريقة مختلفة للبحث الذي وضعه السندباد علما بان طريقته صحيحة :)

ولكني اردت ان يكون المثال مرتبط ببعضه ومتوافق وتفصيلي بشكل اكبر حتى يكون مرجعا لك

وايضا ليكون قياسي لي واجيب به على الأسالة الشبيهة ان تسمح لي :)

وتم اضافة القليل من الإجرائات وتم ايضا تغيير رسمة الـ Form وتصغيره بما يتوافق معي :)

كما ستجد مجلد يحمل إسم Related وبه ملفات الـ Setup لهذا المثال ومعها ملف bat صغير يقوم بعملية الـ Setup هذه

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#14

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

والف الف الف الف الف الف مليون شكر لك وللاخ السندباد

ودمتم احبة غالين

ولكن العفو هل نسيت الملف المرفق الذي ذكرت يا غالي لي لأني لم اجد شي بالمرفقات

دمت بحال طيب

تم تعديل هذه المشاركة بواسطة azoz100 في 13 مارس 2009 في 19:49

#15

:eek:

Adodc.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#16

سلمت الانامل وعسانا ما نعدمك

إبداع لاحدود له

اهنيك من الاعماق على ما وصلت اليه من العلم

نفع الله بك الجميع وحقق لك في دنياك ما تصبو اليه ورحم الله والديك وغفر لك ولهم

وأجزل لك بليغ الثواب

مشواري طويل حتى أصل لما وصلت اليه ولكني سأكافح بكل ما أوتيت من قوة

تحياااااتي

تم تعديل هذه المشاركة بواسطة azoz100 في 13 مارس 2009 في 21:44

#17
mrx_ta7ady كتب:

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

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

وتم ايضا وضع طريقة مختلفة للبحث الذي وضعه السندباد علما بان طريقته صحيحة :)

ولكني اردت ان يكون المثال مرتبط ببعضه ومتوافق وتفصيلي بشكل اكبر حتى يكون مرجعا لك

وايضا ليكون قياسي لي واجيب به على الأسالة الشبيهة ان تسمح لي :)

وتم اضافة القليل من الإجرائات وتم ايضا تغيير رسمة الـ Form وتصغيره بما يتوافق معي :)

كما ستجد مجلد يحمل إسم Related وبه ملفات الـ Setup لهذا المثال ومعها ملف bat صغير يقوم بعملية الـ Setup هذه

ما شاء الله عليك

عمل مميز للغاية جزاك الله الجنة

لي ملاحظة واحدة:

لقد قمت بتحديد اسم قاعدة الآدو هكذا

C:\Adodc 3\Adodc\test.mdb

عرفت ذلك ع طريق الضغط عليها بالزر الأيمن والذهاب لخصائص ومن ثم build

ولو أنك تركته هكذا أليس أفضل

test.mdb

وهذا يسمح بوضعها في أي مكان

لأنها بالشكل السابق تخرج رسالة خطأ إذا وضعت في مكان آخر

فاعلم أنه لا إله إلا الله

#18

نعم .. جزاك الله خيرا على التنبيه الهام .. من الاصل يجب ان لا يتم الاتصال في الـ Design

لكني وضعت هذا الاتصال للحصول على اسماء الحقول بسهولة ونسيت الغيه :S

على العموم مرفق المثال بعد حذف الاتصال من خلال الـ Design .. وشكرا مره ثانية :)

Adodc.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#19

اخي السندباد الف شكر لك على متابعتك وملاحظاتك

تقريبا سبب الخطأ فعلا من تحديد المسار كاملا

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

الشكر موصولا مجددا لاخينا المبدع وفقكم الله جميعا

اخي العزيز mrx_ta7ady

ما الغرض من ملف الستب الذي بعثته مع المرفق اللي ارسلت

آمل سرعة الاجابة وجزاك الله الف الف الف خير

تم تعديل هذه المشاركة بواسطة azoz100 في 13 مارس 2009 في 23:11

#20

ملف الـ Setub.bat هو المسؤال عن وضع الملفات المجاورة في اماكنها السليم

حتى يعمل المثال على جهاز غير منصب عليه الـ Visual Basic

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#21

مساء الأنوار

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

ام هي ضرورية وماهي اهميتها

وفقك الله

#22

تقصد ايه بالوحدة النمطية ؟؟

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#23

العفو حبيبي

انا لمن حملته على الميموري فلاش ونقلته قبل قليل لجهاز آخر مكتبي لم تظهر البيانات في الحقول بالرغم اني نقلت البرنامج كاملا ثم عملت ستب وظهرت شاشة الدوس واكتمل التحميل واشتغل البرنامج مئة بالمئة بس بيانات ما ظهر شي

ياترى هل فيه خطأ ارتكبته انا ارجو الافادة

وهذه هي المشكلة الاساسية اللي اعاني منها

دمتم بخير اخي العزيز

اقصد الموديوال

تم تعديل هذه المشاركة بواسطة azoz100 في 13 مارس 2009 في 23:26

#24

تقصد ان البرنامج فتح معاك عادي جدا بدون اي رسائل ؟؟

وقاعدة البيانات بها سجلات ولكن لم يظهر منها ولا سجل ؟؟

هل السجلات لم تظهر في الـ Grid فقط ام في الحقول ايضا ؟؟

هل متاكد ان النسخه المنقولة تعمل بنجاح على جهازك الحالي ؟؟

هل قمت بتثبيت الـ Visual Basic 6 RunTime Files ام اكتفيت بالـ Setup المرفق ؟؟

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

http://support.microsoft.com/kb/192461

وبخصوص الـ Module فبه بعض الاجرائات الهامة والمستخدمه في المشروع ذاته

واهميتها انها تجعل الإجرائات الموجوده بداخله Standard على المشروع بأكمله دون ان تكون حكرا على الـ FrmMain

اي يمكنك استخدام الاجرائات نفسها مع أي Form آخر او اي Class عموما دون اعادتها مرة اخرى

تم تعديل هذه المشاركة بواسطة mrx_ta7ady في 13 مارس 2009 في 23:44

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#25

مساء الخير على الجميع

أخي العزيز وفقك الله

حملت الملف الذي ذكرته في ردك ولكن لا زالت المشكلة موجودة

اي ان المشروع يعمل على الجهاز المركب عليه الفيجوال بيسك بينما على جهاز آخر لا يعمل

بالنسبة للبيانات لم تظهر في الحقول ولا الجرايد Grid مطلقا

البرنامج خال من رسائل الخطأ تماما

اتمنى أن تجرب البرنامج انت على جهاز غير محمل عليه الفيجوال ثم شخص المشكلة ووافني بحل جذري

فهذه هي المشكلة التي داهمتني من سنين

لك مني اجزل الشكر والتقدير وكافة المبدعين معاك والزوار في هذا الصرح الفريد.

تم تعديل هذه المشاركة بواسطة azoz100 في 14 مارس 2009 في 16:38

مواضيع مشابهة