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

来源：百度知道 编辑：UC知道 时间：2024/05/02 09:10:24
我想用DELPHI写一个程序,将SQL中某个数据库TEST中的表A.B.C中的某几个字段值导入到一个EXCEL中,请问哪位朋友有这方面相关化代码.
最好给我完成了的代码。加分。

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

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.

一个简单的例子，保存的是ListBox里的值
procedure TfrmMain.SaveFile(name: String);
var
Exc