添加服务器链接

原创 2007年09月30日 08:48:00
Sub Click(Source As Button)
 On Error Goto ef
 Dim session As New NotesSession
 Dim dbNAB As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument, docTemp As NotesDocument
 Dim strSearch As String
 
 Set dbNab = session.GetDatabase( "", "")
 
 Call dbNab.Open( "", "names.nsf" )
 
 strSearch = { ( form = "local" | form = "remote" ) & ( Destination = "TEST02.CN.ABB.COM/SRV/ABB" | Destination = "CN=TEST02.CN.ABB.COM//OU=SRV/O=ABB" ) }
 
 Set dc = dbNAB.Search( strSearch, Nothing, 0 )
 
 If dc.count > 0 Then
  Set doc = dc.getfirstdocument
  
  With doc
   .Destination = "TEST02.CN.ABB.COM/SRV/ABB"
   .LanPortName = "TCPIP"
   .PortName = "TCPIP"
   .OptionalNetworkAddress = "10.138.250.27"
   .PhoneNumber = "10.138.250.27"
   .Owner = session.username
   .documentaccess = "[NetModifier]"
   Call .computewithform( True, False )
   Call .save( True, True )
   Msgbox "Connection document has been updated"   
  End With
  Set doc = dc.GetNextdocument( doc )
  Do Until doc Is Nothing
   Set docTemp = doc
   Set doc = dc.GetNextdocument( doc )
   Call docTemp.remove( True ) 
  Loop
 Else
  Set doc = dbNab.CreateDocument  
  
  With doc
   .form = "local"
   .type = "Connection"
   .connectionLocation = "*"
   .connectionType = "0"
   .Source = "*"
   .Destination = "TEST02.CN.ABB.COM/SRV/ABB"
   .LanPortName = "TCPIP"
   .PortName = "TCPIP"
   .OptionalNetworkAddress = "10.138.250.27"
   .PhoneNumber = "10.138.250.27"
   .Owner = session.username
   .documentaccess = "[NetModifier]"
   Call .computewithform( True, True )
   Call .save( True, True )
  End With
  Msgbox "Connection document has been created"
 End If
 
 Exit Sub
ef:
 Msgbox "error is" & Error$ & "”;and in line " & Erl, 16, "Error"
 Exit Sub
 
End Sub 

相关文章推荐

JAVA 单个或多个下载服务器上带超链接的文件 并压缩后下载

注:这里下载的文件是服务器上的文件,即:http://192.16.80.94/wav/20150625/48/20150625140223_48_8003_8002_to_18064000047.w...

用Tcp协议链接服务器.rar

  • 2008年07月06日 10:07
  • 66KB
  • 下载

SQL SERVER服务器链接连接(即sql server的跨库连接)

一、如果你要访问的数据库,不在同一个服务器上,那么需要用服务器链接: EXEC sp_addlinkedserver @server='dblink名称', @srvproduct='', @pro...

sql server 链接远程服务器的方法

  • 2012年08月13日 11:35
  • 520KB
  • 下载

cas服务器和客户端下载链接

  • 2013年03月22日 10:31
  • 12KB
  • 下载

sqlserver使用链接服务器导出表数据到本地库

任务: 服务器上有一个数据库A,现在需要把服务器上该A数据库中的某个表的全部信息导出到本地库B 方法: 1.使用Microsoft SQL Server Management Studi...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:添加服务器链接
举报原因:
原因补充:

(最多只允许输入30个字)