Import Dari Excel ke Database Firebird-Interbase Delphi

Males nulis ane... wkwkwkk..... :D langsung saja dah ini unit full langsung pake..

Dibuat dengan delphi 2007, make komponen Interbase ( Standar ).

Sudah di uji coba dengan database Firebird 2.0 SQL Dialect 3.

unit uMain;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, StdCtrls, XPMan, Grids, DBGrids, DB, IBCustomDataSet, IBQuery,<br />  IBDatabase, ComObj;<br /><br />type<br />  TFImport = class(TForm)<br />    XPManifest1: TXPManifest;<br />    OD: TOpenDialog;<br />    Button1: TButton;<br />    DBGrid1: TDBGrid;<br />    db: TIBDatabase;<br />    tr: TIBTransaction;<br />    ds: TDataSource;<br />    Label1: TLabel;<br />    Label2: TLabel;<br />    tb: TIBDataSet;<br />    Button2: TButton;<br />    Q1: TIBQuery;<br />    tbNOPOL: TIBStringField;<br />    tbJENIS: TIBStringField;<br />    tbJTEMPO: TDateField;<br />    tbEX_NOPOL: TIBStringField;<br /><br />    procedure ProsesFromExcel(pFileName:String) ;<br />    procedure Button1Click(Sender: TObject);<br />    procedure FormCreate(Sender: TObject);<br />    procedure FormShow(Sender: TObject);<br />    procedure Button2Click(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  FImport: TFImport;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />procedure TFImport.Button1Click(Sender: TObject);<br />begin<br />  if OD.Execute then<br />    ProsesFromExcel(OD.FileName);<br />end;<br /><br />procedure TFImport.Button2Click(Sender: TObject);<br />begin<br />if MessageDlg('Hapus semua record ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then<br />begin<br />  Q1.Close;<br />  Q1.SQL.Clear;<br />  Q1.SQL.Add('delete from COBA');<br />  Q1.ExecSQL;<br /><br />  tb.ApplyUpdates;<br />  tb.Transaction.CommitRetaining;<br />  tb.Close;<br />  tb.Open;<br />  Label2.Caption :='0';<br />end;<br />end;<br /><br />procedure TFImport.FormCreate(Sender: TObject);<br />begin<br />try<br />  if db.Connected = True then db.Connected:=False;<br />  db.DatabaseName:=ExtractFilePath(ParamStr(0))+'Data\COBA.FDB';<br />  db.Open;<br />  Label2.Caption :='0';<br />except<br />    MessageDlg('Database Tidak Terkoneksi..!!',mtError,[mbOK],0);<br />    Application.Terminate;<br />end;<br />end;<br /><br />procedure TFImport.FormShow(Sender: TObject);<br />begin<br />  tb.Open;<br />end;<br /><br />procedure TFImport.ProsesFromExcel(pFileName:String) ;<br />var<br />baris : Word;<br />ExcelApp: OleVariant ;<br />JML_BERHASIL : Integer;<br />vNOPOL,vJENIS,vEX_NOPOL : string;<br />vJTEMPO : TDateTime;<br />BEGIN<br />try<br /><br />  ExcelApp := CreateOleObject('Excel.Application');<br />  ExcelApp.Workbooks.Open(pFileName);<br />  JML_BERHASIL := 0;<br />  tb.Close;<br />  tb.Open;<br />  baris := 3;<br /><br />REPEAT<br /><br />  vNOPOL         := VarToStr(ExcelApp.Cells[baris,1]) ;<br />  vJENIS         := VarToStr(ExcelApp.Cells[baris,2]) ;<br />  vJTEMPO        := VarToDateTime(ExcelApp.Cells[baris,3]) ;<br />  vEX_NOPOL      := VarToStr(ExcelApp.Cells[baris,4]) ;<br />  <br />  tb.Insert;<br />  tbNOPOL.AsString        := vNOPOL;<br />  tbJENIS.AsString        := vJENIS;<br />  tbJTEMPO.AsDateTime     := vJTEMPO;<br />  tbEX_NOPOL.AsString     := vEX_NOPOL;<br /><br />  tb.ApplyUpdates;<br />  tb.Transaction.CommitRetaining;<br /><br />  JML_BERHASIL := JML_BERHASIL + 1;<br />  Label2.Caption := IntToStr(JML_BERHASIL);<br />  baris := baris+1;<br /><br />UNTIL VarToStr(ExcelApp.cells[baris,1]) = '' ;<br /><br />  ExcelApp.DisplayAlerts := False;<br />  ExcelApp.Quit;<br /><br />  tb.Close;<br />  tb.Open;<br />  <br />  MessageDlg('Import Berhasil',mtInformation,[mbOK],0);<br /><br />except<br />  MessageDlg('Proses Import Gagal',mtInformation,[mbOK],0);<br />  ExcelApp.Quit;<br />end;<br /><br />END;<br /><br />end.

Kalo males ngoding, nih udah ane sediain project jadi full source... :D

Download aja DISINI