home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / sdk / dbmsg / sql / vbsql / iniexitw.bas < prev    next >
Encoding:
BASIC Source File  |  1996-04-03  |  276 b   |  22 lines
  1. Sub ExitApplication ()
  2.  
  3. Rem
  4. Rem Exit SQL, then exit the application.
  5. Rem
  6.  
  7.    SqlExit
  8.    SqlWinExit
  9.    End
  10.  
  11. End Sub
  12.  
  13. Sub InitializeApplication ()
  14.  
  15. Rem
  16. Rem Initialize the connection to SQL Server
  17. Rem
  18.     SqlConn = 0
  19.     DBLIB_VERSION$ = SqlInit$()
  20. End Sub
  21.  
  22.