ADODataSet连接excel，读出数据有问题。谢谢 200分！ ( 积分: 100 )

H

himoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-26

• #1

附加100分（http://www.delphibbs.com/delphibbs/dispq.asp?lid=3827265的分数也给这个帖子~）

要读的excel第一列数据如下：
项目号
77105063-R6
77105329
77102299
77105296
77105197-R5
77105364
77102344
77105321
77105353
77105279
77105346
77102320
77105224-1
77105304
77102172-8

读出后show出来，只要是 带“-”的，都是显示为空，其他列读出正常。
不知道为何。怎么让他正确的读出呢？

excel文件：http://www.mxhui.com/temp/test.xls
我用的方法：
try
xlsApp:=CreateOleObject('Excel.Application');
except
showmessage('操作系统中没有正确安装excel软件！');
exit;
end;

try
xlsApp.Workbooks.Open(OpenDialog1.FileName);
I:=1;
//for I:=1 to xlsApp.sheets.count do
begin
//mm1.Lines.Add(xlsApp.Workbooks[1].Sheets.Name);



ADODataSet1.ConnectionString := 'DRIVER={Microsoft Excel Driver (*.xls)};;Jet OLEDB:Engine Type=35Extended Properties=Excel 8.0;ReadOnly=1;DBQ=' +
OpenDialog1.FileName;

ADODataSet1.CommandText := 'select [项目号],[姓名],[编码数量],[标准],[金额],[奖/惩],[实发金额] from ['
+ xlsApp.Workbooks[1].Sheets.Name + '$]';
ADODataSet1.Active := true;
ADODataSet1.First;
// showmessage((ADODataSet1.FieldByName('[项目号]').AsString));

 

L

ldk0110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-26

• #2

把第一列单元格的格式设为常规！试试！

 

H

himoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #3

本身就是常规，我给设成文本都不成

 

Y

yjwnnit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #4

Properties=Excel 8.0

ADODataSet1 属性 选择

 

H

himoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #5

楼上的，你说的 属性
ADODataSet1.ConnectionString := 'DRIVER={Microsoft Excel Driver (*.xls)};;Jet OLEDB:Engine Type=35Extended Properties=Excel 8.0;ReadOnly=1;DBQ=' +

已经有了啊

 

C

china_peng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #6

改为[red]Excel 5.0[/red]试试看，我曾经用Excel 8.0读Excel97格式的有问题，用Excel 5.0没问题；
adsExcel.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + strExcelFile + ';' +
'Extended Properties="Excel 5.0;HDR=YES;IMEX=1";Persist Security Info=False';

 

H

huangli_nj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #7

不好意思 插一句：我有个Excel表，我并不知道它的单元格是什么格式的数据，比如：有个列它的第一行的数据 2005-01-01 但是他的第二行是12222222 我在DBgrid中显示的都变成数字了，不知道了为什么 请大虾指教！！

 

T

tianxin7131

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #8

期待答案呢，最近好多看贴不回贴的，不能帮楼主解决问题，好歹也顶一下，增点人气啊

 

H

huangli_nj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #9

同楼上

 

C

chyzpc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #10

http://www.star-reg.com/dl/ExcelRead&WriteOCX.rar
这项技术可较好地解决你的问题
QQ:292044357

 

H

himoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-27

• #11

chyzpc
china_peng
请两位在http://www.delphibbs.com/delphibbs/dispq.asp?lid=3827265
也回个贴，一并加分~

 

C

china_peng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-06

• #12

这个帖的ID不是3827265吗？