در این آموزش کاربردی از وبسایت فرا آموزش می خواهیم در نرم افزار B4A اطلاعات یک پایگاه داده SQLite را در یک لیست ( ListView ) نمایش دهیم. آموزش به این صورت می باشد.

1 - یک پایگاه داده ( دیتابیس ) با نام sqldata ایجاد کنید .

2 - یک table بسازید و نام آن را tbl بگذارید .

3 - نام فیلد های آن را به ترتیب ID و TXT بگذارید .

5 - رکورد های را اضافه کنید...

6 - سپس به محیط بیسیک فور اندروید می رویم و پروژه را ذخیره می کنیم .

7 - به دیزاینر رفته و یک ListView اضافه می کنیم .

8 - لیست ویو را به برنامه معرفی کنید .

9 - Layout را با نام main ذخیره کنید و در Sub  کد زیر را بنویسید :

    Activity.LoadLayout("main")

کد بالا خیلی واضح هست . Layout را لود کرده ایم .

10 - در قسمت فایل های پروژه فایل دیتابیس ساخته شده در مراحل قبل را به پروژه اضافه می کنیم .

11 - سپس در قسمت  Sub Activity_Create بعد از لود layout کد زیر را می نویسم :

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

خوب کد بالا : فایل sqldata.db را از DirAssets در DirInternal به اسم sqldata.db کپی کن .

12 - lib های کتابخانه SQL را تیک بزنید .

13 - سپس در گلوبالس یک متغیر از نوع SQL به نام SQL1 تعریف کنید :

    dim SQL1 as SQL

14 - حالا باید SQL1 را  Initialize کنیم :

    SQL1.Initialize(File.DirInternal,"sqldata.db",True)

15 - خوب الان یک متغیر از نوع Cursor تعریف کنیم : ( نام را cur1 می گذاریم )

Dim cur1 As Cursor

16 - و بعد کد زیر را :

cur1 = SQL1.ExecQuery("SELECT * FROM tbl")

دستور SELECT * FROM برای نمایش دادن متن استفاده می شود .

و tbl هم نام جدول ( table ) هست

17 - کد زیر هم بعد :

For i=0 To cur1.RowCount-1
cur1.Position = i
ListView1.AddSingleLine(cur1.GetString("TXT"))
Next

خط اول : یک حلقه فور تعریف کردیم .

خط دوم : Position متغیر cur1 = با i

خط سوم : برای لیست ویو آیتم اضافه می کنیم . که متن هر آیتم مساوی با فیلد TXT در دیتابیس . ( به حروف کوچک یا بزرگ حساس است )

خط چهارم : پایان for

18 - از برنامه ران بگیرید .

 

سورس کد : SQL