求在与SQL SERVER连接的模块

Question

各位大侠，求在EXCEL中用VBA从数据库（SQL 2000）中取一个表的所有值放入sheet中
不知道代码模式，知道的能不能马上贴出来呀？
谢谢~~

Answer 1

http://community.csdn.net/Expert/topic/4621/4621548.xml?temp=.6902429

Answer 2

ODBC方法:工程-->引用-->microsoft  activeX  Data  Object  2.6  Library  
 
dim  conn  as  new  adodb.connection  
dim  rs  as  new  adodb.recordset  
conn.open  "字符串1"  
rs.open  "字符串2",adopenstatic,adlockoptimistic  
 
'字符串1:用ADO控件的属性中,生成字符串方法,选择数据库的类型,名称,用户名,密码.把生成的字符串COPY到字符串1的位置,然后把ADO控件删除.  
'字符串2:是SQL语句.  
 
---------------------------------------------------------------  
 
'首先引用Microsoft  Activex  Data  Objects  2.x  Library    
Dim  objcon  As  New  ADODB.Connection  
Dim  objrs  As  New  ADODB.Recordset  
objcon.Open  "Provider=sqloledb.1;user  id=sa;password=密码;Initial  Catalog=数据库名;Data  Source="  
objrs.Open  "select  *  from  表  ",  objcon,  3,  1  
'再部件中添加DataGrid控件  
Set  DataGrid1.DataSource  =  objrs  
 
 
'access  
Dim  objcon  As  New  ADODB.Connection  
Dim  objrs  As  New  ADODB.Recordset  
objcon.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Jet  OLEDB:database  password=basic;Data  Source="  &  App.Path  &  "\infoTable.mdb"  
objrs.Open  "select  *  from  infoTable  ",  objcon,  3,  1  
Set  DataGrid1.DataSource  =  objrs