Q5/ws_objects/Ew_mainface.pbl.src/f_connectdb_id.srf

$PBExportHeader$f_connectdb_id.srf
global type f_connectdb_id from function_object
end type

forward prototypes
global function integer f_connectdb_id (ref string arg_msg)
end prototypes

global function integer f_connectdb_id (ref string arg_msg);Int rslt = 1

//id

id_sqlca  = CREATE Transaction



//id_sqlca.DBMS =   'OLE DB'
//id_sqlca.Database =  sqlca.Database
//id_sqlca.UserID =  sqlca.UserID
//id_sqlca.DBPass =  sqlca.DBPass
//id_sqlca.LogID =  sqlca.LogID
//id_sqlca.LogPass =  sqlca.LogPass
//id_sqlca.ServerName =  sqlca.ServerName
//id_sqlca.DBParm =  sqlca.DBParm
//id_sqlca.Lock = "RC"
//id_sqlca.AutoCommit = false
//
//id_sqlca.DBParm   =   "PROVIDER='SQLOLEDB',DATASOURCE='"   +   sqlca.ServerName   +     &
//											"',PROVIDERSTRING='DataTypeCompatibility=80;database="   +   sqlca.Database   +      &
//										";"+"',TIMEOUT=160,OJSyntax='ANSI',PBTrimCharColumns='Yes',PBMaxBlobSize=102400­0,Recheck"
//
//

id_sqlca.DBMS =   "SNC SQL Native Client(OLE DB)"
id_sqlca.Database =  sqlca.Database
id_sqlca.UserID =  sqlca.UserID
id_sqlca.DBPass =  sqlca.DBPass
id_sqlca.LogID =  sqlca.LogID
id_sqlca.LogPass =  sqlca.LogPass
id_sqlca.ServerName =  sqlca.ServerName
id_sqlca.Lock = "RU"
id_sqlca.AutoCommit = false

id_sqlca.DBParm   =    "Database= '" + sqlca.Database + "',PBTrimCharColumns='YES'"


CONNECT USING id_sqlca;
IF id_sqlca.SQLCode < 0 THEN
	arg_msg = "取ID模块数据连接失败!" + id_sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

String strkey
strkey = 'I~'m LongJoe'
EXECUTE Immediate :strkey USING id_sqlca;

EXECUTE IMMEDIATE "set transaction isolation level READ UNCOMMITTED" USING id_sqlca;
execute immediate  'SET   DEADLOCK_PRIORITY   low'  USING id_sqlca; 

IF id_sqlca.SQLCode <> 0 THEN
	HALT;
END IF


ext:

RETURN rslt



end function