فروشگاه یاهو ۹۸

قطعه‌کد B4A: کار با دیتابیس SQLite — ذخیره یادداشت — مینیمال و کاربردی

یک نمونه واقعی برنامه یادداشت‌بردار: جدول notes با ستون‌های عنوان و متن ساخته می‌شود، یادداشت «کارهای فردا» درج می‌شود و بعد همه یادداشت‌ها با ORDER BY id DESC از جدید به قدیم خوانده می‌شوند. چون هر رکورد یک id خودکار دارد، مرتب‌سازی و ویرایش و حذف تک‌تک یادداشت‌ها هم همین‌طور ساده می‌شود. این دیتابیس یک فایل داخل حافظه خصوصی برنامه است؛ اطلاعات با حذف برنامه پاک می‌شود ولی با بستن و باز کردن برنامه می‌ماند.

رایگان
مشاهده صفحه محصول و راه‌های دریافت

توضیحات محصول

یک نمونه واقعی برنامه یادداشت‌بردار: جدول notes با ستون‌های عنوان و متن ساخته می‌شود، یادداشت «کارهای فردا» درج می‌شود و بعد همه یادداشت‌ها با ORDER BY id DESC از جدید به قدیم خوانده می‌شوند. چون هر رکورد یک id خودکار دارد، مرتب‌سازی و ویرایش و حذف تک‌تک یادداشت‌ها هم همین‌طور ساده می‌شود. این دیتابیس یک فایل داخل حافظه خصوصی برنامه است؛ اطلاعات با حذف برنامه پاک می‌شود ولی با بستن و باز کردن برنامه می‌ماند. کتابخانه‌های مورد نیاز این نمونه: SQL.

ویژگی‌های کلیدی

کد نمونه رایگان

Sub DatabaseWork
    Dim sql1 As SQL
    sql1.Initialize(File.DirInternal, "app.db", True)
    
    ' ساخت جدول یادداشت‌ها
    sql1.ExecNonQuery("CREATE TABLE IF NOT EXISTS notes (id INTEGER PRIMARY KEY, title TEXT, body TEXT)")
    
    ' درج یک یادداشت نمونه
    sql1.ExecNonQuery2("INSERT INTO notes (title, body) VALUES (?, ?)", Array As Object("کارهای فردا", "تماس با پشتیبانی هاست"))
    
    ' خواندن همه یادداشت‌ها از آخر به اول
    Dim cur As Cursor = sql1.ExecQuery("SELECT * FROM notes ORDER BY id DESC")
    Do While cur.NextRow
        Log(cur.GetString("title") & " => " & cur.GetString("body"))
    Loop
    cur.Close
End Sub