개발 참고자료

접속환경 Registry값을 설정 한후에 SQLCA 설정




// integer gf_Set{DBConnect}Environment()


// DB 를 사용하기위한 환경을 설정 합니다.
String ls_RegKey, ls_RegValueNm, ls_RegValues
integer i_rtn
//1. SQL Server 클라이언트 네트워크 유틸리티 등록
ls_RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo"
ls_RegValueNm = {"DBConnect"}


ls_RegValues = "DBMSSOCN,{URL OR IP },{PORT}" // 정규포트가 아니면 반드시 Port를 넣어준다.
i_rtn = RegistrySet ( ls_RegKey, ls_RegValueNm, RegString!, ls_RegValues )
//2. ODBC Data Sources 설정
if i_rtn > 0 then
ls_RegKey = "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources"
ls_RegValueNm = {"ODBC_DNS_NAME"}
ls_RegValues = "SQL Server"
i_rtn = RegistrySet ( ls_RegKey, ls_RegValueNm, RegString!, ls_RegValues )
end if
//3. {ODBC_DNS_NAME}에 대한 ODBC DNS 설정
if i_rtn > 0 then
ls_RegKey = "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\{ODBC_DNS_NAME}"
end if
if i_rtn > 0 then
ls_RegValueNm = "Driver"
ls_RegValues = "C:\WINDOWS\system32\SQLSRV32.dll"
i_rtn = RegistrySet ( ls_RegKey, ls_RegValueNm, RegString!, ls_RegValues )
end if
if i_rtn > 0 then
ls_RegValueNm = "Description"
ls_RegValues = "DB Connect관리"
i_rtn = RegistrySet ( ls_RegKey, ls_RegValueNm, RegString!, ls_RegValues )
end if
if i_rtn > 0 then
ls_RegValueNm = "Server"
ls_RegValues = {ODBC_DNS_NAME}
i_rtn = RegistrySet ( ls_RegKey, ls_RegValueNm, RegString!, ls_RegValues )
end if
if i_rtn > 0 then
ls_RegValueNm = "Database"
ls_RegValues = {"억세스 하고자하는 DB NAME"}
i_rtn = RegistrySet ( ls_RegKey, ls_RegValueNm, RegString!, ls_RegValues )
end if
if i_rtn > 0 then
ls_RegValueNm = "LastUser"
ls_RegValues = {"접속 사용자 아이디"}
i_rtn = RegistrySet ( ls_RegKey, ls_RegValueNm, RegString!, ls_RegValues )
end if
return i_rtn




/// SQLCA 설정 하기


SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN={ODBC_DNS_NAME};UID={id};PWD={pw}',PBCatalogOwner='dbo'"[출처] MS-SQL ODBC로 접속 하기 (파워빌더 커뮤니티(PBExpertClub)) |작성자 Real파빌Shin