Question

DELPHI程序将SQL数据库表导入到一个EXCEL中

我想用DELPHI写一个程序,将SQL中某个数据库TEST中的表A.B.C中的某几个字段值导入到一个EXCEL中,请问哪位朋友有这方面相关化代码.
最好给我完成了的代码。加分。

Answer 1

选中表,右键选中导出数据,
先建一个EXCEL文件,选中此文件,导出数据!可以看看联机帮助
1。企业管理器－－工具－－数据转换服务－－导出
2。根据向导做就行了。

Answer 2

一个简单的例子，保存的是ListBox里的值
procedure TfrmMain.SaveFile(name: String);
var
ExcelApp: Variant;
i: Integer;
begin
ExcelApp:=CreateOleObject('Excel.Application');
try
ExcelApp.Visible:=false;
ExcelApp.Caption:='aaa';
ExcelApp.WorkBooks.Add;
ExcelApp.WorkSheets[1].Activate;
for i:=0 to ListBox.Count-1 do
begin
ExcelApp.Cells[i+1,2].Value:=ListBox.Items.Strings[i];
end;
ExcelApp.WorkBooks[1].SaveAs(name);
Application.MessageBox('保存成功！','提示',MB_OK+MB_ICONINFORMATION);
finally
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
end;
end;

Answer 3

以上控件在Delphi盒子 www.2ccc.com 上有下载,免费的

Answer 4

1、可以通过edit1.text:=query1.fieldbyname('字段名').asstring;
来取该字段的值 注意数据的类型转换
2、把ADOconnection的loginprompt属性设置为false

1.如果你是想比较edit.text在数据库中是否存在的话,可以这样做:
adoquery.close;
adoquery.sql.clear;
adoquery.sql.add('select * from table where tableclunm=:clunm');
adoquery.paramters.paramvalue['clunm'] := edit1.text;
adoquery.open;
if adoquery.recordcount = 0 then//没找到...
begin
.....
end;
if adoquery.recordcount >0 then//找到了
begin
.....
end;
如果是想把查询出来的结果和edit.text比较,可以用:
if edit1.text =query1.fieldbyname('字段名').asstring then
...
的方式.
楼上的是赋值语句,即把查询出来的结果付给edit的text属性,让edit显示查询结果.
2.正如上把ADOConnection控件的LoginPrompt属性改为false.

Answer 5

看不懂你说的什么