home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW08_S1.LSS < prev    next >
Text File  |  1996-08-01  |  4KB  |  101 lines
  1. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  2. ' Declare objects for a Connection, Query, and ResultSet.
  3.     Dim MyConnection As New Connection
  4.     Dim MyQuery As New Query
  5.     Dim MyResultSet As New ResultSet
  6.     
  7. ' Declare a set of variables for an array, and for the parameters of
  8. ' the above objects.
  9.     Dim MyArray As Variant            ' Array for temporary storage.
  10.     Dim MyPath As String              ' Data source path.
  11.     Dim MyDatabaseSource As String    ' Current data source type.
  12.     Dim MyDatabase As String          ' Database name.
  13.     Dim MyTable As String             ' Table name.
  14.     Dim MyUserId As String            ' User login name.
  15.     Dim MyPassword As String          ' User password.
  16.     Dim i As Integer                  ' MyArray index.
  17.     Dim LastName As String            ' Data retrieved from table.
  18.     Dim FirstName As String           ' Data retrieved from table.
  19.     
  20. ' Print a list of data source types available in the output panel
  21. ' of the IDE. Use this list to determine the exact string required
  22. ' (in the ConnectTo method) to make the connection to the data source.
  23.     MyArray = MyConnection.ListDataSources()
  24. ' Use LotusScript functions Lbound (lower bound) and Ubound (upper
  25. ' bound) to determine the limits of the data source types array.
  26.     For i = Lbound(MyArray) To Ubound(MyArray)
  27.    ' Print the data source types to the output panel of the IDE.
  28.         Print "Data source("i") = "MyArray(i)
  29.     Next
  30.     
  31. ' Set the parameters for the connection object. 
  32. ' Tip: You could use an input box to get this information from the 
  33. ' user and connect to whatever the user specifies.
  34.     MyDatabaseSource = "Lotus Notes - Local"
  35. ' Change this path to match your operating system.
  36.     MyPath = "C:\NOTES\DATA\"
  37.     MyDatabase = "NAMES.NSF"
  38. ' This table has no user or password requirements, so these strings
  39. ' are blank.
  40.     MyUserId = ""
  41.     MyPassword = ""
  42.     
  43. ' Connect to the database.
  44.     If MyConnection.ConnectTo(MyDatabaseSource, MyUserId, MyPassword,_  
  45.     MyPath & MyDatabase) Then
  46.    ' List the available tables in the database.
  47.         MyArray = MyConnection.ListTables()
  48.         For i = Lbound(MyArray) To Ubound(MyArray)
  49.       ' Print the data source types to the output panel of the IDE.
  50.             Print "Table("i") = "MyArray(i)
  51.         Next
  52.         
  53.    ' Specify the table that data will be extracted from.
  54.         MyTable = "People"
  55.    ' Set the Connection property of the Query object to 
  56.    ' the current connection.
  57.         Set MyQuery.Connection = MyConnection
  58.    ' Specify the table to be searched, including path.
  59.    ' The ampersand (&) concatenates pieces of the string.
  60.         MyQuery.TableName = MyPath & MyDatabase & "\" & MyTable
  61.    ' Set the Query property of the result set to the current query.
  62.         Set MyResultSet.Query = MyQuery
  63.    ' Get the data from the table and put it in the result set.
  64.         
  65.         
  66.         If (MyResultSet.Execute) Then
  67.       ' Make sure there is data in the table.
  68.             If (MyResultSet.NumRows) Then
  69.          ' Start at the first row.
  70.                 MyResultSet.FirstRow
  71.          ' Loop through the records and get the values from
  72.          ' the First_Name and Last_Name fields.
  73.                 Do
  74.                     LastName = MyResultSet.GetValue("Last_Name")
  75.                     FirstName = MyResultSet.GetValue("First_Name")
  76.             ' Print the data to the output panel of the IDE.
  77.                     Print "Person" MyResultSet.CurrentRow "in the table is "_ 
  78.                     &FirstName " " &LastName
  79.          ' Continue looping until there are no more rows.
  80.                 Loop   While MyResultSet.NextRow            
  81.             Else
  82.          ' If the table is empty, warn the user
  83.                 Messagebox "The table is empty.", MB_OK + _
  84.                 MB_ICONINFORMATION + MB_APPLMODAL, "Empty Table"
  85.             End If   ' If there is data in the table.
  86.         Else
  87.       ' If the result set was not successful, warn the user.
  88.             Messagebox "The query did not succeed. Check the " & _
  89.             "connection.", MB_OK + MB_ICONINFORMATION + MB_APPLMODAL, _
  90.             "Unsuccessful Query"
  91.         End If   ' If the result set was successful.
  92.         Call MyConnection.Disconnect()
  93.         
  94.     Else
  95.    ' If the connection was not successful, warn the user.
  96.         Messagebox "Connection failed", MB_OK + MB_ICONINFORMATION + _
  97.         MB_APPLMODAL, "Connection"
  98.         
  99.     End If   ' If the connection was successful.
  100. End Sub
  101.