جستجو در وی بی

[mask1383]

سلام
خسته نباشید.
یک سوال تقریبا کاملی از جستجو در وی بی دارم اگر ممکن باشه کامل جواب بدین تا بقیه هم از آن استفاده کنند تا از سوالات تکراری جلوگیری شود.

من در بانک اکسس یک table به نام name دارم که درون آن چندین فیلد مانند نام و نام خانوادگی و تاریخ تولد و... وجود دارد.

همگی آنان را می خوام روی فرم نمایش بدهم که با چند textbox باشد.
سوال:
ا- چطور از طریق adodc بدون آنکه احتیاجی به نوشتن آدرس از رو درایو باشد بتوان فیلدهای مورد نیاز را از بانک گرفته و در textbox ها قرار داد.(ADO)
2- برای جستجو در بین فیلد ها طوری که کاربر با نوشتن اسم یا تاریخ و یا... برنامه بتواند تمامی فیلدها رو جستجو کند و کلمه یا عدد مورد نیاز را بیابد.
شرمنده از زیاده گوییییییییییییییییییییییی ییییییی.

[hadi2345]

در مورد سوال اولت : یا باید textbox رو به یک فیلد خاص متصل کنی و یا اینکه از چنین کدی استفاده کنی:
text1.text=adodc1.recordset!field name
در مورد سوال دوم : با استفاده از کدهای sql به راحتی میتونی چند فیلد رو با هم جستجو کنی ولی باید به نوع داده ها هم دقت کنی (تاریخ - عدد - رشته )
ولی پیشنهاد من اینه که اول یک کتاب در مورد ado بخون بعد اگر مشکلی داشتی مطرح کن .

[armin_izer]

سلام دوست عزیز

برای جستجوی فیلد های رشته ای:

Data1.Recordset.Find "Name='" & text1.text

فیلدهای عددی:

Data1.Recordset.Find "UserID=" & text1.text

فیلدهای تاریخ:

Data1.Recordset.Find "SaleDate=#" & text1.text & "#"

Bye. :موفق:

[mask1383]

سلام
دست شما درد نکنه
برای جستجو کردن به شکلی که شما نوشتن درسته ولی من می خوام که کاربر در inputbox که در آن کلمه مورد نیاز خود رابنویسه (فرقی نکنه که عدد باشه یا رشته)
برنامه کل فیلدها رو براش جستجو کنه. این کار شدنیه.

اگر ممکن باشه همین جواب رو به صورت فرمان select هم توضیح بدین.
ممنون

ببخشیننننننننننننننننننن.

[mask1383]

سلام
دست شما درد نکنه
برای جستجو کردن به شکلی که شما نوشتن درسته ولی من می خوام که کاربر در inputbox که در آن کلمه مورد نیاز خود رابنویسه (فرقی نکنه که عدد باشه یا رشته)
برنامه کل فیلدها رو براش جستجو کنه. این کار شدنیه.

اگر ممکن باشه همین جواب رو هم به صورت فرمان select هم توضیح بدین.
ممنون

ببخشیننننننننننننننننننن.

[armin_izer]

بازم سلام
ببین عزیزه من تو چرا مخت رو بکار نمیندازی؟

اینجوریه :
[code]
dim strTemp as string
strTemp = inputbox("Enter Your Name Here:" , "")
data1.recordset.find "Name='" & strTemp
if data1.recordset.nomatch then
msgbox "Not Found!"
else
msgbox "Found!"

یا اینجوری:
Dim StrTemp as string
sql = "SELECT * FROM MyTable WHERE Name='" & strtemp & "'"
rs.open sql , db
if rs.recordcount <=0 then
msgbox "Not Found"
else
Msgbox "Found"
rs.close
set rs = nothing


حلله ؟ :موفق:

[mask1383]

بابا دست شما درد نکنه...............

مرسیییییییییییییییییییییی ییییییییییییییی.
عصبانی نشو ما کوچک شمائیم. :cry:

[armin_izer]

سلام

نه عزیزم خواهش میکنم , وضیفست.
ولی شما بهتره کتاب زیاد بخونی و Sample هم زیاد بخونی پس این کار ها رو بکن:

کتاب زیر رو بخون:
برنامه نویسی پایگاه داده با ویژوال بیسیک 6 انتشارات نص

اینجا ها رو هم سر بزن:
http://www.pscode.com
http://www.vbcode.com
http://www.msdn.microsoft.com
http://www.a1vbcode.com

bye. :موفق:

[mask1383]

مرسی