用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.

用Java实现从Excel数据导入到Oracle数据库表中

import java.sql.Connection; import java.sql.Statement; import ja...
  • planetstar
  • planetstar
  • 2006年05月22日 15:51
  • 6460

java实现数据库导出ECXL表格

需求:将数据库中的某些表格导出成excl表格。 流程: 1.在本地环境中创建excl表格; package test.cxg.demo1; import java.io.File; import j...
  • captian_900331
  • captian_900331
  • 2015年11月06日 22:52
  • 1109

将Excel表格中的数据更新到数据库

在工作中,遇见数据的导入。有的是文本文件,有的是在Excel表格里面的数据。我这次的工作就是讲Excel表中的数据更新到数据的表里面。 需要更新的数据库表里面字段如上图:表A、ADMINSTRATI...
  • zhengdatao126
  • zhengdatao126
  • 2017年06月06日 15:43
  • 579

使用JAVA的poi进行Excel表格的读取,以及往数据库进行数据的插入

JAVA通过poi进行Excel文档的读取操作
  • QT1E2
  • QT1E2
  • 2017年12月01日 14:37
  • 222

oracle执行update和insert语句卡住不动

造成这样的情况原因在于你之前执行了update或inert操作但你并没有commit,导致你操作的这条记录被oracle锁住,后面就无法update或insert它了解决办法:1:可能你是在PLSQL...
  • xujiangdong1992
  • xujiangdong1992
  • 2017年04月25日 19:46
  • 1149

Oracle优化:大量数据插入或更新

最近遇到的一个面试题,印象很深记录如下: 面试官:现在有一张表数据量达很大,要把里面记录时间的那行更新到当前最新日期,每次更新都很卡,机器变慢影响业务,怎么优化。 我的想法是:大量的数据更新肯定会写记...
  • knuuy
  • knuuy
  • 2015年08月15日 10:42
  • 6531

Delphi与Word(三) 取得Word文件的数据

//取得Word文件的数据procedure getWordStr;var WordApp: TWordApplication;    WordDoc: TWordDocument;    DocIn...
  • TianGuanLeiOK
  • TianGuanLeiOK
  • 2004年09月08日 16:16
  • 1020

oracle中update,insert,delete的高级用法

一、对视图的更新。 update,insert,delete除了可以作用于单表,还可以作用于视图、子查询,但是有种种限制。 视图(子查询)的限制:   1、没有集合操作符(并、差、...
  • rockpk008
  • rockpk008
  • 2014年05月13日 00:02
  • 1461

Oracle如何实现从特定组合中随机读取值

在这里,我们会用到DBMS_RANDOM包和CASE WHEN语句,思路如下: 一、利用DBMS_RANDOM.RANDOM函数随机生成数值,然后对数值进行取模,如果我们要在10个元素中随机读取的话...
  • slowtech
  • slowtech
  • 2016年03月10日 15:14
  • 284

Java实现对Excel数据的读和写

用Java实现对Excel中的数据读取和写入
  • sinat_38167943
  • sinat_38167943
  • 2017年05月19日 17:03
  • 331
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Delphi实现从Excel数据Update(Insert类似)到Oracle数据库表中
举报原因:
原因补充:

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