xixixixixi..nanya lagi.. :) Kalau kita mau menginput data ke dalam database dengan jumlah data yg akan di masukkan itu > 20 ribu data dengan 1 data terdiri dari 7 field. bagaimana caranya ya?? Menggunakan delphi, kalau masalah syntax ato coding sepertinya ga ada masalah. Cuma yang jadi masalah sepertinya kemampuan dbexpress dalam mengeksekusi sebanyak > 20 ribu data sekaligus. Saya menggunakan: - Delphi 6 dgn dbexpress Cara yg digunakan saat ini : - cara input ke mysql nya menggunakan multi insert ato apalah namanya, formatnya seperti ini: insert into nama_tabel(field1,field2,..) values(value1,value2,..),(value11,value21,..),(value13,value31,..) - Jumlah data > 20 ribu record, teknis pengambilan data: data awal berupa .txt, kemudian di susun sesuai format di save menjadi .xls, kemudian aplikasi yg kita buat mengimport data di file .xls tadi ke dalam dbgrid, kemudian aplikasi menggenerate syntax sql untuk data yg di import tadi(dr file .xls), kemudian syntax sql tadi di eksekusi mengunakan fungsi execute yg ada di TSQLConnection. Done Kasusnya : - Tidak berhasil dalam mengeksekusi syntax sql :D Pertanyaannya : teman2 ada yang pernah coba ga?? trus berhasil ga?? kl berhasil kasi tau caranya ya?? :D Thx,.. :wink:

saran saya sebaiknya langsung aja dari teks di tablenya Mysql; kemudian u/ dbexpress insert record sebanyak itu sekaligus jgn menggunakan dbexpmysql.dll punya delphi; gunakan dbx4mysql.dll atau lainnya jika menggunakan dbexpmysql.dll akan sering timbul "unable to execute Query"

setelah lihat referensi, sepertinya dbx4mysql.dll bagus.. Saya coba dulu ya mrLee.. :wink: Terima kasiiiiiiiihhh... :P

Salam, coba yang ini ya mas, semua data hasil import nya ditampilkan di Grid,

if adocnnection.connected = False Then
  begin
  adoconnection.LoginPrompt := False;
 adoconnection.connected := True;
end;

commandadddataexcel.Connection := adoconnection;
adoconnection.BeginTrans;
if not datasetadddataexcel.Eof  then
   begin
   datasetadddataexcel.First;
   repeat
    mysql :='Insert Into tbl_part  (partnumber,description,quantity,uom,batchno,scheduleno,awb,locationname,status) '+
           'values ("'+frmmaindataexcel.datasetadddataexcel.FieldByName('partnumber').AsString+'","'+frmmaindataexcel.datasetadddataexcel.FieldByName('description').AsString+'","'+FloattoStr(frmmaindataexcel.datasetadddataexcel.FieldByName('quantity').AsFloat)+'"'+
                    ',"'+frmmaindataexcel.datasetadddataexcel.FieldByName('uom').AsString+'","'+frmmaindataexcel.datasetadddataexcel.FieldByName('batchno').AsString+'","'+frmmaindataexcel.datasetadddataexcel.FieldByName('scheduleno').AsString+'"'+
                    ',"'+frmmaindataexcel.datasetadddataexcel.FieldByName('awb').AsString+'","'+frmadddataexcel.cmblocationname.Text+'",''In Transit'')';
  commandadddataexcel.CommandText := mysql;
  commandadddataexcel.Execute;
  datasetadddataexcel.Next;
  until  datasetadddataexcel.Eof;
end;

Maaf apabila salah