home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP35 / 309X3703.TXT < prev    next >
Encoding:
Text File  |  1998-05-03  |  879 b   |  29 lines
  1.  
  2. Dim gTest As New RDO.rdoConnection   'Global RDO connection used by all the forms
  3.  
  4. Private Sub Form_Load()
  5.  
  6. Dim rsTest As RDO.rdoResultset       'Define a local RDO Resultset
  7.  
  8. 'Set up the RDO connection parameters. These
  9. 'Will vary from one SQL Server to another.
  10. With gTest
  11.     .Connect = "uid=sa;pwd=;DSN=PubsDB;"
  12.     .CursorDriver = rdUseOdbc
  13.     .EstablishConnection rdDriverNoPrompt
  14. End With
  15.  
  16. 'Fill combo box
  17. Set rsTest = gTest.OpenResultset("Select au_id from pubs..authors", rdOpenStatic)
  18.  
  19. 'Open the recordset using the global connection
  20. Set rsTest = gTest.OpenResultset("Select * from pubs..authors", rdOpenStatic)
  21.  
  22. 'Set the data control resultset
  23. 'This data control could be bound to a grid or
  24. 'other controls, however it will not use a new
  25. 'user connection. Instead it will use the global connection.
  26. Set MSRDC1.Resultset = rsTest
  27.  
  28. End Sub
  29.