فراخونی دیتابیس با button

[keivan 29]

سلام خدمت دوستان

چطوری میشه هر id دیتابیس روازهر باتون جداگانه خواست ؟

من تو activityام 6تا دکمه گذاشتم حالا میخوام با زدن هر کدوم متن مربوطش رو که تو دیتابیس مشخص کردم رو بیاره..

. ممنون میشم جواب بدین

[afraz11 246]

درست با این کد دوست عزیز

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

Activity.LoadLayout("frm2")

If File.Exists(File.DirInternal,"data12.db")=False Then

File.Copy(File.DirAssets,"data12.db",File.DirInternal,"data12.db")

End If

If sql1.IsInitialized=False Then

sql1.Initialize(File.DirInternal,"data12.db",False)

End If

Dim cur As Cursor

cur =sql1.ExecQuery("select*from tbl11")

Dim h As Int

h=2%y

For i = 0 To cur.RowCount - 1

cur.Position=i

Dim btn As Button

btn.Initialize("btn")

btn.Text=cur.GetString("onvan")

btn.Tag=i+1

btn.TextColor=Colors.Black

btn.Typeface=Typeface.LoadFromAssets("font1.ttf")

btn.TextSize=15

btn.Gravity=Gravity.CENTER_VERTICAL

Dim b As BitmapDrawable

b.Initialize(LoadBitmap(File.DirAssets,"btn2.png"))

btn.Background=b

ScrollView1.Panel.AddView(btn,1,h,100%x,18%y)

h=h+18%y

Next

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btn_click

Dim bb As Button

bb=Sender

fasl=bb.Tag

StartActivity("matnha")

End Sub