note description: "Summary description for {DATABASE_CONNECTION_ODBC}." date: "$Date$" revision: "$Revision$" class DATABASE_CONNECTION_ODBC inherit DATABASE_CONNECTION redefine db_application end create login_with_connection_string feature {NONE} -- Initialization login_with_connection_string (a_string: STRING) -- Login with `a_connection_string'and immediately connect to database. do io.put_string (generator +".login_with_connection_string") io.put_new_line create db_application.login_with_connection_string (a_string) db_application.set_base create db_control.make io.put_string (generator +".login_with_connection_string, is_keep_connection? "+ is_keep_connection.out ) io.put_new_line keep_connection := is_keep_connection if keep_connection then connect if not db_control.is_ok then io.put_string (generator +".login_with_connection_string:"+ db_control.error_code.out ) io.put_new_line io.put_string (generator +".login_with_connection_string:") io.put_string_32 (db_control.error_message_32 ) io.put_new_line end io.put_string (generator +".login_with_connection_string, After connect, is_connected? "+ is_connected.out) io.put_new_line end set_use_extended_types (True) end feature -- Databse Connection db_application: DATABASE_APPL [ODBC] -- Database application. end