在delphi进行数据库开发的时候,
如何将其它数据库或是EXCEL的表格中数据导入到当前数据库
或是将当前数据库的数据导出到EXCEL表格.
在线等,谢谢.
如何将其它数据库或是EXCEL的表格中数据导入到当前数据库
或是将当前数据库的数据导出到EXCEL表格.
在线等,谢谢.
解决方案 »
- delphi + oracle 调用带参数过程出错
- 求助:CombogBox下拉框的高度与水平滚动()
- 问个Delphi和Sql语句问题:
- 找一本以DELPHI语言为基础编写的《WINDOWS程序设计》书
- StringGrid控件使用
- 线程问题,一直得到消息号15.
- 菜鸟::::如何打印文件
- 在开始web server application程序时,只要加入一个data module,就会出错,提示什么软件异常,怎么回事,谁给解释一下?
- SHEET的限制(UP有分)
- GetWindowDC的用法,谁知道
- REALmagic控件发布了,要的去下,功能齐全,免费哟!!!
- 学位证要拿不到了——请问高手,怎么处理主窗体和登录窗体比较合理呀(在线等)?
MSN:[email protected]
var
xlsFilename :string;
ExcelApp,WorkBook : variant ;
FieldCount : Integer;
i,j : Integer;
begin
bbtnExport.Enabled := False;
FieldCount := dgridSearchList.Columns.Count;
try
ExcelApp := CreateOleObject('Excel.Application');
WorkBook :=CreateOleObject('Excel.Sheet');
except
Application.MessageBox('您的系统没有安装MicroSoft EXCEL软件,数据不能导出!','错误提示',MB_OK+MB_SystemModal+MB_IconStop);
bbtnExport.Enabled := True;
exit;
end; if SaveDialog.Execute then
begin
xlsFilename := SaveDialog.FileName;
if FileExists(xlsFilename) then
begin
if Application.MessageBox('该文件已经存在,是否覆盖?','确认',MB_ICONQUESTION+MB_YESNO)=IDYES then
DeleteFile(xlsFilename)
else
begin
bbtnExport.Enabled := True;
exit;
end;
end;
end
else
begin
bbtnExport.Enabled := True;
exit;
end; try
try
WorkBook :=ExcelApp.WorkBooks.Add ;
for i:=1 to FieldCount do //转化字段名;
ExcelApp.Cells.Item(1,i) := dgridSearchList.Columns[i-1].Title.Caption ; qrySearch.First;
for i:=1 to qrySearch.RecordCount do
begin
for j:=1 to FieldCount do //转化一个记录
begin
ExcelApp.Cells.Item(i+1,j) :=dgridSearchList.Fields[j-1].AsString ;
end;
qrySearch.Next ;
end; try
WorkBook.saveas(xlsFilename);
Application.MessageBox('保存完毕!','提示',MB_OK+MB_SystemModal+MB_IconInformation);
except
Application.MessageBox('保存文件出现异常!','错误提示',MB_OK+MB_SystemModal+MB_IconStop);
end;
except
Application.MessageBox('不能正确操作EXECL文件,可能该文件已经被其他程序占用或系统错误!','错误提示',MB_OK+MB_SystemModal+MB_IconStop);
end;
finally
WorkBook.close;
ExcelApp.quit;
ExcelApp := Unassigned;
bbtnExport.Enabled := True;
end;
end;