VB中用ADO连接excel2003的方法

VB中用ADO连接excel2003的方法
想用VB直接调用显示excel2003中的数据，结果老是不成功，试验了一下午，终于找到一个简单的办法：
1.先在窗体中添加一个ADODC控件和MSHFlexGrid控件（DataGrid控件也可以，用来显示数据）。

（当然，这几个控件都要先在部件菜单中添加。

）
2.设置ADODC控件的属性：（关键步骤）
（1）在ADODC控件上右击，选择ADODC属性－通用－使用连接字符串，点击后面的“生成”。

（2）在弹出的数据链接属性窗口中，提供程序－选中Microsoft Jet 4.0 OLE DB Provider，点击下一步。

（3）连接－选择或输入数据库名称------点后面的3个点的按钮，选择要链接的excel文件。

注意：默认只显示mdb扩展名的文件，选中“所有文件”，就可以看到excel文件了。

（或者直接输入excel文件的路径）先不要点确定，点击“所有”选项卡。

看下一步
（4）选中"Extended Properties"这一项，点击下面的“编辑值”按钮，输入“excel 8.0”,确定。

OK，ADODC控件的ConnectionString属性就设置完了（也可以直接在右边的属性窗口中设置，一样的。

）。

现在找到刚才有测试连接的那个页面，点测试连接，显示“测试连接成功”。

我们已经成功一半了。

3.设置ADODC控件的RecordSource属性：
命令类型选择1－adCmdText，命令文本输入：“select* from [表1$] ” ,确定。

这一段命令文本是一句SQL查询语句，意思是查询表1中的所有内容。

（你也可以根据需要进行修改。

）
至此，ADODC控件的关键属性设置完成。

下面只需要把MSHFlexGrid控件的DataSource属性设置成ADODC1，就可以在MSHFlexGrid控件中显示表1中的数据了。

（具体显示什么数据，由那条SQL语句决定，当然你可以在程序运行时修改。

）。