개발 참고자료

Long m, n, p
Long iReturn = 1
Long iCnt



if jTier then



select count(*) into :iCnt from dual
using atr;

if iCnt = 1 then
Return 1
end if

if FileExists("Temp.mdb") = false then
Messagebox("확인","실행하고 있는 디렉토리에 Temp.mdb 파일이 없습니다.")
HALT CLOSE
end if


atr.DBMS = "ODBC"
atr.AutoCommit = False
atr.DBParm="ConnectString='DRIVER={Microsoft Access Driver (*.mdb)};DBQ=Temp.mdb;Exclusive=0;UID=sa;PWD=dba',DisableBind=1"

connect using atr;
if atr.sqlcode <> 0 then
Messagebox("실패", "데이터베이스 접속 실패!~r~n~r~n" + atr.sqlErrText )
iReturn = -1
end if


else

atr.DBMS = "O90 Oracle9i (9.0.1)"
atr.LogPass = "XXX"
atr.LogId = "XXX"
atr.AutoCommit = False
atr.DBParm = "DisableBind=1"


connect using atr;
if atr.sqlcode <> 0 then
Messagebox("실패", "데이터베이스 접속 실패!~r~n~r~n" + atr.sqlErrText )
iReturn = -1
end if


end if


Return iReturn