如何连接SQLServer数据库

gnipnehc

Sub main
'  Declarations
'
   Dim destination(1 To 50, 1 To 125)  As Variant
   Dim prompt As integer
   Dim retcode as Variant
   Dim query as String
   Dim outputStr as String
  
'  The following will open the datasource SBLTESTW and execute the query
'  specified by query and return the results in destination
'   
   query = "select * from class"     
   retcode = SQLRequest("DSN=SBLTESTW;UID=DBA;PWD=SQL",query,outputStr,prompt,0,destination())
End Sub