أين المحترفين من هذا السؤال ؟؟؟؟؟!

#19 يناير 2005 في 13:31 صاحب الموضوع

السلام عليكم إخواني الكرام

عندي سؤال حيرني كثيييييييييييييييييير

وهو كالتالي

عندي قاعده بيانات في ها بيانات مختلفة وأحد الحقول ولنفرض إسمه t1

يحتوي على الحقول التالية

shadi/samer

ali/sajed

samer/sam

jordan/ksa

وعندي في الفورم في الفيجوال بيسك تكست

اريد أنه عندما أكتب فيها على سبيل المثال الحرف s

يعطيني جميع الحقول التي تحتوي بعد الإشارة / على حرف s

يعني يرجع لي

samer

sajed

ويكون الناتج في listbox

وإذا كتبت sam

يرجع لي فقط samer

أرجو أن يكون سؤالي واضح وأرجو أن يكون الحل سريييييييييييييع جدا لحاجتي الماسة له

ولكم مني جزيل الشكر مقدما

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#29 يناير 2005 في 13:50

من مكتبة الاكواد القديمه لدى

searchbyfirstletter.rar

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#310 يناير 2005 في 08:49

يعطيك ألف عافية أخوي طارق إبراهيم ماقصرت

الكود رائع بارك الله فيك

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#410 يناير 2005 في 09:04

أخي طارق

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

هل بالإمكان توضيحه لي

أو إذا تكرمت بتحويله لبحث بقاعدة بيانات من خلال الإدخال في تكست بوكس

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

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#510 يناير 2005 في 11:46

UP

Pleeeeeeeeeeez

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#610 يناير 2005 في 13:00

-09

الاخ العزيز

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

Dim g1 As String
g1 = Textbox2.Text
Adodc1.RecordSource = "select * from vb4arab where vbforum  like '%" + g1 + "%'"

و ارجوا ان يكون هذا هو

وشكرا

ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق

خبرى 6 سنوات فى فيجوال بيزك 6و ASP

#711 يناير 2005 في 16:34

أخي الكريم

الكود رائع لكن للأسف لم أستطيع تطويعه للعمل كما اريد

مشكلتي هي

أني اريد أن أكتب إشارة "/" في التكست بوكس ثم عند الضغط على كوماند يعطيني في

ليست بوكس جميع الأسماء التي تأتي بعد هذه الإشاره

مثال

قاعدة البيانات تحتوي على البيانات التالية

shadi/samer

ali/ahmed

khalel/jaber

jalal/fadi

kmal/fares

وعندما أكتب في التكست بوكس "/" يعطيني في الليست بوكس

samer

ahmed

jaber

fadi

fares

وعندما اكتب حرف ال f يعطيني في الليست بوكس

fadi

fares

وعندما أكتب الأحرف التالية fad يعطيني

fadi

يعني البحث سوف يبدأ دائما بعد إشاره "/" يعني كل ما يأتي قبلها نتجاهله

أرجو ان اكون قد أوضحت في طلبي وان لا أكون أزعجتك أخوي

سلامي لك

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#811 يناير 2005 في 18:51

-09

الاخ العزيز

الكود السابق سوف ينفعك فى الاتى :

اقتباس
وعندما اكتب حرف ال f يعطيني في الليست بوكس
fadi
fares
وعندما أكتب الأحرف التالية fad يعطيني
fadi

اما موضوع الــ " \ " فهذا ::

1- اما ان تقم (( بتطهير ) ) المدخل اى ان تقوم من خلال المكتوب فى الــ text

بأخز ما هو بعد ال علامة " / " و تضعة فى الاستعلام

اعتقد ان احسن طريقة هى ان تعتمد على الــ asscii و لمعرفة رقم الخاص بالاشارة " / " و بعد ان تجدها تقوم بنقل ما هو وارد

ملحوظة ::

يمكنك ان تبحث عن كود يقوم بالبحث داخل الـ text و انا سوف احاول لنة ليس عندى

حاول و الله الموفق

ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق

خبرى 6 سنوات فى فيجوال بيزك 6و ASP

#912 يناير 2005 في 08:20

أخي codefinder مشكور على مجهودك

وإن شاء الله سوف أحاول

والله الموفق

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#1012 يناير 2005 في 14:39

ابحث علي newgoogle.cjb.net وراح تنبسط ان شاء الله

حيث أن طريقة البحث فيه عملية جدا جدا

1-خلي الموقع يفتح كليا

2-فقط اكتب كلمة البحث ولنتظر قليلا

3-راح تدعيلي

::::التوقيع::::

موقع ممتاز

وان شاء الله يفيد الجميع

وشكرا

؟؟لماذا لا يصل الايميل المرسل من صفحتي الي الهوتميل؟؟

مستوي الجدية في المواضيع المطروحة

لا اله الا الله محمد رسول الله

#1113 يناير 2005 في 10:28

أخي الكريم لم أفهم قصدك

مافائدة الموقع بسؤالي

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#1213 يناير 2005 في 10:30

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

أخى العزيز

إليك الأدوات وعليك استخدامها

ستحتاج إلى هذه الدوال لتقوم بذلك

الدالة (Instr) لتحصل على موقع الـ / فى الجملة

الدالة (Len) لتحصل على طول الجملة

الدالة (Mid) لتحصل على الكلمة التى تبدأ بهذا الموقع حتى طول الجملة

مثلا

List1.AddItem  Mid(Rs!MyField,(Instr(Rs!MyField,"/")),Len(Rs!MyField))

هذا يعطيك ما بعد هذا الحرف حتى نهاية الجملة

وإذا كنت تريدها بدون مسافات قبلها وبعده استخدم الدالة Trim قبل الجملة التى تريد حذف المسافات السبقة واللاحقة لها

أرجو أن يكون هذا عونا لك فى حل مشكلتك

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#1313 يناير 2005 في 10:59

أخي الكريم abulyaman يعطيك الف عافية على مشاركتك الرائعه

لكن أين يتم المقارنة بين الحرف الذي أكتبه داخل ال text والحقل بالداتابيز

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

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#1413 يناير 2005 في 11:30

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

أخى أمير البحار

لقد قلت لك أنى أعطيك الأدوات وعليك استخدامها، صح؟

ولكن كان سبب هذه المقولة أنى بالفعل لا أدرى ما هى مشكلتك بالضبط

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

لأن الأفكار كثيرة وأنت تطوعها على حسب رغبتك

ولكن من خلال قراءتى للمشاركة الأولى

اقتباس
وعندما أكتب في التكست بوكس "/" يعطيني في الليست بوكس
samer
ahmed
jaber
fadi
fares
وعندما اكتب حرف ال f يعطيني في الليست بوكس
fadi
fares

أعطيك توضيحات أيضا

أولا بعد كتابتك فى التكست تعمل استعلام على هذا الحقل ليكون فيه محتويات الحقل

ٍٍٍٍٍٍٍٍض
Sql="Select Distinct MyField From MyTable Where MyField Like'*/*' Order By MyField Asc"
'Load the Part of the name with the Code Mentioned Before
Dim Rs as ADODB.RecordSet
Set Rs=New ADODB.RecordSet
Rs.Open SQL,MyConnection,3,3
If Rs.RecordCount>0 then
For R=0 to Rs.RecordCount -1
Combo1.AddItem Trim(Mid(Rs!MyField,Instr(Rs!MyField,"/")+1,Len(Rs!MyField)))
Rs.MoveNext
Next R
End If

طبعا واضح أن الكود لم أختبره فتصرف مع الأخطاء الغير مقصوده

ويمكنك أن تستبدل "/" بمحتويات التيكست بوكس لو كان هذا غرضك

ومازلت لا أدرى هل هذا ما تريد أم شئ مختلف

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#1513 يناير 2005 في 12:56

أخي الكريم abulyaman

مشكور على جهدك لحل المشكلة

وإن شاء الله بجرب حلك وأحاول تطويعه للعمل حسب متطلبات برنامجي

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

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

أين المحترفين من هذا السؤال ؟؟؟؟؟!

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