VB-RDS (Remote Data Service) 사용

<레지스트리 설정>

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC\Parameters\ADCLaunch

아래에 해당 컴포넌트의 ProgID(interfaceid.classid) 이름으로 새로운 키를 생성한다.

<IIS 설정>

IIS의 MSADC 가상디렉토리에 '실행'권한을 주고

접근할 서버들의 IP주소에 대해 액세스를 허용해준다. (기본 액세스 : 거부)

<참조할 클래스>

Microsoft Remote Data Object 2.0 (msrdo20.dll) 또는,

Microsoft Remote Data Services 2.7 Library (msadco.dll) 또는,

Microsoft Remote Data Services Server 2.7 Library (msadcf.dll)

<RDS.DataSpace : 클라이언트 EXE>

Private Sub Command1_Click()

Dim RdsDS As Object

Dim obj As Object

Dim result As Long 

Set RdsDS = CreateObject("RDS.DataSpace")

Set obj = RdsDS.CreateObject("ProjRdsServer.ClsRdsServer", "http://211.91.151.1") 

result = obj.Calculate(2, 2)

MsgBox result 

Set obj = Nothing 

End Sub

<RDS.DataSpace : 서버 IIS DLL>

Public Function Calculate(ByVal in1 As Long, ByVal in2 As Long) As LONG

On Error GoTo ErrorHandler 

Calculate = in1 + in2 

Exit Function 

ErrorHandler:

MsgBox "에러입니다."

GetPageCount = -1 

End Function

<RDS.DataControl : 클라이언트 EXE>

Private Sub Form_Load()

Dim sql As String

Dim objDC As New RDS.DataControl

Const ConnectString As Variant = "Provider=OraOLEDB.Oracle;Data Source=kjyooDB;User ID=scott;Password=tiger;"

sql = "select empno, ename from emp"

objDC.Connect = ConnectString

objDC.Server = "http://myServer" 

objDC.sql = sql

objDC.FetchOptions = adcFetchUpFront

objDC.ExecuteOptions = adcExecSync

objDC.Refresh

DataGrid1.DataSource = objDC

End Sub