Update sqlite implemenation to make it compile

This commit is contained in:
jvelilla
2014-11-13 23:46:02 -03:00
parent 48283742aa
commit 8047880c2b
7 changed files with 54 additions and 247 deletions

View File

@@ -1,7 +1,7 @@
note
description: "Object that handle a database connection for ODBC"
date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
revision: "$Revision: 95678 $"
date: "$Date: 2014-11-13 12:23:47 -0300 (ju., 13 nov. 2014) $"
revision: "$Revision: 96085 $"
class
DATABASE_CONNECTION_ODBC
@@ -13,6 +13,8 @@ inherit
db_application
end
SHARED_LOGGER
create
make, make_common, make_basic, login_with_connection_string
@@ -24,7 +26,7 @@ feature -- Initialization
l_retried: BOOLEAN
do
create db_application.login (username, password)
create database_error_handler.make
if not l_retried then
db_application.set_hostname (hostname)
db_application.set_data_source (database_name)
@@ -34,14 +36,13 @@ feature -- Initialization
if keep_connection then
connect
end
set_successful
else
create db_control.make
end
rescue
create db_control.make
set_last_error_from_exception ("Connection execution")
log.write_critical (generator + ".make_common:" + last_error_message)
-- set_last_error_from_exception ("Connection execution")
-- log.write_critical (generator + ".make_common:" + last_error_message)
if is_connected then
disconnect
end
@@ -56,7 +57,7 @@ feature -- Initialization
l_retried: BOOLEAN
do
create db_application.login (username, password)
create database_error_handler.make
if not l_retried then
db_application.set_hostname (hostname)
db_application.set_data_source (a_database_name)
@@ -66,14 +67,13 @@ feature -- Initialization
if keep_connection then
connect
end
set_successful
else
create db_control.make
end
rescue
create db_control.make
set_last_error_from_exception ("Connection execution")
log.write_critical (generator + ".make_common:" + last_error_message)
-- set_last_error_from_exception ("Connection execution")
-- log.write_critical (generator + ".make_common:" + last_error_message)
if is_connected then
disconnect
end
@@ -88,6 +88,7 @@ feature -- Initialization
-- `database_name' to `a_database_name'
-- `connection' to `a_connection'
do
create database_error_handler.make
create db_application.login (a_username, a_password)
db_application.set_hostname (a_hostname)
db_application.set_data_source (a_database_name)
@@ -104,6 +105,7 @@ feature -- Initialization
do
log.write_debug (generator +".login_with_connection_string")
create db_application.login_with_connection_string (a_string)
create database_error_handler.make
db_application.set_base
create db_control.make
log.write_debug (generator +".login_with_connection_string, is_keep_connection? "+ is_keep_connection.out )