delphi 如何通过Tdataset数据集 获取数据库列名以及列数？

（1）数据库列数可以用“TDATASET”的“FieldCount”属性获得。

（2）数据库列名可以做一个循环得到，例如：

var

i:integer

begin

for i := 0 to Table1.FieldCount-1 do

showmessage(Table1.Fields[i].FieldName)

end

Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的"BorlandTurbo Pascal"，最早的版本由美国Borland(宝兰)公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境(IDE)，使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。

由Borland公司推出的Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具。它使用了MicrosoftWindows图形用户界面的许多先进特性和设计思想，采用了d性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编译器、最为领先的数据库技术。对于广大的程序开发人员来讲，使用Delphi开发应用软件，无疑会大大地提高编程效率，而且随着应用的深入，您将会发现编程不再是枯燥无味的工作--Delphi的每一个设计细节，都将带给您一份欣喜。

第一种方法:

改改SQL语句试试:

SELECT

sum(语文)

as

语文总分,avg(语文)

as

语文平均分

from

成绩

然后

xxxx

:=

ADOQuery.FieldValues['语文总分']

//取语文总分

xxxx

:=

ADOQuery.FieldValues['语文平均分']

//取语文平均分

第二种方法:【逐行读取的语句】

ADOQuery.Active

:=

True

zf

:=

0

icount

:=

0

while

not

ADOQuery.Eof

do

begin

zf

:=

zf

+

ADOQuery.FieldValues['语文']

//累加语文总分

Inc(icount)

ADOQuery.Next

end

pjf

:=

zf

/

icount

//

平均分

先读取 指定列的值，然後insert

如下

var qrydata:Tclientdateset

excelAp,workBook,sheet:variant

begin

ExcelAp := CreateOleObject('Excel.Application')

WorkBook := ExcelAp.Workbooks.open(xlFile)

ExcelAp.DisplayAlerts := False

Sheet := ExcelAp.Worksheets.Item[1]

with qrydata do

begin

close

commandtext:=' insert into table_name (clum1,clum2)'+

'values(Sheet.Range[A1].value,Sheet.Range[A2].value)'//A1/A2就是你想插

//的指定栏位的值

execute

end

end

有问题可加我SKYPE:yc515623876 加时注明Baidu_Delphi

---