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