Arsip: menggunakan multi insert di SQL

 
user image
more 13 years ago

derry.othman

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:
user image
more 13 years ago

MrLee

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"
user image
more 13 years ago

derry.othman

setelah lihat referensi, sepertinya dbx4mysql.dll bagus.. Saya coba dulu ya mrLee.. :wink: Terima kasiiiiiiiihhh... :P
user image
more 13 years ago

belajaraja

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
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com