作者:乔山办公网日期:
返回目录:excel表格制作
rs.Open语句似乎缺少了连接百,改成:
rs.Open "SELECT * FROM [Sheet1$] WHERE Left([身份度证号],2)='12", cn
试试。语句中的知cn是 ADODB.Connection
用以下代码道试了一下,回
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\test.xls; Extended Properties='Excel 8.0;HDR=Yes'"
cn.Open
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM [Sheet1$] WHERE Left([身份证号],2)='12'", cn
成功打开Excel并读答入数据。
在日常生活中,通常有很多表格文件用Excel存放,访问Excel表格的方法很多,在Delphi中可以通过Servers中的ExcelApplication,ExcelWorkBook,ExcelWorkSheet等控件操纵Excel中的数据.但是我们无法用ADO操纵Excel文件中的Sheet,ADO控件会告诉你"[microsoft][OdbC Excel driver]Microsoft Jet 数据库引擎找不到对象'Sheet1'.请确定对zd象是否存在,并正确地写出它的名称和路径.
那么如何才能正确的操纵Excel呢???
首先用ADO连接Excel,至于怎么连接Excel我想不用我说了吧回.
然后这个是个关键:打开Excel,先"插入"->"名称"->"定义",如图:
输入一个名称,如:OK,按"添加"按钮,然后指定引用位置,如图:
最后按"确定",然后存盘,这关键的一步就算完成了.
现在你在Delphi中就可以通过ADOQuery或ADOTable等自由操纵表名为"OK"的表了.
注意答:1.你可以在一个Excel文件中定义多个名称,当多个表使用
2.此方法不能用于Excel中的Chart等元素
http://support2.microsoft.com/kb/303814
<%
set db=server.createobject("adodb.connection")
db.open "DBQ="&server.mappath("connections\message.mdb")&";driver={microsoft access driver (*.mdb)}"
%>
用这百个度代专码属