نمایش اطلاعات دیتابیس در لیبل

[davood1382 302]

سلام دوستان من بر اساس این اموزش جلو رفتم فقط یک درخواست کوچیک دارم 

 

لینک:  آموزش اضافه - حذف و ویرایش اطلاعات در دیتابیس

 

حالا من میخوام وقتی روی ایتم لیست ویو کلیک شد بره به اکتیویتی که یک لیبل داره و ستون citiy مربوط به  ایتم کلیک شده رو به حای این که توی ادیت تکست نشون بده ،،،،  توی لیبل نشون بده

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

سلام

خب شما الان آشنایی با دیتابیس و نحوه کارشو یاد دارید.

حالا جدای از اون تاپیک بنده براتون مثال میزنم

فرض می کنیم همون فیلدارو د اریم :

id

name

family

city

و دوست داریم توی اکتویتی اول یک لیست ویو قرار بدیم و اسم و فامیل رو توی لیست ویو نمایش بدیم

و یک اکتویتی دیگه می خواییم با کلیک رو هر آیتم شهر مربوط به همون آیتم رو نشون بده.

و فرض می کنیم اسم جدول یا تیبلمون test  هستش.

 

کد مربوط به گرفتن یا سلکت کردن اطلاعات دیتابیس و نمایش در لیست ویو ( فرضا اسم لیست ویو lv  هستش ):

Dim Cr As Cursor
Cr = SQL.ExecQuery("SELECT * FROM test")
For i = 0 To Cr.RowCount - 1
 Cr.Position = i
 lv.AddTwoLines2(Cr.GetString("name"),Cr.GetString("family"),Cr.GetString("id"))
Next
Cr.Close

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

Sub lv_ItemClick(Position As Int,Value As Object)
 GetValue = Value
 StartActivity(ac2)
 Activity.Finish
End Sub

GetValue  یک متغییری هستش که باید توی Proccess_Globals  تعریف کنید ( از نوع Int  و یا Object )

 

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

Dim Cr As Cursor
Cr = Main.SQL.ExecQuery("SELECT * FROM test WHERE id="&Main.GetValue)
Cr.Position = 0
Label1.Text = Cr.GestString("city")

خب این کد رو می تونید توی رویداد Create  قرار بدید.

نکته : SQL  رو باید در Proccess_Globals  مربوط به اکتویتی Main  قرار بدید.

Label1  هم یک لیبل هستش که تعریف کردیم.

موفق باشید.