سرچ با دیتابیس

[cloner01001 38]

سلام دوستان یه دیتابیس دارم با دو تا ستون و یه ادیت تکست و یه باتن

میخوام وقتی تو ادیت تکست کلمه ای مثلا " سلام"نوشته شد و روی باتنکلیک شد برنامه بره تو دیتابیس و تو ستون فارسی ، سلام روپیداکنه و هم سلام و همhi که تو ستون انگلیسی هست رو تویه مسیج باکس نشون بده ، باید چیکار کنم؟

[محمدرضا شاهپیری 5,579]

از این متد استفاده کنید
sub serch(matn as string) as string
Dim cur As Cursore
cur = sql1.ExecQuery("SELECT * FROM nametabel WHERE namesoton LIKE '%"&سلام&"%'")
cur.Position =0
return cur.GetString("matnenglisi")
end sub

به جای nametable اسم تیبل رو بنویسید و به جای namesoton هم که اسم ستونی که توش متن سلام هست و در نهایت به جای matneenglisi اون ستونی رو بنویسید که توش کلمه hi هست

[cloner01001 38]

از این متد استفاده کنید
sub serch(matn as string) as string
Dim cur As Cursore
cur = sql1.ExecQuery("SELECT * FROM nametabel WHERE namesoton LIKE '%"&سلام&"%'")
cur.Position =0
return cur.GetString("matnenglisi")
end sub

به جای nametable اسم تیبل رو بنویسید و به جای namesoton هم که اسم ستونی که توش متن سلام هست و در نهایت به جای matneenglisi اون ستونی رو بنویسید که توش کلمه hi هست

 

 

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

 

+من میخوام اظلاعاتی که سرچ شده تو یه مسیج باکس نشون داده بشه باید از چه کدی استفاده کنم؟

[مهدی ایزدی 9,203]

@@cloner01001,من بهتون پیشنهاد میکنم حتما آموزش های مقدماتی و گام به گام برای مبتدی هارو در بخش بیسیک4اندروید دانلود کنید 

[cloner01001 38]

@@cloner01001,من بهتون پیشنهاد میکنم حتما آموزش های مقدماتی و گام به گام برای مبتدی هارو در بخش بیسیک4اندروید دانلود کنید 

 

حتما ، ولی الان برای این مشکل راه حلی دارین؟

[cloner01001 38]

دوستان کسی جواب سوالمو نمیدونه

[asheune 70]

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

 

+من میخوام اظلاعاتی که سرچ شده تو یه مسیج باکس نشون داده بشه باید از چه کدی استفاده کنم؟

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

 

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

[محمدرضا شاهپیری 5,579]

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

 

+من میخوام اظلاعاتی که سرچ شده تو یه مسیج باکس نشون داده بشه باید از چه کدی استفاده کنم؟

دوست عزیز نشون دادن یه مسیج باکس و گرفتن متن یه ادیت تکست کاری داره آخه؟؟؟؟

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

sub serch(matn as string) as string
Dim cur As Cursore
cur = sql1.ExecQuery("SELECT * FROM nametabel WHERE namesoton LIKE '%"&matn&"%'")
cur.Position =0
return cur.GetString("matnenglisi")
end sub

حالا تو رویداد کلیک باتن مثلا اگه اسم ادیت تکست edit باشه این رو بنویس

Sub button_Click
	Msgbox("متن فارسی ="&edit.Text&"متن انگلیسی ="&serch(edit.Text),"")
End Sub

[asheune 70]

دوست عزیز نشون دادن یه مسیج باکس و گرفتن متن یه ادیت تکست کاری داره آخه؟؟؟؟

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

sub serch(matn as string) as string
Dim cur As Cursore
cur = sql1.ExecQuery("SELECT * FROM nametabel WHERE namesoton LIKE '%"&matn&"%'")
cur.Position =0
return cur.GetString("matnenglisi")
end sub

حالا تو رویداد کلیک باتن مثلا اگه اسم ادیت تکست edit باشه این رو بنویس

Sub button_Click
	Msgbox("متن فارسی ="&edit.Text&"متن انگلیسی ="&serch(edit.Text),False)
End Sub

البته این کد یه اشتباه کوچولو داره بجای msgbox از دستور toastmessage استفاده شده. بجای اون false دوتا کوتیشن بذار و عنوان پیغامت رو بنویس