کار با دیتابیس محلی در بیسیک۴اندروید (SQLite)

برای ذخیره داده در خود گوشی از کتابخانه داخلی SQL استفاده می‌شود.

مقداردهی اولیه

Sub Process_Globals
    Dim SQL1 As SQL
End Sub

Sub Activity_Create(FirstTime As Boolean)
    SQL1.Initialize(File.DirInternal, "db.db", True)
    SQL1.ExecNonQuery("CREATE TABLE IF NOT EXISTS users (id INTEGER PRIMARY KEY, name TEXT, phone TEXT)")
End Sub

درج امن داده

همیشه از کوئری پارامتریک استفاده کنید تا داده کاربر مستقیم وارد کوئری نشود:

Sub SaveUser(Name As String, Phone As String)
    SQL1.ExecNonQuery2("INSERT INTO users(name, phone) VALUES (?, ?)", Array As String(Name, Phone))
End Sub

خواندن داده

Dim cur As ResultSet = SQL1.ExecQuery("SELECT name FROM users ORDER BY id DESC")
Do While cur.NextRow
    Log(cur.GetString("name"))
Loop
cur.Close

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