Sub Initialize
On Error Goto errhandle
Dim ConnectString As String
ConnectString="Provider=OraOLEDB.Oracle;Password=密码;User ID=帐号;Data Source=""(DESCRIPTION=(ADDRESS_LIST=(ADDRESS = (PROTOCOL = TCP)(HOST = 远程服务器IP)(PORT = 端口)))(CONNECT_DATA=(SERVICE_NAME = 服务名)))"";Persist Security Info=True"
Dim sql As String
sql=|SELECT * FROM APPS.HR_ORGANIZATION_UNITS|
Set con=CreateObject( "Adodb.Connection")
con.Open ConnectString
Set RSt = CreateObject("ADODB.RecordSet")
Rst.Open sql , con, 3,3
RSt.MoveFirst
While RSt.EOF<>True
Msgbox RSt.Fields("CUSNAME").value
RSt.MoveNext
Wend
exitsub:
Set RSt=Nothing
If Typename(con)="OBJECT" Then
con.Close
End If
Set con = Nothing
Exit Sub
errhandle:
Msgbox "t111:(" & Erl() & ")" & Error()
Goto exitsub
End Sub
DOMINO远程连接Oralce (ADO)
最新推荐文章于 2020-05-11 21:07:17 发布