vb6怎么调用sql server2000？

Question

vb6怎么调用sql server2000？在sql server2000中做好了数据库，现在要用vb6调用，怎么办？

Answer 1

dim tmpac as new adodb.connection
dim tmprs as new adodb.recordset
'连接数据库
with tmpac
   If .State = adStateOpen Then .Close
   .ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=;database=数据库名
   .CommandTimeout = 120
   .Open
End With'显示数据
With tmprs
    If .State = adStateOpen Then .Close
    .Open "select * from 表",tmpac, adOpenKeyset, adLockReadOnly
end withset mshflexgrid.datasource=tmprs