VB中用ADO连接excel2003的方法.doc

VB中用ADO连接excel2003的方法
想用VB直接调用显示excel2003中的数据，结果老是不成功，试验了一下午，终于找到一个简单的办法：
1.先在窗体中添加一个ADODC控件和MSHFlexGrid控件（DataGrid控件也可以，用来显示数据）。（当然，这几个控件都要先在部件菜单中添加。）
2.设置ADODC控件的属性：（关键步骤）
（1）在ADODC控件上右击，选择ADODC属性－通用－使用连接字符串，点击后面的“生成”。

（2）在弹出的数据链接属性窗口中，提供程序－选中MicrosoftJet4.0OLEDBProvider，点击下一步。

（3）连接－选择或输入数据库名称------点后面的3个点的按钮，选择要链接的excel文件。注意：默认只显示mdb扩展名的文件，选中“所有文件”，就可以看到excel文件了。（或者直接输入excel文件的路径）先不要点确定，点击“所有”选项卡。
看下一步

（4）选中"ExtendedProperties"这一项，点击下面的“编辑值”按钮，输入“excel8.0”,确定。

OK，ADODC控件的ConnectionString属性就设置完了（也可以直接在右边的属性窗口中设置，一样的。）。现在找到刚才有测试连接的那个页面，点测试连接，显示“测试连接成功”。我们已经成功一半了。
3.设置ADODC控件的RecordSource属性：
命令类型选择1－adCmdText，命令文本输入：“select*from[表1$]”,确定。
这一段命令文本是一句SQL查询语句，意思是查询表1中的所有内容。（你也可以根据需要进行修改。）

至此，ADODC控件的关键属性设置完成。
下面只需要把MSHFlexGrid控件的DataSource属性设置成ADODC1，就可以在MSHFlexGrid控件中显示表1中的数据了。（具体显示什么数据，由那条SQL语句决定，当然你可以在程序运行时修改。）