home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999_B.iso / Lotus123 / GERMAN / LOTUS006.DSK / SCRIPTS / CONNECT.TPL < prev    next >
Text File  |  1996-10-09  |  1KB  |  33 lines
  1. 'Connection example
  2.     Dim Con As New Connection
  3.     Dim Qry As New Query
  4.     Dim RS As New ResultSet
  5.     Dim LName As String
  6.     
  7.     'Connect to your db2 database. An exclamation point is required in front
  8.     'of the database name.
  9.     If (Con.ConnectTo ("ODBC Data Sources","qe","db2www", "!Db2wwwvd")<>False) Then
  10.         Set Qry.Connection = con
  11.         'Select the tablename
  12.         Qry.Tablename = "QE.ACTORS"
  13.         'Specify a SQL statement to run (Optional)
  14.         Qry.Sql = "Select LASTNAME,  FIRSTNAME, BIRTHDATE From QE.ACTORS Where LASTNAME Like 'S%'"
  15.         Set RS.Query = Qry
  16.         
  17.         'If the query was successful
  18.         If ((RS.Execute)<>False) Then
  19.             N = RS.NumColumns
  20.         'Print the values for the column LASTNAME to the IDE output window
  21.             For i= 1 To Rs.NumRows
  22.                 LName = Rs.GetValue("LASTNAME")
  23.                 Print LName
  24.                 RS.NextRow
  25.             Next
  26.         'Otherwise let me know that there was a problem connecting
  27.         Else
  28.             Messagebox "The query did not run successfully.", 0, "Query Execution"
  29.         End If
  30.     End If
  31.     'If I don't disconnect here, I will have trouble reconnecting later.
  32.     CON.DISCONNECT
  33.