DOMINO远程连接Oralce (ADO)

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

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值