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

مساعدة فى وضع كود بحث

مغلق
بدأه basel2000 في 25 يوليو 2005 · 20 رد · 1,521 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

وضعة ------ أول طلب

الطلب الثانى ------ عندما أقوم بإضافة جديدة عندالضغط على زر حفظ يحفظ الأسم فقط لمازا وأرجو أن

تساعدونى فى حل المشكلتين

بخصوص الطلب الأول

البحث يكون بإدخال الإسم فى text أو فى InputBox

وشكراً ولكل من يساعدنى فى الموضوع هدية بخصوص الفيجوال بيسك

Help TRIAL.rar

#2

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

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

gaza3-3.jpg
#3

اخوك محترف

ضع الكود التالي بالتكست

وهو افضل بحث

بحث سريع جدا

On Error Resume Next
Data1.Recordset.AddNew
For i = 0 To Data1.Recordset.RecordCount - 1
Data1.Refresh 'للتحديث
Data1.Recordset.Move (i)
If Left(Data1.Recordset("NameStudent"), Len(Text7)) = Text7 Then
Exit For
End If
Next i

منتدى المحيط العربي منتدى المبدعين

---- pwned ----

للمراسله :

plantsman9009@hotmail.com

rofessionalvbsing.gif

#4

شكراً أخى Professional VB9

بس أنا مش فاهم فلوسمحت أرجوك أن تضع الأكواد وتصلح الأخطاء بالمشروع وتضعة مرة أخرى بالمرفقات أو ترسلة لى على الأيميل leader_basel@hotmail.com

أرجو المساعدة

وأنا لسة عند وعدى بالنسبة للهدية

#5

شكراً للمنتدى كلة كنت أتمنى أفضل من ذلك أكثر من 54 ألف عضو فى المنتدى لايرد على سوى أثنان ولم أطلع برد يفيدنى

أرجو الرد هل سيساعدنى أحد أم لا :(

#6

أخي الحبيب ها هو المشروع بعد تعديله و اوعي تزعل من حد من الاعضاء، محدش يعرف ظروف الناس ايه، المشروع عدلته بحيث يعمل الا انه يحتاج الكثير من العمل، و ان شاء الله ربنا يوفقك

أخوك احمد شلبي DB Systems Developer

Help TRIAL.rar

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#8

شكراً أخى أحمد شلبى على مجهودك الرائع فالبحث أشتغل 100 %

وشكراً أيضاً أخىProfessional VB9

هازى هديتى

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

هزة بعض المشاريع وسوف أضع ملف pdf فى المشاركة الثانية

برنامج قاعدة بيانات.rar

برنامج دليل التليفون.rar

آله حاسبه مصغره.rar

#9

لابد من فك ضغط الملفات فى مجلد واحد

vbasic.part1.rar

#10
romantic_boy كتب:
أخي الحبيب ها هو المشروع بعد تعديله و اوعي تزعل من حد من الاعضاء، محدش يعرف ظروف الناس ايه، المشروع عدلته بحيث يعمل الا انه يحتاج الكثير من العمل، و ان شاء الله ربنا يوفقك

                              أخوك احمد شلبي DB Systems Developer

-----------------------------------------------------------------------------------------------

خي العزيز / احمد شلبي

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

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

salem_atheb.zip

#11

أخوتى أرجو المساعدة أكود اشتغل 100% بس نسختة ووضعتة فى مشروع أخر مشتغلش لية أرجو الأهتمام والمساعدة

هاهو الكود

()CODE]Private Sub Command1_Click]

Dim x As String

(x = Trim$(Text1

' هنا يبحث في حقل ال name

"'"& Data1.Recordset.FindFirst "name = '" & x

("لا يوجد نتائج للبحث!")If Data1.Recordset.NoMatch Then MsgBox

End Sub

السطر دة الى فية الخطأ

"'"& Data1.Recordset.FindFirst "name = '" & x

ورسالة الخطأ فى المرفقات

post-53396-1122405216_thumb.jpg

تم تعديل هذه المشاركة بواسطة basel2000 في 26 يوليو 2005 في 22:21

#13

أرجو الرد بسرعة

#14

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

Dim x As String

x = InputBox("من فضلك ادخل الاسم", "بحث بالاسم")

If x = Cance1 Then Exit Sub

Data1.RecordSource = "select * from tabel1 where name like '*" & x & "*'"

Data1.Refresh

#15

أرجو الرد ولا مفيش مساعدة

بقالى يومين مستنى

#16
basel2000 كتب:
أرجو الرد ولا مفيش مساعدة

بقالى يومين مستنى

----------------------------------------------------------------------------------------------- اخوي العزيز شكرا لك على المساعده

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

والله يحفظكم ويرعاكم :rolleyes:

salem_atheb.zip

#18

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

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#19
romantic_boy كتب:
أخي الحبيب قلت لك قبل ذلك لا تسمي الحقول بأسماء عربية انت مسميها بأسماء عربية و كمان مسافات، لو غيرت تصميم القاعدة و جعلت الحقول أسماء انجليزية ان شاء الله كل شيء سيسير علي ما يرام .. أخوك أحمد شلبي

-----------------------------------------------------------------------------------------

اخي الحبيب

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

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

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

salem_atheb11.zip

#20
اقتباس
اريد برامجة عداد السجلات انظر الى البرنامج المرفق وسوف تعرف ما اقصد

أرجوا التوضيح لا أفهم ما تقصده

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#21
romantic_boy كتب:
أرجوا التوضيح لا أفهم ما تقصده

--------------------------------------------------------------------------------------------

اخوي العزير

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

post-54871-1122642998_thumb.gif

salem_atheb11.zip

هذا الموضوع مغلق.

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