جست و جو در دیتا بیس

[سونامی]

من یه بانک اطلاعاتی دارم که حدود 10000 اسم تو اون هست حالا می خوام یه سرچ باکس درست کنم تا اگر یکی از اسم هایی که در تکست باکس جست و جو مطابق با یکی از نام های فیلد بانک اطلاعاتی بود تمام مشخصات فرد رو نشون بده.

از متد های find first..... نمیشه استفاده کرد چون در حالت زیر

" 'مقدار جست وجو ' = " نام فیلد " data1.recordset.d finfirst


اگر مقار جست و جو تکست باکس جست و جو باشه به مشکل میخوره و فیلد مورد نظر رو پیدا نمی کنه

[MrGee]

Video Rental System using ADO

This is a program that uses the ADODB connections to link to an Access database. All connections are created/opened at runtime. Security,passwords,usernames are in Database. Users are in two user groups. Uses SQL statements such as INsert, SElect etc. Links to website uses MDI form and Child Forms. Toolbar with Image list. Status bar that displays a random message. Data Reports using Datareport control. Class Module Example. ISnumeric validation. Search facility for searching the database. examples of using the List View Control


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[MrGee]

PC PART INVENTORY

Good for beginners who want to learn database. I include simple code in searching,add,edit,delete,print in the system. It has good GUI.JUST TRY!!!


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[سونامی]

دوست عزیز اصلا متوجه نشدم .یکم بیشتر توضیح بده انگلیسی ما مثل شما خوب نیست :دی

[MrGee]

این برنامه ها با دیتابیس کار می کنن و در ضمن قسمتی هم برای جست و جو دارند
یعنی شما می تونید اونها رو داونلود کنید بعد قسمت مربوط به جست و جو رو پیدا کنید
و اون رو تو برنامه خودتون استفاده کنید.

[farshidshd]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

print 2 رو فراخوانی میکنه که اونجا اون عناصر دیتا تعریف میشن ::


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

این کدا رو من واسه برنامه خودم نوشتم
اگه جایی مشکل داشتی بپرس

[سونامی]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

print 2 رو فراخوانی میکنه که اونجا اون عناصر دیتا تعریف میشن ::


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

این کدا رو من واسه برنامه خودم نوشتم
اگه جایی مشکل داشتی بپرس

شرمنده میتوی بیشتر توضیح بدی

[farshidshd]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ببین
خط 1 که تعریف میکنیم s رو از نوع استرینگ
خط شماره 2 اون دیتا بیسی که تو هاردت هست رو باز میکنی ( دیتا بیس من تو آدرس E:\Program Files\Microsoft Visual Studio\VB98Project\PhonBook\MainBank.mdb هست ) تو باید این قسمت رو آدرس محل دیتا بیس خودت بنویسی

خط شماره 3 table مربوطه رو باز میکنه

خط شماره 4 یه جعبه متن باز میکنه میگه فامیلی مورد جستجو رو وارد کن

خط 5 و 6 میگرده دنبال فامیلی مورد نظر

خط 7 میگه اگه پیدا نشد

خط 8 یه msgbox باز میکنه و پیغام میده که پیدا نکرد

خط 9 میگه اگه پیدا کرد ( وگرنه )
خط 10 تابع print2(rs) رو فراخوانی میکنه
خط 11 هم دیتا بیس رو میبنده

حالا print2(rs) چیه؟؟



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

خط 1 و 9 که میدونی چیه... (دستورات رو بین اینا مینویسیم )

خط 2 اگه فرمی جدا بخوای نمایش بدی نتایج جستجو رو شماره فرم رو مینویسی ( اینجا نتایج جستجو تو فرم 4 نمایش داده میشه )

خط 3 تو فرم 4 عناصری که بعد از جست جو نمایش داده میشن رو باید درج کنی ( مثلا من اینجا "نام و فامیلی و شماره موبایل و شماره منزل و آدرس و شماره ردیف رو میخوام نمایش بده واسم که برای همشون تکست باکس در نظر گرفتم ) خط 3 میگه تکست 1 از فرم 4 رو فیلد نام قرار بده ( در نتیجه ی جستجو نام رو نمایش میده )

خط 4 میگه تکست 2 از فرم 4 رو فامیلی قرار بده

و همینطور تا خط 8





بازم اگه مشکلی بود بپرس

[سونامی]

به مشکل خوردم . اولین دستوراتتو رو دگمه جست و جو گذاشتم ولی سری دوم کد رو نمیدونم کجا باید بنویسی :دی

[farshidshd]

به مشکل خوردم . اولین دستوراتتو رو دگمه جست و جو گذاشتم ولی سری دوم کد رو نمیدونم کجا باید بنویسی :دی

آخر از همه بنویس
فرقی نمیکنه کجا باشه
فقط حتما باید با private Sub شروع بشه و آخرش هم end sub باشه

این یادت باشه که اگه میخوای وسط دستورات بنویسی باید بعد از End Sub دستور قبلی بنویسی

[سونامی]

آخر از همه بنویس
فرقی نمیکنه کجا باشه
فقط حتما باید با private Sub شروع بشه و آخرش هم end sub باشه

این یادت باشه که اگه میخوای وسط دستورات بنویسی باید بعد از End Sub دستور قبلی بنویسی

این کارو کردم از خطی که نوشتی rs.FindFirst s ایراد میگیره

[سونامی]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اینم از ائن یکی همون طور که گفتم ارور میده از قسمته .......


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[farshidshd]

خب عناصر توی دیتا بیس چی داری؟؟

اولا باید همشونو ربط بدی به هم
اینا رو که میدونی

[سونامی]

خب عناصر توی دیتا بیس چی داری؟؟

اولا باید همشونو ربط بدی به هم
اینا رو که میدونیبله همه رو به هم ربط دادم

[سونامی]

دوست عزیز یه سورس پیدا کردم ولی مشکل میخورم

[سونامی]

این اون سورس هست
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[farshidshd]

میتونی برنامتو بفرستی واسم ؟ ببینم چطوره
شاید خودم واست ردیفش کردم
یا فقط قسمت سرچ رو واسم بفرست
کامل بفرستی بهتره

[سونامی]

میتونی برنامتو بفرستی واسم ؟ ببینم چطوره
شاید خودم واست ردیفش کردم
یا فقط قسمت سرچ رو واسم بفرست
کامل بفرستی بهتره

بدلیل محدودیتم نمیتونم ولی اینو بگم که طرف یه سری فیلد رو پر میکنه اعم از نامو نام خانوادگی و.......

بعد من یه سرچ میخوام اگر زد فامیل اکبری تمام اکبری ها رو تو خود اون فیل د ها نشون بده مثلا طرف فامیلیش اکبری هست شماره موبایل 02655564545 وقتی جستو جو کرد اکبری رو بقیه داده هایی که با اکبری ذخیره شدن رو تو فید هاشون نمایش بده مثل موبایل تکه کد بالا رو امتحان کن برای یکی دو بار جواب میده

[farshidshd]

کدی که من دادم هم همین کارو میکنه منتها من دقیقا متوجه مشکلت نشدم

البته این کد بعضی وقتها جواب نمیده ها

[سونامی]

فکر کنم برای من از اون وقت ها هست