22,210
社区成员
发帖
与我相关
我的任务
分享
//读取ini文件信息
s_database_org= ProfileString("configure.ini", "database", "database","")
s_loginid_org= ProfileString("configure.ini", "database", "logid","")
s_password_org= ProfileString("configure.ini", "database", "logpass","")
s_server_org= ProfileString("configure.ini", "database", "servername","")
// Profile credit
SQLCA = Create Transaction
SQLCA.DBMS = "MSSQL SQL Server 2000"
SQLCA.Database = s_database_org
SQLCA.ServerName = s_server_org
SQLCA.LogId = s_loginid_org
SQLCA.logpass = s_password_org
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
sqlca.autocommit=true;
connect using sqlca;
execute immediate :s_readuncommit;
sqlca.autocommit=false;