* ТЕСТЫ РАБОТЫ С ОБЪЕКТОМ COM.SQLite
* TESTS OF WORKING WITH THE OBJECT COM.SQLite
  ? "Test 1: " + tran(Test1())
  ? "Test 2: " + tran(Test2())
  ? "Test 3: " + tran(Test3())
  ? "Test 4: " + tran(Test4())

FUNCTION Test1
  local ret
  SQLite = CreateO('COM.SQLite')

  ret = SQLite.Open('test.db')
     if ret<>0
        return 1
     endif
  ret = SQLite.DoCmd("DROP TABLE IF EXISTS people;"+ ;
        "CREATE TABLE people(id INTEGER PRIMARY KEY AUTOINCREMENT, name TEXT, age INTEGER)")
     if ret<>0
        return 2
     endif

  * В запросе требуются два параметра со значениями:
  * The request requires two parameters with values:
  ret = SQLite.DoCmd("INSERT INTO people (name, age) VALUES (?, ?)", "Bill Gates", 69)
     if ret<>0
        return 3
     endif

  * Другие записи:
  * Other records:
  ret = SQLite.DoCmd("INSERT INTO people (name, age) VALUES (?, ?)", "Richard Hipp", 64)
     if ret<>0
        return 4
     endif
  ret = SQLite.DoCmd("INSERT INTO people (name, age) VALUES (?, ?)", ;
        Strconv("Аркадий Корниенко",9), 64)
     if ret<>0
        return 5
     endif
  ret = SQLite.Close()
     if ret<>0
        return 5
     endif

RETURN 0

FUNCTION Test2
  local ret
  SQLite = CreateO('COM.SQLite')

  * Указываем тип массива параметров с нулевого элемента для COM-объекта SQLite:
  * Specify the parameter array type with a zero element for the SQLite COM object:
  ComArray(SQLite,10)

  * Формируем массив параметров размером в 6 элементов:
  * We form an array of parameters with a size of 6 elements:
  dime vals(6)
  vals(1)="Bill Gates"
  vals(2)=69
  vals(3)="Richard Hipp"
  vals(4)=64
  vals(5)=Strconv("Аркадий Корниенко",9)
  vals(6)=64

  ret = SQLite.Open('test.db')
     if ret<>0
        return 6
     endif
  ret = SQLite.DoCmdN("DROP TABLE IF EXISTS people;"+ ;
        "CREATE TABLE people(id INTEGER PRIMARY KEY AUTOINCREMENT, name TEXT, age INTEGER);"+ ;
        "INSERT INTO people (name, age) VALUES (?, ?);"+ ;
        "INSERT INTO people (name, age) VALUES (?, ?);"+ ;
        "INSERT INTO people (name, age) VALUES (?, ?);", ;
        @vals)
     if ret<>0
        return 7
     endif
  ret = SQLite.Close()
     if ret<>0
        return 8
     endif

RETURN 0

FUNCTION Test3
  local ret
  SQLite = CreateO('COM.SQLite')

  ret = SQLite.Open('test.db')
     if ret<>0
        return 9
     endif

  * Использование транзакции при выполнении нескольких SQL-комманд:
  * Using a Transaction When Executing Multiple SQL Statements:
  ret = SQLite.DoCmd("BEGIN TRANSACTION;")
     if ret<>0
        return 10
     endif

  ret = SQLite.DoCmd("DROP TABLE IF EXISTS people;"+ ;
        "CREATE TABLE people(id INTEGER PRIMARY KEY AUTOINCREMENT, name TEXT, age INTEGER);"+ ;
        "INSERT INTO people (name, age) VALUES (?, ?);"+ ;
        "INSERT INTO people (name, age) VALUES (?, ?);"+ ;
        "INSERT INTO people (name, age) VALUES (?, ?);", ;
        "Bill Gates", 69, "Richard Hipp", 64, ;
        Strconv("Аркадий Корниенко",9), 64)
     if ret<>0
        ret = SQLite.DoCmd("ROLLBACK;")
        if ret<>0
           return 11
        endif
        return 12
     endif

  ret = SQLite.DoCmd("COMMIT;")
     if ret<>0
        return 13
     endif

  ret = SQLite.Close()
     if ret<>0
        return 14
     endif

RETURN 0

* СЖАТИЕ И КОПИРОВАНИЕ БД
* COMPRESSION AND COPYING OF THE DB
FUNCTION Test4
  local ret
  SQLite = CreateO('COM.SQLite')
  bak = 'sqlite.test.db.bak'
  backup = 'sqlite.test.db'

  if(file(m.bak))
     dele file (m.bak)
  endif
  if(file(m.backup))
     rena (m.backup) to (m.bak)
  endif

  ret = SQLite.Open('test.db')
     if ret<>0
        return 15
     endif

  ret = SQLite.DoCmd("VACUUM INTO ?",m.backup)
     if ret<>0
        return 16
     endif

  ret = SQLite.Close()
     if ret<>0
        return 17
     endif

RETURN 0