sqlite3_test.bas

''
'' SQLite test, translated by Nex/marzec
''



#include once "sqlite3.bi" 

const DEFAULT_DATABASE = "sqlite3_test.db"
const DEFAULT_QUERY	   = "select * from features"

declare sub showusage( )

declare function callback cdecl _
	( _
		byval NotUsed as any ptr, _
		byval argc as long, _
		byval argv as zstring ptr ptr, _
		byval colName as zstring ptr ptr _
	) as long

	dim as sqlite3 ptr db
	dim as zstring ptr errMsg 
	dim as string database_name, query

	if( __FB_ARGC__ > 3 ) then
		showusage
		end 1
	end if
	
	if( __FB_ARGC__ = 2 ) then
		database_name = command( 1 )
	else
		database_name = DEFAULT_DATABASE
	end if
	
	if( __FB_ARGC__ = 3 ) then
		query = command( 2 )
	else
		query = DEFAULT_QUERY
	end if
	
	if sqlite3_open( database_name, @db ) then 
  		print "Can't open database: "; *sqlite3_errmsg( db )
  		sqlite3_close( db ) 
  		end 1
	end if 
	
	print "Using database: "; database_name
	print

	if sqlite3_exec( db, query, @callback, 0, @errMsg ) <> SQLITE_OK then 
  		print "SQL error: "; *errMsg
	end if 

	sqlite3_close(db) 

'':::::
function callback cdecl _
	( _
		byval NotUsed as any ptr, _
		byval argc as long, _
		byval argv as zstring ptr ptr, _
		byval colName as zstring ptr ptr _
	) as long
  
	dim as integer i 
	dim as string text

	for i = 0 to argc - 1
		text = "NULL"
		if( argv[i] <> 0 ) then
			if *argv[i] <> 0 then 
				text = *argv[i]
			end if
		end if
			
		print *colName[i], " = '"; text; "'"
	next 
	
	print

	function = 0
   
end function 

'':::::
sub showusage( )
	print "Usage: "; command( 0 ); " database ""query"""
end sub