Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Branding with Refox
Message
From
28/09/2004 01:28:27
Dorin Vasilescu
ALL Trans Romania
Arad, Romania
 
General information
Forum:
Visual FoxPro
Category:
Third party products
Miscellaneous
Thread ID:
00946327
Message ID:
00946542
Views:
14
>
>The renaming is a good idea. If you really want to make it hard for someone to read... name everything with one's, (1), L's (l) zero's (0) and O's (O). Who's going to want to look at something like
>Do From 10lOO11ll000 with l0010lll, l010OOOO

Hi
Even better, using #DEFINE for variable names with some crazy replacements

Try this with Refox
PROCEDURE create_firebird_db_api_test

#DEFINE isc_dsql_execute_immediate 	_1280NN7E6_1280NN854_1280NN8MG_1280NN90S
#DEFINE status_vector 	_1280NPGDW_1280NPGQC_1280NPH2J_1280NPHEZ
#DEFINE db_handle 		_1280NOGPC_1280NOH7C_1280NOHOJ_1280NOI5A
#DEFINE tr_handle 		_1280NOSVN_1280NOT8N_1280NOTMK_1280NOU0C
#DEFINE statement		_1280O7XT6_1280O7Y9P_1280O7YRO_1280O7Z8D
#DEFINE length 			_1280NP67O_1280NP6KC_1280NP6YB_1280NP7CD
#DEFINE dialect 		_1280NPRVA_1280NPSA1_1280NPSO3_1280NPT0O
#DEFINE xsqlda 			_1280NZI1L_1280NZIBM_1280NZILX_1280NZIW7

DECLARE long isc_dsql_execute_immediate IN fbclient.dll string @ status_vector ; 
    , integer @ db_handle ; 
    , integer @ tr_handle ; 
    , integer length ; 
    , string statement ; 
    , integer dialect ; 
    , string @ xsqlda

status_vector = REPLICATE(CHR(0),80)
db_handle = 0
tr_handle = 0
length = 0
statement = [CREATE DATABASE 'C:\MYDATA.FDB' USER 'SYSDBA' PASSWORD 'masterkey' PAGE_SIZE 4096]+CHR(0)
DIALECT = 3
XSQLDA=NULL
RETURN isc_dsql_execute_immediate(status_vector, db_handle, tr_handle, length, statement, dialect, xsqlda)
Previous
Reply
Map
View

Click here to load this message in the networking platform