Sometimes it can be a problem accessing remote servers from the Internet which does not allows access to control databases but just for your database.
Flex2SQL for PostgreSQL
PgFlex sets DataBase template1 at Login as default.
Flex2SQL for MySQL
MySqlFlex sets MySql DataBase at Login to get some information
Purpose
You can avoid it when connecting to a remote server setting it to connect directly to your own Database.
Syntax
login (ServerName//DataBaseName) User Password Driver
DataFlex Program Example
// Connecting to a remote PostGreSQL Server
use Mertech.inc
String sSERVER_VERSION sSERVER_ENCODING sLC_COLLATE sLC_CTYPE sIS_SUPERUSER sDATESTYLE
String sDataBaseName sSchemaName sTableName
Integer iTables
login ('MyRemoteServer/' + '/MyRemoteDataBase') 'username' 'password' 'mdspgsql'
If (Err) begin
Showln "Login Error !"
inkey pageend
abort
end
Else Showln "Login OK !"
Showln
sql_set_stmt to 'SHOW SERVER_VERSION'
sql_prepare_stmt
sql_execute_stmt
sql_fetch_next_row into sSERVER_VERSION
sql_set_stmt to 'SHOW SERVER_ENCODING'
sql_prepare_stmt
sql_execute_stmt
sql_fetch_next_row into sSERVER_ENCODING
sql_set_stmt to 'SHOW LC_COLLATE'
sql_prepare_stmt
sql_execute_stmt
sql_fetch_next_row into sLC_COLLATE
sql_set_stmt to 'SHOW LC_CTYPE'
sql_prepare_stmt
sql_execute_stmt
sql_fetch_next_row into sLC_CTYPE
sql_set_stmt to 'SHOW IS_SUPERUSER'
sql_prepare_stmt
sql_execute_stmt
sql_fetch_next_row into sIS_SUPERUSER
sql_set_stmt to 'SHOW DATESTYLE'
sql_prepare_stmt
sql_execute_stmt
sql_fetch_next_row into sDATESTYLE
showln 'SERVER_VERSION : ' (trim(sSERVER_VERSION))
showln 'SERVER_ENCODING : ' (trim(sSERVER_ENCODING))
showln 'LC_COLLATE : ' (trim(sLC_COLLATE))
showln 'LC_CTYPE : ' (trim(sLC_CTYPE))
showln 'IS_SUPERUSER : ' (trim(sIS_SUPERUSER))
showln 'DATESTYLE : ' (trim(sDATESTYLE))
showln
showln "Type any key to continue ..."
showln
Inkey Pageend
sql_set_stmt to "select * from information_schema.tables where table_schema='public' and table_type='BASE TABLE'"
sql_prepare_stmt
sql_execute_stmt
Repeat
sql_fetch_next_row into sDataBaseName sSchemaName sTableName
If (Found) Showln sDataBaseName '.' sSchemaName '.' sTableName
Until (not(Found))
showln
showln "Type any key to continue ..."
Inkey Pageend
Tags: Connection