home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW08_S5.LSS < prev    next >
Text File  |  1996-08-04  |  2KB  |  46 lines
  1. Sub CreateDocument
  2. ' * RUNTIME DEPENDENCIES
  3. ' * Files and paths: This script depends on an existing dBASE IV
  4. ' * database in the directory: 
  5. ' * C:\LOTUS\WORK\APPROACH\BLANK.DBF
  6.     
  7. ' Declare the necessary variables.
  8.     Dim MyConnection As New Connection   ' Connection to a table on disk
  9.     Dim MyQuery As New Query             ' Query used to extract data from
  10.                                      ' the table
  11.     Dim MyResultSet As New ResultSet     ' Result set to contain extracted
  12.                                      ' data in the new document
  13.     Dim MyDoc As Document                ' New document object
  14.     
  15. ' Specify the type of database (dBASE IV) to connect to as the source
  16. ' for the new document.
  17.     If MyConnection.ConnectTo("dBASE IV") Then 
  18.    ' Specify the name of the connection MyConnection that the
  19.    ' query MyQuery uses to create the new document.
  20.         Set MyQuery.Connection = MyConnection
  21.         
  22.    ' Specify the full path and table name to be used as source for
  23.    ' the new document.
  24.         MyQuery.TableName = "C:\LOTUS\WORK\APPROACH\BLANK.DBF"
  25.         
  26.    ' Add a statement to specify a subset of records to be returned
  27.    ' in the result set here. "MyQuery.SQL = ..."
  28.         
  29.    ' Specify the result set in the new database to receive the new
  30.    ' records from the query.
  31.         Set MyResultSet.Query = MyQuery
  32.         
  33.    ' If the connection and query succeed, create the new document.
  34.         If (MyResultSet.Execute)Then
  35.             Set MyDoc = New Document(MyResultSet)
  36.         End If   ' If the result set was successful.
  37.       ' Error handling for a failed result set would go here.
  38.         
  39.    ' Disconnect from the source table.
  40.         MyConnection.Disconnect
  41.     End If   ' If the connection was successful.
  42.    ' Error handling for a failed connection would go here.
  43.     
  44. End Sub
  45.  
  46.