Question

Delphi 循环输出ADODataSet中的每一条记录

高手请示范一下，比如说用showmessage依次输出每一条记录

Answer 1

直接做一个导出功能即可，实现流程如下：
1、添加一个“导出”按钮；

2、点击按钮，双击进入代码编辑区，先定义局部变量XlAPP（var XlAPP: Variant;）；
3、再添加实现导出的代码，如下：
try
if ActiveControl.ClassType.ClassName = 'TwwDBGrid' then
begin
// 将游标变为漏斗
Screen.Cursor := crHourglass;
if not Db_data.DataSource.DataSet.Active then exit;
if Db_data.DataSource.DataSet.RecordCount < 1 then exit;
try
XlApp := createoleobject('Excel.Application');
XLApp.Visible := false;
// excelcount := XLApp.Workbooks.count;
XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet1 := XLApp.Workbooks[1].WorkSheets['sheet1'];
except
showmessage('未能正常导出Excel，请与IT部同事联系！');
exit;
end;
// 把游标变为预设值
Screen.Cursor := crDefault;
end
else
application.MessageBox('请选择需要导出的内容！','温馨提示', 0);
finally
end;

Answer 2

//获取数据
while not dsTemp.eof do
begin
//
sJine:= dsTemp.FieldByName('t_cxsje').Value;
ShowMessage(sJine);
dsTemp.Next;
end;

Answer 3

ADODataSet.first
while not ADODataSet.eof do
begin
ShowMessage(ADODataSet.FieldByName('某个字段').AsString;
ADODataSet.Next;
end;