2개 이상의 디비 접속

가끔 작업을 하다 보면 불가피(?)하게 2개의 디비에 접속을 해야할 경우가 생깁니다.

특히 sms 보내기 등 할때 말이죠.. ㅠㅠ

파빌 9.0 + ms sql2000 기준입니다.. 다른 디비는 접속 스크립트를 변경하시면..되겠죠..

배포시에는.. 해당 디비의 접속 dll 이 들어가야 한답니다..--;;

 

 

//글로벌 변수

TRANSACTION SQLCA, SQLCA_sms //사용할 트랜젝션 선언해줍니다..

 

//어플리케이션 오픈 이벤트

// 1번디비
SQLCA = Create Transaction // 트랜젝션 생성합니다..

SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "디비명"
SQLCA.LogPass = "페스워드"
SQLCA.ServerName = "서버주소"
SQLCA.LogId = "로그인아뒤"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""

connect using sqlca;

if sqlca.sqlcode <> 0 then
 messagebox('error', sqlca.sqlerrtext)
 return
end if

 

//sms디비
sqlca_sms  = Create Transaction

sqlca_sms.DBMS = "MSS Microsoft SQL Server"
sqlca_sms.Database = "디비명"
sqlca_sms.LogPass = "페스워드"
sqlca_sms.ServerName = "서버주소"
sqlca_sms.LogId = "로그인아뒤"
sqlca_sms.AutoCommit = False
sqlca_sms.DBParm = ""

connect using sqlca_sms;

if sqlca_sms.sqlcode <> 0 then
 messagebox('error', sqlca_sms.sqlerrtext)
 return
end if

 

open(w_main) //오픈윈도우..

 

// 사용할 페이지에서..변수 선언 제외했음..

select count(*) into :변수 from 테이블 using sqlca;  //1번 디비 연결이용

 

select count(*) into :변수 from 테이블 using sqlca_sms;  //sms 디비 연결 이용..