| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1260 人关注过本帖
标题:请教两个问题(1:Delphi和excel;2:delphi和dbf)
只看楼主 加入收藏
lj_jzp
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-4-26
结帖率:0
收藏
已结贴  问题点数:20 回复次数:4 
请教两个问题(1:Delphi和excel;2:delphi和dbf)
一、Delphi于excel的问题:
  描述:excel没有关键字,各字段均可为空。
 1. 当前8行某列有值时,9行以后该列的数据可读出。
 2. 当前8行某列没有值时,9行以后该列的数据不能读出,为空。

代码我没写,直接用ADO连接EXCEL,ADOTABLE连接文件取出数据。用DBGRID显示出来。
ADOCONNECTION连接代码如下:
“Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\分析中心程序\原始数据.xls;Mode=Read;Extended Properties=Excel 8.0;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False” 只是在ADOTABLE中选表时,出现了一个“表明+$”的表,比如我的WORKSHEET名称为“A”,在ADOTABLE中选表时出现:A 和A$,而且选A的话不能取出数据,只能选A$才能显示出数据(但是我只建了一个表A。   请高手赐教为什么?
二、Delphi如何彻底删除dbf表中的数据:我目前是分两个步骤删除,先打删除标记,在彻底删除。但有个问题,彻底删除时提示file is in use。
代码如下:(1)删除标记
var i:integer;
    dat_begin:string;
begin
  dat_begin:=formatdatetime('mm-dd-yyyy',datetimepicker1.date);
  with adoquery1 do
     begin
     close;
     sql.Clear;
     sql.Add('select * from sydrk ');
     //where rq = ctod('''+dat_begin+''')');
     open;
     for i:=1 to adoquery1.recordcount do
     delete;
     adoquery1.close;
     adoquery1.open;

代码如下:(2)彻底删除
   with adocommand1 do
     begin
     'pack sydrk.dbf';
     adocommand1.Execute;
     end;
请高手指教!!!
搜索更多相关主题的帖子: dbf Delphi delphi excel 
2010-04-26 16:19
lj_jzp
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-4-26
收藏
得分:0 
想想还是把我的程序传个附件吧。钢开始用,不要见笑。
请吧程序放到E盘根目录即可打开。
分析中心程序.rar (372.3 KB)
2010-04-26 16:25
shuang200911
Rank: 5Rank: 5
等 级:职业侠客
威 望:2
帖 子:39
专家分:337
注 册:2009-11-2
收藏
得分:6 
1:Delphi和excel;
  最好建个EXCEL OLE对象,然后把EXCEL内容一行一行地读程序来,再判断处理。到网上查一下Delphi Excel就有不少例子。
2:delphi和dbf
 删除数据为什么不用删除语句?
Delete from [TableName]
2010-04-27 17:12
SunQuan99
该用户已被删除
收藏
得分:6 
提示: 作者被禁止或删除 内容自动屏蔽
2010-04-27 22:18
lth_1234
该用户已被删除
收藏
得分:6 
提示: 作者被禁止或删除 内容自动屏蔽
2010-04-28 13:45
快速回复:请教两个问题(1:Delphi和excel;2:delphi和dbf)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043173 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved