개발 참고자료

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


if iCnt = 1 then
Return 1
end if


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


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



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