Import Excell to Access with Delphi

Hari ini dapat telpon dari teman yang kebetulan berada dirantau, kebetulan sahabat saya ini sedang kesulitan dalam mengimport file excell yang dimilikinya ke database lain, pikir-pikir iseng mau coba bikin program import dengan menggunakan delphi.

Sebetulnya tidak terlalu sulit untuk membuat program sederhana ini, penulis mencoba menggunakan koneksi yang menggunakan ODBC sebagai penghubung yang diterapkan melalui metode "ADO nya Delphi".

langkah-langkah yang perlu diterapkan hanyanya membuat 2 buah AdoConnection, yang pertama adalah AdoConnection yang digunakan untuk menghubungkan ke file Excell sedangkan AdoConnection yang kedua digunakan untuk menghubungkan ke database yang kita inginkan, semisal penulis coba dengan menggunakan Access sebagai media untuk koneksi ke dua ini.

selanjutnya kita buat Dua buah AdoQuery, untuk query pertama dihubungkan dengan AdoConnection yang pertama , sedangkan AdoQuery yang kedua dihubungkan ke AdoConnection yang ke dua.

selanjutnya jangan lupa kita tinggal membuat sintax program untuk menjalankan dan mengimport data dari Excell ke database tujuan tersebut, sebagai contoh penulis membuat sintax sederhana sebagai berikut :

with AdoQuery1 do
begin
disablecontrols;close;sql.clear;
sql.add('select * from [Sheet1$] ORDER BY F9');
open;enablecontrols;
end;

with AdoQuery2 do
begin
disablecontrols;close;sql.clear;
sql.add('select * from tabel1 order by Id');
open;enablecontrols;
end;

with AdoQuery1 do
begin
first;
while not eof do
begin
with AdoQuery2 do
begin
Append;
Fields[4].AsString:=trim(AdoQuery1.Fields[4].AsString);
Post;
end;
next;
end;

end;


semoga dengan trik singkat ini dapat membantu teman-teman yang membutuhkan , terimakasih