如何将数据库格式转换为文档格式 ( 积分: 50 )

如何在DelPhi中实现将数据库格式（.mdb）转换成（.xls）格式

将.mdb中表转化为.xls中的一个sheet

To songrun
可以说具体一点吗？

好多方法
你搜索一下 AccessToTxt

var
ESQL:string;

with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+accessFileName+';'
+'Persist Security Info=False';
ESQL:='Select * Into [Text;Database='+ExtractFilePath(txtFileName)+'].'+
ExtractFileName(txtFileName)+' From '+accessTableName;
Execute(ESQL);
Connected:=true;
Connected:=false;
end;

try
myexcel := createoleobject('excel.application');
except
showmessage('没有安装Excel');
Exit;
end;
myexcel.WorkBooks.Open(opendialog1.FileName);
Sheet := myexcel.workbooks[1].worksheets[1];
//判断读入的exel是否符合要求
if sheet.usedRange.Cells.Columns.count = 11 then
begin
for i := 3 to sheet.usedRange.Cells.rows.count do
begin
with DM.QryDataSelect do
begin
Close;
SQL.Clear;
sqlstr := 'insert into UseMaterialtemp(Depart,Banzu,MName,MType,Amount,UseTerm,DrawData,LogoutData,DrawMan)';
sqlstr := sqlstr + 'valuesDepart,:Banzu,:MName,:MType,:Amount ,:UseTerm,rawData,:LogoutData,rawMan)';
SQL.Add(sqlstr);
Parameters.ParamByName('Depart').Value := sheet.cells[i, 2].value;
Parameters.ParamByName('Banzu').Value := sheet.cells[i, 3].value;
Parameters.ParamByName('MName').Value := sheet.cells[i, 4].value;
Parameters.ParamByName('MType').Value := sheet.cells[i, 5].value;
Parameters.ParamByName('Amount').Value := sheet.cells[i, 6].value;
Parameters.ParamByName('UseTerm').Value := sheet.cells[i, 7].value;
Parameters.ParamByName('DrawData').Value := sheet.cells[i, 8].value;
Parameters.ParamByName('LogoutData').Value := sheet.cells[i, 9].value;
Parameters.ParamByName('DrawMan').Value := sheet.cells[i, 10].value;
try
ExecSQL;
except

多人接受答案了。