vb6.0中使用ado控件连接excel如何查询？

踪迹心羽 2014-01-07 06:58:53

万分感谢
这是代码窗口：
Private Sub Command1_Click()
Adodc1.RecordSource = sql
sql = "select * from 1"
Adodc1.Refresh
End Sub

这是ado属性窗口

主要是想问一下红色框里应该填什么，我觉得是红色框区域内填的有错误
是我弄错了，还是代码的sql语句有问题？
拜托诸位解决
谢谢

...全文

496 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

of123 2014-01-08

打赏
举报

你确认是连接 Excel 数据表？


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\工作簿\linshi1\1.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

Adodc1.RecordSource = "SELECT TOP 1 * FROM [Sheet1$]"

Adodc1.Refresh

踪迹心羽 2014-01-07

打赏
举报

补充一下，用的是Microsoft.Jet.OLEDB.4.0

VB利用ADO控件连接ACCESS数据库

VB 数据库编程之 ADO 连接数据库实例 "这里先说说ADO的ACCESS数据库连接吧，两种。 " "　　1.ADO控件连接 " "　　"工程"菜单 "部件..."：Microsoft ADO Data Control 6.0 (SP6) " "(OLEDB) " "并将Adodc数据控件绘入窗体。 " "右击Adodc数据控件属性使用连接字符串生成 Microsoft Jet 4.0 OLE " "DB Provider 数据位置找到要连接的ACCESS数据库文件…… " "　　Adodc数据控件的RecordSource属性为"2 - " "adcmdTable"和你要连接的表名。 " "控件的引用实例如下： " "'组合框（Combo）控件列表用某字段数据记录填充范例 " "'在窗体Load事件或Combo的相关事件中写入 " "'循环1到记录总数 " "For i = 1 To Adodc1.Recordset.RecordCount " "　'如果不在记录集结尾则 " "　If Not Adodc1.Recordset.EOF Then " "　　'组合框增加一行

手把手教您如何快速开发一个属于自己的Excel插件，制作Excel众多功能，办公自动化，高效率办公，开发一个个性化的excel插件。我会从头到尾开始教学，开发过程常遇到什么问题，该如何解决。记录我开发excel插件的案例和问题，将开发经验分享给大家

VB6.0的ADO控件与SQL Server2000的数据交换.pdf

本控件系VB6.0编写，可以直接打印MSHFlexGrid控件（如果控件的数据中有图片，图片也会打印出来）、ListView控件、ADO记录、DAO记录、Datagrid控件、Flexgrid控件的内容，省时省力。对MSHFlexGrid控件的内容，控件提供多种打印方式，如多栏打印、分页打印、自动缩放打印、工资条样式打印等功能。控件提供textout函数输出文本内容，cellout函数输出一个单元格（与textout函数的区别是有边框），此两个函数都具有自动换页功能，即如果输出的文本大于1页，可以自动增加新页并打印到下一页。控件还提供了输出图片的功能，使用CellOutPicture可能打印图片。本控件可以打印眉页和页脚，还可以将打印的内容(包括图片)保存为本控件专用的报表格式文件，以便以后打开预览并打印（但不能更改页面格式）。控件均以VB的内置单位TWIPS为计量单位，您可以使用本控件的cmtotwips方法将厘米换算成VB的twips，用mmtotwips将毫米换算成twips。

VB基础类

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章