string ls_database, ls_Server, ls_UserName, ls_PassWord
ls_database = 'database_test'
ls_Server = ProfileString( 'Accfix.ini', ls_database, 'Server',
'@pcb' )
ls_UserName = ProfileString( 'Accfix.ini', ls_database, 'Username', 'accfix_g' )
ls_PassWord = ProfileString( 'Accfix.ini', ls_database, 'Password', 'accfix_g' )
// 設定
SQLCA.DBMS ="O73 ORACLE 7.3"
SQLCA.ServerName = ls_Server
SQLCA.LogId = ls_UserName
SQLCA.LogPass = ls_PassWord