Arsip: menggunakan multi insert di SQL

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:

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"

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

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 salahmore ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Indexing Document
by trimbil in Enginering more 11 years ago - File EXE
by p2bf in OOT more 13 years ago - steganography (update pertanyaan) ???
by dannytux in Enginering more 13 years ago - Ada ERROR di Fast Report, Tolongin dong
by faisal801m in Reporting more 12 years ago - Apa Da yang tau tentang Encrpy database di delphi
by canoey in Tip n Trik Pemrograman more 15 years ago - delete from DataArea ...
by asepolin in Hal umum tentang Pascal Indonesia more 12 years ago - [sug] searching by date
by cyber_hecker in Kritik & Saran more 13 years ago - kode Plus 1 next ....
by flamade in MySQL more 13 years ago - Buat View di SQL Server dengan Nama Tabel ada dalam Tabel
by fafenail in MsSQL more 15 years ago - Thread safe
by old_shutterhand in Tip n Trik Pemrograman more 13 years ago