PDA

View Full Version : سوال: مشکل کد جست جو در vb


Hoseynseyedan
شنبه 23 مرداد 1389, 17:08 عصر
با سلام و خسته نباشید به همه دوستان
من دارم برنامه ای طراحی میکنم که اطلاعات کاربر رو میگیره و ذخیره میکنه.
حالا کدی میخوام که بتونم توی اطلاعاتم جستجو کنم و مواردی رو که خواستم ویرایش کنم
کسی هست که بتونه کمکم کنه؟:افسرده:
ALIMAHDE54
شنبه 23 مرداد 1389, 17:17 عصر
با سلام و خسته نباشید به همه دوستان
من دارم برنامه ای طراحی میکنم که اطلاعات کاربر رو میگیره و ذخیره میکنه.
حالا کدی میخوام که بتونم توی اطلاعاتم جستجو کنم و مواردی رو که خواستم ویرایش کنم
کسی هست که بتونه کمکم کنه؟:افسرده:

با عرض سلام
سوال شما خیلی ناقصه شما اطلاعات رو در چه چیز ذخیره میکنید
بانک یا فایل
اگه اطلاعات دقیق بدین دوستان میتونن راهنمایی کنن
sohrab o
شنبه 23 مرداد 1389, 17:30 عصر
دوست عزیز
لطفا سوالتونو دقیق تر بپرسید
اول خودتون شروع کنید به نوشتن برنامه
هر قسمتشو مشکل داشتید بپرسید
موفق باشید
Hoseynseyedan
یک شنبه 24 مرداد 1389, 11:16 صبح
با تشکر از دوستان
من برنامه رو نوشتم. توی این قسمت مشکل داشتم.
من اطلاعات رو روی بانک اکسس ذخیره میکنم.
برنامه اول اطلاعات یک نفر مثل نام، تلفن، آدرس و... میگیره و یه کد کاربری میده. هالا چون که تعداد کسانی که اطلاعاتشون رو ذخیره کردن زیاده باید برنامه امکان جستجو داشته باشه.
من میخوام برنامه امکانی داشته باشه که اگه کاربر خواست اطلاعاتش رو ویراش کنه اول اسمش رو جستجو کنه و بعد برنامه اطلاعاتش رو نمایش بده و کاربر بتونه اطلاعاتش رو ویراش و ذخیره کنه.
این توضیح فرمی بود که توش این مشکل رو داشتم.
ممنون.
ALIMAHDE54
یک شنبه 24 مرداد 1389, 11:43 صبح
Adodc1.RecordSource = "select * from mosh where name="'txtname.text &"'"
Adodc1.Refresh
شما اول باید این کد رو در چنج تکست قرار بدین و چند تا هم تکست برای نشان دادن اطلاعات دیگه بر روی فرم قرار دهید و اونا رو به یانک اتصال دهید بعد شما با نوشتن در داخل تکست اطلاعات در تکست ها به نمایش در میاد
حالا برای ویرایش یه دکمه ایجاد کنید و کد زیر را در داخل آن بنویسید
adodc1.recordset.edit
تمام من اینا رو میدونستم حالا اگه از استید هم نظر بدن ممنون میشم
night_secret
یک شنبه 24 مرداد 1389, 19:26 عصر
این کد واسه ویرایش!!!


Adodc1.Recordset.Update "Name", Text1.Text
Adodc1.Recordset.Update "Family", Text2.Text
night_secret
یک شنبه 24 مرداد 1389, 19:29 عصر
این کد هم واسه جستجوی!!!


Dim key1 As String
key1 = inputbox ("Enter your key")
Form1.Adodc1.Recordset.Filter = "name='" & key1 & "'"