دخول

***أبو عمر*** · 23-11-13, 12:44 AM

يفضل في عملية البحث أن تضع فورم جديد
لماذا؟
لانك بعملية البحث ستقطع الاتصال بالجدول وتعيد الاتصال به من جديد
مثلا

PHP كود :
Rs.open "Table1",db,1,3 

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

PHP كود :
if Rs.state =1 then Rs.close
Rs.open "Select * from Table1 where number like '" & text1.text & "'",db,1,3 

كما تلاحظ قطعنا الاتصال واعدناه بشرط البحث أو الاستعلام في الارقام استخدمنا text1
لاستبدال text1 ب inputbox تقوم بتعريف كائن نصي مثلا

PHP كود :
Dim mytext As String
mytext = InputBox("يجب ان يكون المدخل رقما", "بحث", "اكتب الرقم هنا")
[/php] 

[/code]
ونستبدل text1 ب mytext
سأرى مثالك وأحاول التعديل عليه إن شاء الله

**hhmm6** · 23-11-13, 01:04 AM

اشكر الاخ asto على تعبه ومجهوده معى
كما اشكر Lion_Ksa على الرد
قابلنى مشكله اخرى عند تحميل البرنامج على اكثر من جهاز لم يعمل
رغم انى عملت تحزيم للبرنامج بأستخدام برنامج Smart Install Maker
رجاء المساعده حتى يعمل على الاجهزه الاخرى
اليكم البرنامج بعد التعديل لاكن لم اعدل الترتيب التلقائى
http://www.ot2.com/download/16163/hh.rar.html

***أبو عمر*** · 23-11-13, 01:25 AM

صبرك دقايق بس الله يخليك
مشكلتك في اتصال قاعدة البيانات ب data1
هناك بدائل اخرى افضل منها بكثير ستراها في المثال
جاري التعديل على مثالك أخي فلا تقلق

**asto** · 23-11-13, 02:30 AM

استعمل Package & Deployment Wizard الذي ياتي مع الفيجوال بيسك و تجده في قائمة ابدأ ثم البرامج ثم Microsoft Visual Basic 6.0 ثم Microsoft Visual Basic 6.0 Tools

و اكتب في الفورم لود

كود :
Data1.DatabaseName = App.Path & "\اسم ملف القاعدة.MDB"

ثم اعد انشاء الملف التنفيذي (البرنامج)

***أبو عمر*** · 23-11-13, 02:50 AM

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

**hhmm6** · 23-11-13, 02:57 AM

بتجربه البرنامج لم يعمل

***أبو عمر*** · 23-11-13, 03:04 AM

اخي بارك الله فيك
فك الضغط عن الملفات كلها ولا تقم بفتح الفورم مباشرة من الملف المضغوط
يتوجب عليك فتح ملف المشروع المسمى Project1.vbp

**hhmm6** · 23-11-13, 03:15 AM

(23-11-13, 03:04 AM)Lion_Ksa كتب : اخي بارك الله فيك
فك الضغط عن الملفات كلها ولا تقم بفتح الفورم مباشرة من الملف المضغوط
يتوجب عليك فتح ملف المشروع المسمى Project1.vbp

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

***أبو عمر*** · 23-11-13, 03:34 AM

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

**hhmm6** · 23-11-13, 03:40 AM

(23-11-13, 03:34 AM)Lion_Ksa كتب : لو تشوف الكود راح تلاقيه يبحث في الحقلين مع بعض
يعني ممكن تكتب رقم أو طرف

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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[كود] ارجو تصحيح الجملة التالية	hsab	3	89	18-05-26, 04:15 AM آخر رد: محمدين
	خطأ في تشغيل برنامج علي جهاز اخره	ahmed250	1	415	24-04-25, 01:00 AM آخر رد: Taha Okla
	[vb6.0] عندي مشكلة في تثبيت برنامج علي جهاز اخره	ahmed.amayouf.anweeji	0	339	11-04-25, 04:59 PM آخر رد: ahmed.amayouf.anweeji
	[vb6.0] كيف احفظ الخيارات التي في القائمة في قاعدة البيانات نامل المساعدة في المثال المرفق ؟	Microformt	1	506	29-11-24, 04:05 AM آخر رد: justforit
	إليكم رابط تحميل برنامج منبه الصلاة \| Prayer Alarm	mmaalmesry	0	321	19-11-24, 04:58 PM آخر رد: mmaalmesry
	السلام عليكم ورحمة الله وبركاتة ارجو المساعدو احبابي بخصوص مكتب TWAIN	mhareek	1	394	13-11-24, 12:05 AM آخر رد: السيد الغالي
	برنامج فيجوال بيسك 6 لا يعمل عن تشغيله في غير حاسبة	lionhurt1978	4	686	02-09-24, 08:17 PM آخر رد: lionhurt1978
	مشكلة في تشغيل برنامج علي جهاز اخره	ahmed3317	1	526	10-05-24, 10:34 PM آخر رد: Taha Okla
	[سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه	aboezzat84	3	3,435	21-04-24, 04:12 PM آخر رد: qqqqqqq
	[سؤال] برنامج تنبيه صوتي ويندوز 10	aboezzat84	0	438	07-01-24, 06:46 PM آخر رد: aboezzat84