home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999_B.iso / Lotus123 / ITALIAN / LOTUS006.DSK / SCRIPTS / CONN2.TPL < prev    next >
Encoding:
Text File  |  1996-10-09  |  2.7 KB  |  70 lines
  1. 'Notes connect
  2.        'Declare my variables
  3.     Dim con As New Connection
  4.     Dim qry As New Query
  5.     Dim rs As New ResultSet
  6.     Dim c As Integer
  7.  
  8.     'Make my connection:
  9.     'In this example we are connecting to Lotus Notes-Server to the sample database CALLTRAK.NSF
  10.     'The two empty parameters after the datasource type are for userid and password
  11.     'If we leave those out, as in this case, we will get prompted by Notes for the password
  12.     'associated with the local userid file.
  13.     'The fourth parameter is the syntax for the connection string to the server and the database name
  14.     'To determine the correct server name, choose File/Open.  Under Files of Type, choose Lotus Notes - Server (*).  
  15.     'In the Open dialogue, a list of valid server names will appear.  
  16.     'The server used in this example appears as follows:
  17.     
  18.     'CN=Approach_OU=SJC_OU=A_O=Lotus
  19.     
  20.     'In the Approach script, the server name must be modified to appear as follows:
  21.     
  22.     'CN=Approach/OU=SJC/OU=A/O=Lotus
  23.     
  24.     'A forward slash must replace any underscores in the server name.
  25.     'The server name precedes the database name.  An exclamation point is used as a separator between the 
  26.     'server and database names.  The path specified for the database is the same path that is shown in the open
  27.     'dialogue.
  28.     
  29.     If con.ConnectTo ("Lotus Notes - Server", , , "CN=Approach/OU=SJC/OU=A/O=Lotus!EXAMPLES\CALLTRAK.NSF") Then
  30.         Set qry.Connection = con
  31.         'Define the view or form to be opened
  32.         'In this case we choose User Profile from the Call Tracking database
  33.         'To determine the form name, go to Notes - open the form in design mode.
  34.         'In the infobox the Name will be listed as 
  35.         '          2. User Profile | UP
  36.         'The valid name is after the pipe (|).  
  37.         qry.Tablename = "UP"
  38.         Set rs.Query = qry
  39.         'If the query was successful
  40.         If ((rs.Execute)<>False) Then
  41.             'Get all of the column names used in the Notes form:
  42.             c = 1   'Counter must start at 1 to retreive the column names
  43.             While c <= rs.numcolumns
  44.                 Print rs.fieldname(c)
  45.                 c=c+1
  46.             Wend
  47.             'End of retreiving column names
  48.             
  49.             rs.FirstRow
  50.             c = 1  ' Counter must start at 1 to retreive values
  51.             While c <= rs.numrows
  52.                 'Create a new record in Approach
  53.                 CurrentDocument.window.newrecord
  54.                 'Place the contents of the field "Organization" from my Notes form to
  55.                 'my Approach field, named "org" on the form "Form1"
  56.                 CurrentDocument.Form1.body.org.text = rs.Getvalue("Organization")
  57.                 'Go to the next row of data in Notes
  58.                 rs.nextrow
  59.                 c = c + 1
  60.             Wend
  61.             
  62.         'Otherwise let me know that there was a problem connecting
  63.         Else
  64.             Messagebox "The query did not run successfully.", 0, "Query Execution"
  65.         End If
  66.         'Must disconnect here - otherwise there may be problems reconnecting later
  67.         CON.DISCONNECT
  68.     End If
  69.     
  70.