使用ado读取excel文件第一行变成变量名怎么办？(100分)

D

dreamlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #1

在delphi5中使用ado连接Excel 2000,并显示在dbgrid中，
不知道为什么第一行的数据有的变成了字段名（字符数据)，有的变没了。应该怎样才能显示出来？
adoconnection.connectionstr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/test45.xls;Extended Properties="Excel 5.0;HDR=YES;IMEX=1";Persist Security Info=False'
adoquery.sql.text:='select * from [sheet1$] '

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #2

从代码上看没有问题，你发一个XLS文件至ZWTLZR@163.COM，我试试。

 

D

dreamlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #3

好的，帮我看看！

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #4

我测试了一下，直接使用XLS文件确实不行，解决方法：
1、重新插入第一行，写入抬头，字符型；
2、进入EXCEL，将第一行中的数字前加一'即可，在第三行中＝后，比如：
='11
在D6+WIN2000+OFFICE2000下测试通过

 

D

dreamlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #5

to wwwb
你说的前面我能理解，后面的"在第三行中＝后，比如：
='11 " 这句是干什么用的。在单元格中写入"='11"会了错！

我发现如果在最上面插入一个空行，删除该空行，再插入就可以显示第一行！（如果只插入一次有时可以，有时不行）
----
由于这些数据是客户提供的，不好叫客户去改，有没有其他更好的办法，我再加50分

 

C

coldew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #6

adoconnection.connectionstr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/test45.xls;Extended Properties="Excel 5.0;[red]HDR=YES[/red];IMEX=1";Persist Security Info=False'
red change to HDR=No

 

W

weadvance

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #7

好东西，受教了。这样我就可以做报表了。EXCEL。

就是把程序数据库的东西放入到EXCEL，由用户自己做。可以吗？

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #8

1、我试了一下，最上面插入一个空行，删除该空行，用SELECT　*　，第一行不能
显示；
2、最好在程序中用代码在第一行上面插入抬头；
3、在第三行中＝后，不是在单元格中，是在EXCEL中从上－＞下第三行中的，
Χ√=后面的空格中输入'11

 

D

dreamlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #9

to coldew
非常感谢，昨天晚上找了一个晚上的问题解决了。
能不能解释一下参数的意思呀。
to wwwwb
1、删除空行后，必须再插入一个空行，这样是使他用空行作标题（字段名）
2、使用coldew提代人方法简单，

另怎么再加分呀。

 

D

dreamlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #10

to wwwwb
到下面地址回答一下，我给你加50!