delphi导入导出excel|oracle

最新推荐文章于 2024-05-16 14:59:06 发布

aivyzh5

最新推荐文章于 2024-05-16 14:59:06 发布

阅读量2k

点赞数

分类专栏： DELPHI类文章标签： delphi excel string integer exception oracle

本文链接：https://blog.csdn.net/aivyzh5/article/details/5709073

版权

这篇博客介绍了如何使用Delphi进行Excel数据的导入和导出，以及与Oracle数据库的交互。导出功能通过DBGrid将数据复制到剪贴板，再粘贴到Excel；导入时，读取Excel文件内容并更新或插入到Oracle数据库。

摘要由CSDN通过智能技术生成

前一久写一个delphi的导入导出功能，当时是没有一点头绪，现在已经完成了，把它记录在这里。

1.导出用DBGrid直接到剪切板，然后粘贴到excle就ok了，有什么Excle的格式之类的可能要设置一下：

{
      1. StrTableName要查询的表名
      2。StrFieldsName查询表的字段名
      3。StrWhere查询条件
      4。StrOrder 查询排序次序
    }
procedure TFrmexportData.exportData(StrTableName:String;StrFieldsName:String='*';StrWhere:String='';StrOrder:String='');
var
str:String;
i:integer;
excelapp,sheet:Variant;
Col,Row:Integer;
   ADOConn: TADOConnection;
   ADOQueryExp: TADOQuery;
   DataSourceExp: TDataSource;
   DBGrid1: TsuiDBGrid;
begin
try
ADOConn:=TADOConnection.Create(nil);
ADOQueryExp:=TADOQuery.Create(nil);
DataSourceExp:= TDataSource.Create(nil);
DBGrid1:= TsuiDBGrid.Create(nil);
ADOConn.ConnectionString:='Provider=MSDAORA.1;Password=cdch0909;User ID=sa;Data Source=oracemcdch';
ADOConn.LoginPrompt:=false;
ADOConn.Connected:=true;
ADOQueryExp.Connection:=ADOConn;
DataSourceExp.DataSet:=ADOQueryExp;
DBGrid1.DataSource:= DataSourceExp;
with ADOQueryExp do
begin
     Close;
     SQL.Clear;
     SQL.Add('select '+StrFieldsName+' from '+StrTableName+' '+StrWhere+' '+StrOrder);
     Open;
     Row:=RecordCount; //记录条数
      if Row<=1 then
   begin
    showmessage('表中没有数据，不能导出');
    exit;
   end;
end;
//
str:='';
with DBGrid1 do
begin
   DataSource.DataSet.DisableControls;
   Col:=DataSo