用Delphi实现从Excel数据Update(Insert类似)到Oracle数据库表中

原创 2006年05月22日 15:58:00

unit Unit47;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBClient, OleServer, Excel2000, Buttons;

type
  TForm47 = class(TForm)
    OpenDialog: TOpenDialog;
    QueryFlowExist: TClientDataSet;
    UpdateFlowPT: TClientDataSet;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form47: TForm47;

implementation
uses Unit1,ComObj;
{$R *.dfm}

procedure TForm47.Button1Click(Sender: TObject);
var
MSExcel:  Variant;
i,n,m,len,alen,filelen: Integer ;
  S,word,update_date,UPLOAD_DATE,OldfileStr,NewfileStr1,flag:string;
  F: TextFile;
  PT,STAGE,STEPNO,RECIPE,PROCESS,error_message,NewfileStr:string;
begin
OpenDialog.Filter:='*.XLS|*.XLS';
OpenDialog.DefaultExt:='XLS';
if  OpenDialog.Execute  then
begin
   try
    MSExcel:=CreateOLEObject('Excel.Application');
    MSExcel.WorkBooks.Open(OpenDialog.FileName);
    except
    Memo1.Lines.Append('Failed!!!');
    end;
    MSExcel.Visible:=False;
    Screen.Cursor :=crSQLWait ;
    for  i:=2  to  MSExcel.ActiveSheet.UsedRange.Rows.Count  do
    begin 
       // Edit2.Text:=Edit2.Text+MSExcel.Cells[i,1].Value;
       PT :=MSExcel.Cells[i,1].Value;
       STAGE :=MSExcel.Cells[i,2].Value;
       STEPNO :=MSExcel.Cells[i,3].Value;
       RECIPE :=MSExcel.Cells[i,4].Value;
       PROCESS :=MSExcel.Cells[i,5].Value;
    try
    QueryFlowExist.close;
    QueryFlowExist.FetchParams ;
    QueryFlowExist.Params.ParamByName('STAGE').AsString :=STAGE ;
    QueryFlowExist.Params.ParamByName('STEPNO').AsString :=STEPNO ;
    QueryFlowExist.Params.ParamByName('RECPID').AsString :=RECIPE ;
    QueryFlowExist.Params.ParamByName('PROCESS').AsString :=PROCESS ;
    QueryFlowExist.Open;
     if  QueryFlowExist.RecordCount>0 then
     begin
     //ShowMessage('stage:'+stage+';stepno:'+stepno+';recipe:'+recipe+';process:'+process);
    UpdateFlowPT.close;
    UpdateFlowPT.FetchParams ;
    UpdateFlowPT.Params.ParamByName('PT').AsString :=PT ;
    UpdateFlowPT.Params.ParamByName('STAGE').AsString :=STAGE ;
    UpdateFlowPT.Params.ParamByName('STEPNO').AsString :=STEPNO ;
    UpdateFlowPT.Params.ParamByName('RECPID').AsString :=RECIPE ;
    UpdateFlowPT.Params.ParamByName('PROCESS').AsString :=PROCESS ;
    UpdateFlowPT.Execute;
    Memo1.Lines.Append('PT:'+PT+'; stage:'+stage+'; stepno:'+stepno+'; recipe:'+recipe+'; sprocess:'+process+';');
     end;
      except
      on E:Exception do
      begin
      //Unit1.Form1.ErrorEmail(Datetimetostr(now)+':'+e.Message+',');
      exit;
      end;
     end;
     end;
   // ShowMessage('Update OK. Record count: '+inttostr(MSExcel.ActiveSheet.UsedRange.Rows.Count-1));
    Screen.Cursor :=crDefault ;
    Memo1.Lines.Append('Update OK. Record count: '+inttostr(MSExcel.ActiveSheet.UsedRange.Rows.Count-1));
    MSExcel.ActiveWorkBook.Close;
    MSExcel.Quit;
end;

end;

end.

相关文章推荐

将excel表的数据导入oracle数据库对应的表中

将excel表的数据导入oracle数据库对应的表中  http://blog.itpub.net/30164674/viewspace-1467562/ ...

JDBC Insert语句插入Oracle数据库返回数据主键

表结构:create table test( id varchar2(32) primary key, name varchar2(32) );import java.sql.Conn...

oracle数据库【表复制】insert into select from跟create table as select * from 两种表复制语句区别

create table  as select * from和insert into select from两种表复制语句区别 create table targer_table as select...

Oracle实现数据不存在则插入,数据存在则更新(insert or update)

思路是写一个函数,先按条件查询数据,如果查询到数据则更新,如果没有查询到数据则插入: create or replace function fn_merge_index(statdate ...
  • jumtre
  • jumtre
  • 2014年09月28日 17:29
  • 21683

oracle数据库:update更新多表总结

总体原则:1)更新的时候一定要加where条件,否则必然引起该字段的所有记录更新                    2)跨表更新时,set和where时,尽量减少扫描次数,从而提高优化 ...

将excel数据导入到oracle数据库

  • 2013年11月08日 13:19
  • 54KB
  • 下载

excel导出数据到oracle数据库

  • 2012年03月02日 10:02
  • 19KB
  • 下载

excel大量数据导入oracle数据库

http://blog.sina.com.cn/s/blog_55a05c0301010tsw.html SQL*LOADER是大型数据 仓库选择使用的加载方法,因为它提供了最快速的途径(DIREC...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Delphi实现从Excel数据Update(Insert类似)到Oracle数据库表中
举报原因:
原因补充:

(最多只允许输入30个字)