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

سؤالين بحاجة لجواب ...

بدأه ورد المسا في 5 مايو 2009 · 4 رد · 593 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني عندي سؤالين ...

وان شاء الله راح احصل الحل عندكم ...

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

مثلا ... بضغطة زر ... انفذ أمر ipconfig /all ...

الثاني ... عندي قاعدة بيانات ... ومحتاج اني اعمل تقرير يظهر لي مجموع المبالغ المدخلة في حسب عدة بنوك (كل بنك على حده) ... فــ قمت بعمل استعلام انشاء جدولي ...

ونجت الطريقة بـ أن يعمل عرض لمجموع ايرادات البنوك ...

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

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

أو حل بديل...؟؟؟

ولكم جزيل الشكر ....

#2

بالنسبة للسؤال الأول:

اكتب التالي:

Shell "command.com /c e:",vbHide

فهنا ننفذ أمراً وهو الانتقال إلى السواقة E: وباستخدام المعامل /c ما إن ينهي البرنامج عمله حتى يطفئ، ووضعنا vbHide لكي لا يظهر البرنامج أثناء عمله.

بالتوفيق

هذه الجملة خاطئة  :wacko: 


#3

تسلم اخوي ....

بس للاسف ما نفع ..

.....

اتمنى تساعدوني ...

ولكم جزبل الشكر ..

#4

وينكم ...

ارجوكم اريد مساعدتكم ..

#5

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

ردا على السؤال الأول .. فإستبدل الـ Command.com بـ cmd.exe بالنسبة للـ XP او دعها كلهما واحد تقريبا

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

اذا لتنفيذ الأمر ( ipconfig /all ) .. سيكون باي من الأمرين

	Call Shell("command.com /c ipconfig /all", vbHide)

	Call Shell("cmd.exe /c ipconfig /all", vbHide)

والـ vbHide هي لإخفاء نافذة الدوس اثناء التشغيل

بإمكانك استبدالها بـ vbNormalFocus لفتح النافذة ظاهرة بشكل طبيعي

وبإمكانك إستبدال المعامل C بالمعامل K لعدم إغلاق نافذة الدوس بعد تنفيذ الأمر .. ليصبح هكذا مثلا

	Call Shell("command.com /k ipconfig /all", vbNormalFocus)

	Call Shell("cmd.exe /k ipconfig /all", vbNormalFocus)

اما السؤال الثاني .. فيهيالي ان ما فهمته خطا والله اعلم

في المرفقات مثال بسيط ردا على سؤالك كما فهمته انا

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

Run_Query.rar

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

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

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