9adb84e258
* INSTALL
+ Added Ubuntu 10.4 as tested version.
* include/common.ch
+ Added HB_HMERGE_* constant for HB_HMERGE() function.
* package/winuni/mpkg_win_uni_extra_copy.bat
* Commented line not necessary for official mingw build.
* contrib/hbsqlit3/tests/hooks.prg
* contrib/hbsqlit3/tests/authoriz.prg
* contrib/hbsqlit3/tests/backup.prg
+ Added missing '()'s from :__enum* accesses.
* config/win/mingw.mk
! Fixed after last minute change breaking it when HB_COMPILER_VER
is not set.
* examples/httpsrv/uhttpd.prg
% Replaced 'var:__enumValue()' with 'var' in FOR EACH loops.
252 lines
9.1 KiB
Plaintext
252 lines
9.1 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* SQLite3 Demo. Using sqlite3_commit_hook(), sqlite3_rollback_hook()
|
|
*
|
|
* Copyright 2009 P.Chornyj <myorg63@mail.ru>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
* See COPYING for licensing terms.
|
|
*
|
|
*/
|
|
|
|
#include "common.ch"
|
|
#include "hbsqlit3.ch"
|
|
|
|
FUNCTION main()
|
|
LOCAL cSQLTEXT, cFile := ":memory:"
|
|
LOCAL pDb, cb := @CallBack()
|
|
//
|
|
IF Empty( pDb := PrepareDB(cFile) )
|
|
RETURN 1
|
|
ENDIF
|
|
//
|
|
sqlite3_commit_hook( pDb, "HookCommitY" )
|
|
|
|
QOut( cSQLTEXT := "SELECT * FROM person WHERE name == 'Andy'" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT, cb)) )
|
|
|
|
QOut( cSQLTEXT := "BEGIN EXCLUSIVE TRANSACTION" )
|
|
Qout( "return value: ",cErrorMsg(sqlite3_exec(pDb, cSQLTEXT)) )
|
|
|
|
QOut( cSQLTEXT := "DELETE FROM person WHERE name == 'Andy'" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT)) )
|
|
|
|
QOut( cSQLTEXT := "END TRANSACTION" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT)) )
|
|
|
|
QOut( cSQLTEXT := "SELECT * FROM person WHERE name == 'Andy'" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT, cb)) )
|
|
|
|
QOut( Replicate("-", Len(cSQLTEXT)) )
|
|
|
|
sqlite3_sleep( 10000 )
|
|
//
|
|
sqlite3_commit_hook( pDb, @HookCommitN() )
|
|
sqlite3_rollback_hook( pDb, @HookRollback() )
|
|
|
|
QOut( cSQLTEXT := "SELECT * FROM person WHERE name == 'Ivet'" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT, cb)) )
|
|
|
|
QOut( cSQLTEXT := "BEGIN EXCLUSIVE TRANSACTION" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT)) )
|
|
|
|
QOut( cSQLTEXT := "DELETE FROM person WHERE name == 'Ivet'" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT)) )
|
|
|
|
QOut( cSQLTEXT := "END TRANSACTION" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT)) )
|
|
|
|
QOut( cSQLTEXT := "SELECT * FROM person WHERE name == 'Ivet'" )
|
|
Qout( "return value: ", cErrorMsg(sqlite3_exec(pDb, cSQLTEXT, cb)) )
|
|
//
|
|
pDb := NIL
|
|
|
|
sqlite3_sleep( 10000 )
|
|
//
|
|
RETURN 0
|
|
|
|
/**
|
|
*/
|
|
FUNCTION CallBack( nColCount, aValue, aColName )
|
|
LOCAL nI
|
|
LOCAL oldColor := SetColor( "G/N" )
|
|
//
|
|
FOR nI := 1 TO nColCount
|
|
Qout( Padr(aColName[nI], 5) , " == ", aValue[nI] )
|
|
NEXT
|
|
|
|
SetColor( oldColor )
|
|
//
|
|
RETURN 0
|
|
|
|
/**
|
|
*/
|
|
FUNCTION HookCommitY()
|
|
LOCAL oldColor := SetColor( "R+/N" )
|
|
//
|
|
Qout( "!! COMMIT" )
|
|
|
|
SetColor( oldColor )
|
|
//
|
|
RETURN 0
|
|
|
|
FUNCTION HookCommitN()
|
|
LOCAL oldColor := SetColor( "B+/N" )
|
|
//
|
|
Qout( "?? COMMIT or ROLLBACK" )
|
|
|
|
SetColor( oldColor )
|
|
//
|
|
RETURN 1 // not 0
|
|
|
|
FUNCTION HookRollback()
|
|
LOCAL oldColor := SetColor( "R+/N" )
|
|
//
|
|
Qout( "!! ROLLBACK" )
|
|
|
|
SetColor( oldColor )
|
|
//
|
|
RETURN 1
|
|
|
|
/**
|
|
*/
|
|
STATIC FUNCTION cErrorMsg( nError, lShortMsg )
|
|
LOCAL aErrorCodes := { ;
|
|
{ SQLITE_ERROR , "SQLITE_ERROR" , "SQL error or missing database" }, ;
|
|
{ SQLITE_INTERNAL , "SQLITE_INTERNAL" , "NOT USED. Internal logic error in SQLite" }, ;
|
|
{ SQLITE_PERM , "SQLITE_PERM" , "Access permission denied" }, ;
|
|
{ SQLITE_ABORT , "SQLITE_ABORT" , "Callback routine requested an abort" }, ;
|
|
{ SQLITE_BUSY , "SQLITE_BUSY" , "The database file is locked" }, ;
|
|
{ SQLITE_LOCKED , "SQLITE_LOCKED" , "A table in the database is locked" }, ;
|
|
{ SQLITE_NOMEM , "SQLITE_NOMEM" , "A malloc() failed" }, ;
|
|
{ SQLITE_READONLY , "SQLITE_READONLY" , "Attempt to write a readonly database" }, ;
|
|
{ SQLITE_INTERRUPT , "SQLITE_INTERRUPT" , "Operation terminated by sqlite3_interrupt()" }, ;
|
|
{ SQLITE_IOERR , "SQLITE_IOERR" , "Some kind of disk I/O error occurred" }, ;
|
|
{ SQLITE_CORRUPT , "SQLITE_CORRUPT" , "The database disk image is malformed" }, ;
|
|
{ SQLITE_NOTFOUND , "SQLITE_NOTFOUND" , "NOT USED. Table or record not found" }, ;
|
|
{ SQLITE_FULL , "SQLITE_FULL" , "Insertion failed because database is full" }, ;
|
|
{ SQLITE_CANTOPEN , "SQLITE_CANTOPEN" , "Unable to open the database file" }, ;
|
|
{ SQLITE_PROTOCOL , "SQLITE_PROTOCOL" , "NOT USED. Database lock protocol error" }, ;
|
|
{ SQLITE_EMPTY , "SQLITE_EMPTY" , "Database is empty" }, ;
|
|
{ SQLITE_SCHEMA , "SQLITE_SCHEMA" , "The database schema changed" }, ;
|
|
{ SQLITE_TOOBIG , "SQLITE_TOOBIG" , "String or BLOB exceeds size limit" }, ;
|
|
{ SQLITE_CONSTRAINT , "SQLITE_CONSTRAINT" , "Abort due to constraint violation" }, ;
|
|
{ SQLITE_MISMATCH , "SQLITE_MISMATCH" , "Data type mismatch" }, ;
|
|
{ SQLITE_MISUSE , "SQLITE_MISUSE" , "Library used incorrectly" }, ;
|
|
{ SQLITE_NOLFS , "SQLITE_NOLFS" , "Uses OS features not supported on host" }, ;
|
|
{ SQLITE_AUTH , "SQLITE_AUTH" , "Authorization denied" }, ;
|
|
{ SQLITE_FORMAT , "SQLITE_FORMAT" , "Auxiliary database format error" }, ;
|
|
{ SQLITE_RANGE , "SQLITE_RANGE" , "2nd parameter to sqlite3_bind out of range" }, ;
|
|
{ SQLITE_NOTADB , "SQLITE_NOTADB" , "File opened that is not a database file" }, ;
|
|
{ SQLITE_ROW , "SQLITE_ROW" , "sqlite3_step() has another row ready" }, ;
|
|
{ SQLITE_DONE , "SQLITE_DONE" , "sqlite3_step() has finished executing" } ;
|
|
}, nIndex, cErrorMsg := "UNKNOWN"
|
|
|
|
DEFAULT lShortMsg TO .T.
|
|
|
|
IF hb_IsNumeric( nError )
|
|
IF nError == 0
|
|
cErrorMsg := "SQLITE_OK"
|
|
ELSE
|
|
nIndex := AScan( aErrorCodes, {|x| x[1] == nError } )
|
|
cErrorMsg := iif( nIndex > 0, aErrorCodes[ nIndex ][ iif(lShortMsg,2,3) ], cErrorMsg )
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN cErrorMsg
|
|
|
|
/**
|
|
*/
|
|
STATIC FUNCTION PrepareDB( cFile )
|
|
LOCAL cSQLTEXT, cMsg
|
|
LOCAL pDb, pStmt
|
|
LOCAL hPerson := { ;
|
|
"Bob" => 52, ;
|
|
"Fred" => 32, ;
|
|
"Sasha" => 17, ;
|
|
"Andy" => 20, ;
|
|
"Ivet" => 28 ;
|
|
}, enum
|
|
//
|
|
pDb := sqlite3_open( cFile, .T. )
|
|
IF Empty( pDb )
|
|
QOut( "Can't open/create database : ", cFile )
|
|
|
|
RETURN NIL
|
|
ENDIF
|
|
|
|
Qout( cSQLTEXT := "CREATE TABLE person( name TEXT, age INTEGER )" )
|
|
cMsg := cErrorMsg( sqlite3_exec(pDb, cSQLTEXT) )
|
|
|
|
IF cMsg <> "SQLITE_OK"
|
|
QOut( "Can't create table : person" )
|
|
pDb := NIL // close database
|
|
|
|
RETURN NIL
|
|
ENDIF
|
|
//
|
|
cSQLTEXT := "INSERT INTO person( name, age ) VALUES( :name, :age )"
|
|
pStmt := sqlite3_prepare( pDb, cSQLTEXT )
|
|
IF Empty( pStmt )
|
|
QOut( "Can't prepare statement : ", cSQLTEXT )
|
|
pDb := NIL
|
|
|
|
RETURN NIL
|
|
ENDIF
|
|
|
|
QOut( sqlite3_sql(pStmt) )
|
|
QOut( Replicate("-", Len(cSQLTEXT)) )
|
|
|
|
FOR EACH enum IN hPerson
|
|
sqlite3_reset( pStmt )
|
|
sqlite3_bind_text( pStmt, 1, enum:__enumKey() )
|
|
sqlite3_bind_int( pStmt, 2, enum:__enumValue() )
|
|
sqlite3_step( pStmt )
|
|
NEXT
|
|
|
|
sqlite3_clear_bindings( pStmt )
|
|
sqlite3_finalize( pStmt )
|
|
|
|
RETURN pDb
|