Kamis, 15 Januari 2009

MS Excel - Transfer data ke MS Access dengan Delphi

Langkah 1
Buat program aplikasi baru.


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 :D atabase Password=”";‘ +
‘ Jet OLEDB:Engine Type=35;‘ +
‘ Jet OLEDB :D atabase 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 :D on”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 :D atabase Password=”";‘ +
‘ Jet OLEDB:Engine Type=5;‘ +
‘ Jet OLEDB :D atabase 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 :D on”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
Diposting oleh di
Label:

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)