/*
This source file is part of the SCS module "Sqlite3"
For the latest info, see http://www.scolring.org

Copyright (c) 2010 Stephane Bisaro, aka Iri <iri@irizone.net>

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by the Free Software
Foundation; either version 3 of the License, 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 Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
Place - Suite 330, Boston, MA 02111-1307, USA, or go to
http://www.gnu.org/copyleft/lesser.txt

For others informations, please contact us from http://www.scolring.org/ or
http://www.irizone.net/
*/

/* Connection test */
fun cbDBtest (obj, u)=
	let if dbType == 0 then
			_sqliteOpenFile _channel _checkpack _GETtext txt_db_file
		else if dbType == 1 then
			_sqliteOpenMemory _channel
		else if dbType == 2 then
			_sqliteOpenTemp _channel
		else
			nil
		-> db in
	if db == nil then
		_SETtext txt_db_status _locEditor "test_connection_failed" nil
	else
	(
		_sqliteClose db;
		_SETtext txt_db_status _locEditor "test_connection_ok" nil
	);
	0;;
	
	
	
/* Creation tool */

// copy code or load package here