کدوم قطعه کد؟ Sample دیتابیس درست کار میکنه امتحان کردم. کدوم قسمتش ایراد داره؟
همون قطعه کدی که تو پست قبلیم گذاشتم ... مال قسمت سرچه که عملی رو انجام نمیده ... لطف بزرگی کردی اگه راهنمایی کنی که اشکال از کجاس
این قطعه کد :
[CPPS]$sql = "SELECT * FROM ab WHERE \qname\q LIKE \q%"+$search+"%\q"
DBSQL($sql)
#r = DBCount()
If (#r>0) then
{found}
$r = dbresult(1,1)
#t = ListBoxItemCount("List")
For (#i=1,#t)
$s = ListBoxGetItem("List",#i)
#p = pos(".",$s,1)-1
$s = copy($s,1,#p)
If ($s=$r) then
{select it!}
Obj("list","addressbook").Select(#i)
Return
End
End
End[/CPPS]
تو اون Sample یه TextBox هست که متغیرش میشه همین search$ ... گویا با این قطعه کد قراره id مربوط به سطری که عبارت مورد جستجو تو یکی از ستون هاش قرار داره ، پیدا بشه و همین id با id های داخل ListBox انطباق داده بشه و آیتم مربوطه به این id داخل ListBox به حالت Select دربیاد که در نتیجه Function مربوط به ItemSelect اجرا میشه و اطلاعات اون سطر مورد نظر از دیتابیس فراخوانی میشه و توسط کدهای Function از پیش تعریف شده ItemSelect داخل TextBox ها نمایش داده بشه.
در صورتی که این اتفاق نمیفته
من به خود Query مشکوم چون مثلاً این Query که در بخش دیگه همین Sample داره درست کار میکنه، شباهتی به این Query که تو قسمت Search هست، نداره !
این Query که در تابع ItemSelect هست :
[CPPS] $sql = "SELECT * FROM ab WHERE id="+$id
DBSQL($sql)[/CPPS]