Delphi for delphier

Langkah-langkah melakukan transfer data dari database MS Excel ke database MS Access

 
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form.
   
  Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Label2: TLabel;
Edit2: TEdit;
Button3: TButton;
Button4: TButton;
DBGrid2: TDBGrid;
ADOConnection2: TADOConnection;
ADOTable2: TADOTable;
DataSource2: TDataSource;
ADOStoredProc1: TADOStoredProc;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
pemuladatabaseexcel003.jpg
   
Langkah 4
ComObj pada bagian uses. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
   
 
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ComObj;
   
Langkah 5
Sekarang silahkan anda klik 2x tombol Sambungkan yang berada dibagian atas ( MS Excel ). Kemudian tuliskan kode program di dalam event OnClick. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected := False;
try
ADOConnection1.LoginPrompt := False;
ADOConnection1.ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;‘ +
User ID=Admin;‘ +
Data Source=‘ + edit1.Text + ‘.xls;‘ +
Mode=Share Deny None;‘ +
Jet OLEDB:System database=””;‘ +
Jet OLEDB:Registry Path=””;‘ +
Jet OLEDB:Database Password=””;‘ +
Jet OLEDB:Engine Type=35;‘ +
Jet OLEDB:Database Locking Mode=0;‘ +
Jet OLEDB:Global Partial Bulk Ops=2;‘ +
Jet OLEDB:Global Bulk Transactions=1;‘ +
Jet OLEDB:New Database Password=””;‘ +
Jet OLEDB:Create System Database=False;‘ +
Jet OLEDB:Encrypt Database=False;‘ +
Jet OLEDB:Don”t Copy Locale on Compact=False;‘ +
Jet OLEDB:Compact Without Replica Repair=False;‘ +
Jet OLEDB:SFP=False;‘;
ADOConnection1.Connected := True;
with ADOTable1 do
begin
Connection := ADOConnection1;
TableName := QuotedStr(‘Nama Bulan$’);
Close;
Open;
end;
DataSource1.DataSet := ADOTable1;
DBGrid1.DataSource := DataSource1;
except
on EOleException do
ShowMessage(‘Proses menyambungkan ke database gagal dilakukan’);
end;
end;
   
Langkah 6
Sekarang silahkan anda klik 2x tombol Sambungkan yang berada dibagian atas (MS Access). Kemudian tuliskan kode program di dalam event OnClick. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.
   
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOConnection2.Connected := False;
try
ADOConnection2.LoginPrompt := False;
ADOConnection2.ConnectionString := ‘ Provider=Microsoft.Jet.OLEDB.4.0;‘ +
User ID=Admin;‘ +
Data Source=Data MS Access.mdb;‘ +
Mode=Share Deny None;‘ +
Jet OLEDB:System database=””;‘ +
Jet OLEDB:Registry Path=””;‘ +
Jet OLEDB:Database Password=””;‘ +
Jet OLEDB:Engine Type=5;‘ +
Jet OLEDB:Database Locking Mode=1;‘ +
Jet OLEDB:Global Partial Bulk Ops=2;‘ +
Jet OLEDB:Global Bulk Transactions=1;‘ +
Jet OLEDB:New Database Password=””;‘ +
Jet OLEDB:Create System Database=False;‘ +
Jet OLEDB:Encrypt Database=False;‘ +
Jet OLEDB:Don”t Copy Locale on Compact=False;‘ +
Jet OLEDB:Compact Without Replica Repair=False;‘ +
Jet OLEDB:SFP=False;‘;
ADOConnection2.Connected := True;
ADOTable2 do
begin
Connection := ADOConnection2;
TableName := ‘Nama Bulan’;
Close;
Open;
end;
DataSource2.DataSet := ADOTable2;
DBGrid2.DataSource := DataSource2;
except
on EOleException do
ShowMessage(‘Proses menyambungkan ke database gagal dilakukan’);
end;
end;
   
Langkah 7
Silahkan anda klik 2x tombol Transfer dan isikan kode program didalam event OnClickdengan kode program seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button3Click(Sender: TObject);
begin
with ADOStoredProc1 do
begin
Connection := ADOConnection2;
ProcedureName := ‘SP Transfer’;
with Parameters do
with AddParameter do
begin
Name := ‘NamaBulan’;
DataType := ftString;
Size := 25;
end;
end;
with ADOTable1 do
begin
Close;
Open;
whilenot Eof do
begin
with ADOStoredProc1 do
with Parameters do
begin
Clear;
with AddParameter do
begin
Name := ‘NamaBulan’;
DataType := ftString;
Size := 25;
Value := ADOTable1.Fields[0].Value;
end;
ExecProc;
end;
Next;
end;

end;

with ADOTable2 do
begin
Close;
Open;
end;
end
   
Langkah 8
Tekan tombol Ctrl + F9 untuk mengecek apakah ada error atau tidak.
   
Langkah 9
Lanjutkan dengan menekan tombol F9.
   
Langkah 10
Setelah itu, tunggu beberapa saat hingga program siap untuk dijalankan.
   
Langkah 11
Tekan tombol Sambungkan ( bagian MS Excel ). Biar jelas hasilnya, silahkan lihat gambar dibawah ini.
   
 
pemuladatabaseexcel004.jpg
   
Langkah 10
Tekan tombol Sambungkan (bagian MS Access). Biar jelas hasilnya, silahkan lihat gambar dibawah ini.
   
 
pemuladatabaseexcel005.jpg
   
Langkah 11
Tekan tombol Transfer. Jika berhasil akan terlihat seperti tampilan berikut ini.
   
 
pemuladatabaseexcel006.jpg
   
Langkah 12
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar
Semoga artikel ini bisa bermanfaat. Silahkan anda berikan informasi ini kepada teman – teman anda yang belum tahu.

Mari kita wujudkan kemajuan IT Indonesia bersama dengan teman – teman yang lain dengan Delphi sebagai media pemupuk kebersamaan.
   
Review dan pemantapan
Apabila ketika anda mencoba membuat program koneksi dengan ADOConnection menjumpai error Undeclared identifier: ‘EOleException’, maka itu berarti anda belum menambahkan library comobj didalam uses. Untuk mengatasi error tersebut anda dapat menambahkan library tersebut seperti ditunjukkan pada langkah 5.
   
Download
Klik disini untuk mendapatkan contoh kode programnya
 
Klik disini untuk mendapatkan video tutorialnya
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
   
 

Blog di WordPress.com.

%d blogger menyukai ini: