DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 1
在线用户: 2
导航: 论坛 -> 数据库专区 斑竹:liumazi,waterstone  
作者:
男 cenunus (cenunus) ★☆☆☆☆ -
普通会员
2021/9/19 14:33:44
标题:
用ado读excel时出现的奇怪问题 浏览:1824
加入我的收藏
楼主: 要读的表格中明明没有空,奇怪的是有个字段竟然读出了空,还是有的行不为空,有的行为空,不知道怎么回事
MyQuery:=TADOQuery.Create(nil);
          MyQuery.Connection:=Form54.con1;
          try
          with MyQuery do
          begin
          Close;
          SQL.Clear;
          SQL.Text:='select * from [' + Form54.cbb1.Items[Form54.cbb1.ItemIndex].Caption + ']';
          Open;
          advstrngrd1.RowCount:=RecordCount+2;
          N:=1;
          while not Eof do
          begin
          advstrngrd1.Cells[0,N]:=N.ToString;
          for I := 1 to advstrngrd1.ColCount-1 do
          begin
          字段名:=advstrngrd1.Cells[I,0];
          for J := 1 to Form54.advstrngrd1.RowCount-1 do
          begin
          if Form54.advstrngrd1.Cells[1,J] = 字段名 then
          begin
          字段名:=Form54.advstrngrd1.Cells[2,J];
          end;
          end;
          值:=FieldByName(字段名).AsString;
          advstrngrd1.Cells[I,N]:=值;
          end;
          N:=N+1;
          Next;
          end;
          end;
          finally
          MyQuery.Free;
          end;
附件是excel文件。
此帖子包含附件:cenunus_2021919143344.rar 大小:8.9K
----------------------------------------------
作者:
男 dalas (dalas) ★☆☆☆☆ -
普通会员
2021/9/20 11:42:21
1楼: 刚好前阵子写了个ADO读写EXCEL的小工具,打开你的附件看看,正常
此帖子包含附件:
PNG 图像
大小:224.2K
----------------------------------------------
-
作者:
男 pcplayer (pcplayer) ★☆☆☆☆ -
普通会员
2021/9/20 18:11:41
2楼: 导出为 csv 来处理更简单些。
----------------------------------------------
-
作者:
男 lsuper (lsuper) ★☆☆☆☆ -
盒子活跃会员
2021/9/20 21:42:15
3楼: XlsReadWrite ~
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行120.1172毫秒 RSS