المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الى خبراء الفيجوال


al@in_888
07-02-2002, 04:38 AM
عندي سوئالين
الاول

يا خواني عملت داتا بيس صغيره على الاكسيس وربطها بالفيجوال بيسك, و اريد الكود لعمل زر بحث في الداتا بيس عن كلمه معينه .... ساعدوني بليــــــــــــــــــــــــــــــــــــــــــــــــــــــــز

الثاني

يا اخواني عندي ويندوز اكس بي, نزلت عليه الفيجوال استديو 6, نزل بس مازل كامل, عملتله ري انستول نفس القصه ما نزل كامل, يعني بعض الاولمر ماتشتغل مثل الفيجوال داتا منجر, الي عنده حل لمشكلتيه الرجاء المساعده..........
omkosite
07-02-2002, 08:18 PM
بقولوا أنه ويندوز
بس طلع مو ويندوز
أحسن كمبيوتر هو اللي عليه ويندوز 98 و 2000
إنسي لا أختي الويندوز XP
وشكرا


عمر القنصل
omko.8m.com
القلم
09-02-2002, 06:08 PM
أختي..بالنسبة للموضوع الأول...أنا عندي الكود اللي طلبتيه لكن ضعيف في عملية البحث
إذا كنتي مصممه أعطيتك اياه:)
-----------------------------------
بالنسبة للثاني ففعلاً وندوز لايدعم الكثير من البرامج لذلك أنصحك بالترقية إلى VB.net7 وشكراً...........

أحوكم
القلم
ستوديو
15-02-2002, 01:04 PM
سؤال جميل وبداية مهمة لأن عمليات البحث داخل قواعد البيانات من أهم العمليات التي تتم على قواعد البيانات

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

1- البحث باستخدام دالة Find

لابد أولا أن يكون هناك مفتاح للسجلات أي أن لكل سجل رمز أو رقم معين يختلف عن الآخر.
لنفترض أننا صنعنا حقل داخل قاعدة البيانات واسميناه Num ليتم تخزين الرقم المميز لهذا السجل.
ومربع النص txtNo هو المربع الذي سنضع فيه معيار البحث أو الرقم الذي نريد استرجاعه.
بعدها نصنع زر البحث ونضع الكود التالي في الحدث Click.



dim txt 'نعرف متغيرين ليتم حفظ البيانات إليها
dim Fei

txt = txtNo.Text
Fei = "[Num] like'"

data1.recordset.findfirst (fie & txt & "'")
if data1.recordset.nomatch then
msgbox "لا يوجد سجل يحتوي على هذا الرقم"
end if

=============

2- البحث بواسطة SQL
(بالافتراضات السابقة)



dim MySql
MySql = "select * from Table where txtNo = Num"
data1.recorsource = MySql
data1.refresh

===========================================================

يا أخ omkosite من الذي يقول ان الوندوز اكس بي ليس وندوز.

على ماذا اعتمدت؟؟ أم ماهو دليلك.

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

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

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

وأرجو أن تستند إلى حقائق لطرح مقالاتك وأن تكون على علم كافي.
===========================================================
omkosite
16-02-2002, 08:23 PM
هل تعرف أنني أستخدم نظام الويندوز إكس بي
وأنزلت عليه VB6
بس مع إنه قوي ولكنه يحتوي على مشاكل عدة خفية أسفل قوته العظيمة
عشان هيك في ناس كثير بتشتكي منه
بس أنا ما قدرت أرجع لأي ويندوز سابق بعد ما جربته
منقرع
21-06-2007, 10:28 PM
السلام عليكم ...
كلااااااااااااااااااااام فاضي...
والسلام عليكم