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

[fileman 328]

به نام خدا

آقایون داداشام

یه سوام داشتم:

من الان یه دیتابیس دارم که توی ستون txt یه سری متن هست که توی متن اول و پنجم و دهم یه کلمه (مثلا محمد) مشترکه. حلا میخوام وقتی کلمه محمد رو سرچ کردم ، همه متن ها نشون داده بشه.

کدی که نوشتم:

cur1=sql1.ExecQuery("select txt from a where txt like '%"&EditText1.Text&"%'")
   For i = 0 To cur1.RowCount-1
   cur1.Position = i
   Next
   Label1.Text = cur1.GetString("txt")

ولی با این کد فقط یک متن رو نشون میده!

لطفا راهنماییم کنید.

با تشکر فراوان

[مجید آرتا 5,874]

کد مربوط به لیبل رو توی حلقه بنویس

[fileman 328]

ممنون مجید جان ♥

درست شد.*herher*

[fileman 328]

حالا یه سوال دیگه:

موقعی که یک بار سرچ کردم و می خوام دوباره سرچ کنم ، میخوام موارد قبلی پاک بشه و فقط متن جدید نمایش داده بشه. چه کدی بنویسم؟*fekr*

ممنون میشم کمکم کنید.

[fileman 328]

کسی جواب منو نمیده؟؟؟؟*monkey*

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

قبل از حلقه For بنویس:

Label1.Text = ""

[fileman 328]

ممنون

ولی من لیبل ام توی یک layout دیگه هست که این layout توی حلقه for لود میشه. من که کد شما رو قبل از حلقه مینویسم ، میگه باید لیبل initialize بشه!

حالا چکار کنم؟؟؟؟

[مجید آرتا 5,874]

این کد رو :

Label1.Text = ""

قبل از کد

Label1.Text = cur1.GetString("txt")

بنویسید ببنید درست میشه.

[fileman 328]

نه مجید جان درست نشد.

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

cur1=sql1.ExecQuery("select txt from a where txt like '%"&EditText1.Text&"%'")
   For i = 0 To cur1.RowCount-1
   cur1.Position = i
   Dim p As Panel
   p.Initialize("p")
   ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
   stop = stop + 35%y
   p.LoadLayout("main")
   label1.Text = ""
   label1.Text = cur1.GetString("txt")
   label1.TextColor = Colors.Black
   Next

ولی رکورد های قبلی رو پاک نمیکنه!

چه کنم؟؟؟؟

[مجید آرتا 5,874]

بفرما دوست من اینو چک کنید ( بنده بیسیک توی دسترسم نیست ):»

cur1=sql1.ExecQuery("select txt from a where txt like '%"&EditText1.Text&"%'")
   For i = 0 To cur1.RowCount-1
   cur1.Position = i
   Dim p As Panel
   p.Initialize("p")
   ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
   stop = stop + 35%y
   p.LoadLayout("main")
   If Label1.Text.Length <> 0 Then 
     Label1.Text = ""
   End If
   Label1.Text = cur1.GetString("txt")
   Label1.TextColor = Colors.Black
   Next

[fileman 328]

ممنون عزیزم که کمکم میکنی ولی بازم جواب نمیده (رکورد های قبلی رو پاک نمیکنه)*wall*

کد دیگه ای ؟؟؟

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

من پیشنهاد میکنم همین 4-5 خط کدی که برای Load اطلاعات دارید استفاده میکنید رو

خوب بخونید بفهمید چی شده

اگه همین رو بفهمید بدون 1% شک میفهید خودتون رو کجا قرار بدید

داره اسپم بازی میشه الان *fekr*

[fileman 328]

باشه . ممنون