[Delphi] Penyimpanan Data Ke Database Secara Massal _ Programming Learning

5/14/13

[Del phi] Penyimpanan Data ke Database Secar a M assal | Pr Pr og r ammi ng Lear ni ng

Programming Learning

Free IT e-learning

[Delphi] Penyimpanan Data ke Database Secara Massal [De ut o rial ini saya buat sebenarnya menanggapi banyaknya pertanyaan2 baik melalui ym ato email bahkan temen2 sendiri ada yg t elepon menanyakan bagaimana caranya menyimpan data input dari aplikasi ke database dalam 1x klik maka akan menyimpan meny impan seluruh data yang tertampung sebelumnya, mungkin hal ini dapat diakali dengan cara membuat m embuat suatu table temporary temp orary dan kemudian isi dari table temporary tersebut dimasukkan ke tabel sebenarnya tapi saya bilang hal ini sangat merepotkan, mere potkan, sebelum memasuki topik utamanya, terlebih dahulu saya akan menjelaskan tentang kegunaan keg unaan penyimpanan data secara massal ini, mungkin bagi yang masih kuliah akan mengalami hal ini ketika contohnya mengerja kan tug as membuat membuat suatu aplikasi peminjaman dimana ketika satu anggota dapat meminjam lebih dari 1 barang, nah disini akan dibahas cara untuk menyimpannya meny impannya dalam 1 kli klik k saj saja. a. t ent unya de dengan ngan meng gunakan Delphi

, sebe lumnya dii diinformasi nformasika kan n bahwa tutorial ini

mengasumsikan men gasumsikan temen-temen telah dapat mengkoneksikan antara aplikasi dengan database, database da tabase yang akan dicontohkan dicon tohkan yaitu adalah MySQL. apabila temen-temen belum dapat mengkoneksikannya maka alangk ah ah baiknya tementemen membaca artikel sebelumnya di htt p://programm p://programmiinglear nglearning.wordpress.com/2009 ning.wordpress.com/2009 /05/ 02/de lphiphi-koneksikoneksi-delphidelphi-mys mysqlqldengan-menggunakan-zeos/ . Sekarang kita akan memulai untuk proses pembuatannya, pertama kita siapkan terlebih dahulu rancangan database dimana saya memberi nama databasenya “db_vcd”, saya tidak akan membuat aplikasi yang kompleks melainkan hanya hanya sesuai dengan topik yang topik yang dibahas, adapun rancangan database hanya melingkupi peminjaman saja, untuk barang dan lainnya lainnya akan saya buat sebagai data statis. berikut ini adalah rancangannya tabelnya :

nah, selanjutnya kita membuat suatu form, disini untuk menyimpan data-data transaksi saya akan memakai TStringGrid, berikut ini adalah rancangan formnya :

pr og r ammi ng l ear ni ng .wor dpr ess.com/2009/05/15/delphi - penyi mpanan- data- ke- database- secar a- massal /

1/19

5/14/13

[Delphi] Penyimpanan Data ke Database Secara Massal | Programming Learning

Berbe da de ngan tutorial sebe lumnya, sekarang saya meng gunakan Delphi 7 untuk praktiknya

hal ini karena pertimbangan

saya masih banyak programmer delphi yang menggunakan versi 7 untuk belajar. seperti yang kita lihat rancangan form di atas dalam koneksi dengan MySQL menggunakan Zeos dan sekali lagi bagi yang belum mengerti mengenai koneksi Aplikasi ke MySQL dengan menggunakan zeos silahkan membaca tutorial saya yang sebelumnya, untuk rancangannya sendiri, file rancangannya adalah sbb : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

object frmMain: TfrmMain Left = 303 Top = 177 BorderStyle = bsDialog Caption = 'Penyimpanan Data Secara Massal' ClientHeight = 403 ClientWidth = 629 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 40 Width = 93 Height = 13 Caption = 'Tanggal Transaksi :' end object Label2: TLabel

programminglearning.wordpress.com/2009/05/15/delphi-penyimpanan-data-ke-database-secara-massal/

2/19

5/14/13


27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96

Left = 37 Top = 13 Width = 72 Height = 13 Caption = 'No. Transaksi :' end object Label3: TLabel Left = 320 Top = 40 Width = 99 Height = 13 Caption = 'Tanggal Kembali :' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 323 Top = 13 Width = 96 Height = 13 Alignment = taRightJustify Caption = 'Anggota Peminjam :' end object dpPinjam: TDateTimePicker Left = 115 Top = 37 Width = 186 Height = 21 Date = 39948.274073159720000000 Time = 39948.274073159720000000 TabOrder = 0 OnChange = dpPinjamChange end object edNota: TEdit Left = 115 Top = 10 Width = 186 Height = 21 TabOrder = 1 end object dpKembali: TDateTimePicker Left = 425 Top = 37 Width = 186 Height = 21 Date = 39948.274073159720000000 Time = 39948.274073159720000000 TabOrder = 2 end object cbAnggota: TComboBox Left = 425 Top = 10 Width = 186 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 3 Items.Strings = ( 'Tigor Mangatur Manurung' 'Heri Wersyadi' 'Hendra Purwanto' 'Susi Simelekete' 'Andi Purnama') end object Panel1: TPanel Left = 16


3/19

5/14/13

97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166


Top = 80 Width = 595 Height = 273 BevelOuter = bvLowered TabOrder = 4 object Label5: TLabel Left = 21 Top = 8 Width = 71 Height = 13 Caption = 'Nama Barang :' end object sgData: TStringGrid Left = 21 Top = 40 Width = 556 Height = 217 ColCount = 2 FixedCols = 0 RowCount = 2 ScrollBars = ssVertical TabOrder = 0 ColWidths = ( 105 420) end object cbBarang: TComboBox Left = 98 Top = 5 Width = 383 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 end object btnTambah: TButton Left = 487 Top = 3 Width = 90 Height = 25 Caption = 'Tambah' TabOrder = 2 OnClick = btnTambahClick end end object btnSimpan: TButton Left = 455 Top = 368 Width = 75 Height = 25 Caption = '&Simpan' TabOrder = 5 OnClick = btnSimpanClick end object btnBatal: TButton Left = 536 Top = 368 Width = 75 Height = 25 Caption = '&Batal' TabOrder = 6 OnClick = btnBatalClick end object zConn: TZConnection Protocol = 'mysql' HostName = 'localhost' Port = 3308 Database = 'db_vcd' User = 'root' Connected = True


4/19

5/14/13


167 168 169 170 171 172 173 174 175 176

Left = 16 Top = 368 end object qAct: TZQuery Connection = zConn Params = <> Left = 48 Top = 368 end end

Karena akan terlalu banyak yang diterangkan, maka saya langsung kepada kode pada unitnya, tetapi jangan khawatir karena saya telah menyertakan komentar-komentar supaya lebih mudah memahami maksud dalam setiap sintak yang ada 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, ExtCtrls, ComCtrls, ZConnection, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset; type TfrmMain = class(TForm) Label1: TLabel; dpPinjam: TDateTimePicker; Label2: TLabel; edNota: TEdit; Label3: TLabel; dpKembali: TDateTimePicker; Label4: TLabel; cbAnggota: TComboBox; Panel1: TPanel; sgData: TStringGrid; Label5: TLabel; cbBarang: TComboBox; btnTambah: TButton; btnSimpan: TButton; btnBatal: TButton; zConn: TZConnection; qAct: TZQuery; procedure FormCreate(Sender: TObject); procedure btnBatalClick(Sender: TObject); procedure btnTambahClick(Sender: TObject); procedure dpPinjamChange(Sender: TObject); procedure btnSimpanClick(Sender: TObject); private function GenCode: string ; //fungsi auto no.nota procedure RunSQL(_SQL: string ; isOpen: boolean = True ); { Private declarations } public { Public declarations } end ; CONST lama_pinjam_hari = 7; //lama pinjam adalah 7 hari var frmMain: TfrmMain; iRow: integer ; //variabel indikator jumlah baris implementation

{$R *.dfm} procedure TfrmMain.FormCreate(Sender: TObject); var ch: char ; begin


5/19

5/14/13

55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124


//variabel jumlah baris iRow := 2; //Pembuatan judul kolom grid with sgData do begin Cells[0,0] : = 'No. Nota'; Cells[1,0] : = 'Nama Barang'; end ; //buat simulasi nama barang for ch := 'A' to 'Z' do begin cbBarang.Items.Add('Barang - ' + ch); end ; //set tanggal pinjam menjadi tanggal hari ini dpPinjam.Date := NOW; //set tanggal kembali secara default dpKembali.Date := Now + lama_pinjam_hari; //munculkan nota edNota.Text := GenCode; end ; function TfrmMain.GenCode: string ; CONST zero = '0000'; var strTemp: string ; begin //Format Nota adalah N-0001

//liat no.nota terakhir dari tb_pinjam RunSQL('SELECT idpinjam FROM tb_pinjam ORDER BY idpinjam DESC LIMIT 1'); //cek apakah udah ada data dalam tabel, kalo belum hasilkan nilai pertama seperti format //pada contoh if qAct.Eof then begin result := 'N-0001'; exit; //stop sampe disini saja perintahnya, end ; //jika memasuki baris ini, maka berarti telah ada data dalam tabel dan saatnya untuk //melakukan filtering strTemp := Copy(qAct.FieldByName('idpinjam').AsString,3,4); //potong data yang ditemukan d //karakter yg dipotong adalah 4 (sampai akhir format no.nota) strTemp := IntToStr(StrToInt(strTemp) + 1);//dah ketemu nilai berikutnya strTemp := 'N-' + Copy(zero,1,Length(zero) - Length(strTemp)) + strTemp; result := strTemp; end ; procedure TfrmMain.btnBatalClick(Sender: TObject); begin Application.Terminate; end ; procedure TfrmMain.btnTambahClick(Sender: TObject); begin //validasi ketika pilihan kosong, maka abaikan perintah penambahan if cbBarang.ItemIndex < 0 then exit; //supaya tidak menjalankan perintah selanjutnya ketika tidak ada barang yg dipilih

//identifikasikan jumlah baris sgData.RowCount := iRow; //isikan data sesuai pilihan ke dalam grid


6/19

5/14/13

125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193


with sgData do begin Cells[0,RowCount - 1] := edNota.Text; Cells[1,RowCount - 1] := cbBarang.Text; end ;

//bersihkan isi cbBarang cbBarang.ItemIndex := -1; //karena style DropDownList, maka membersihkannya dengan cara se //tambah jumlah baris Inc(iRow,1); end ; procedure TfrmMain.dpPinjamChange(Sender: TObject); begin //isikan secara default tanggal pengembalian, lama pinjam sesuai dengan konstanta yang tel dpKembali.Date := dpKembali.Date + lama_pinjam_hari; end ; procedure TfrmMain.RunSQL(_SQL: string ; isOpen: boolean ); begin with qAct do begin Close; SQL.Text := _SQL; if isOpen then Open else ExecSQL; end ; end ; procedure TfrmMain.btnSimpanClick(Sender: TObject); var i: integer ; _SQL: string ; begin try //simpan ke tabel tb_detpinjam dlu ya for i:=1 to sgData.RowCount - 1 do //ini nih cara nyimpen massal yang sederhana, pake loo begin //jadi disimpen per baris gitu, inget mulai baris 1 pa _SQL := 'INSERT INTO tb_detpinjam(idpinjam,barang)VALUES(' + QuotedStr(sgData.Cells[0, RunSQL(_SQL,False ); //eksekusi SQL end ;

//setelah selesai, dah simpen di tabel tb_pinjam _SQL := 'INSERT INTO tb_pinjam(idpinjam,anggota,tglpinjam,tglkembali)VALUES(' + QuotedStr(edNota.Text) + ',' + QuotedStr(cbAnggota.Text) + ',' + QuotedStr(FormatDateTime( ',' + QuotedStr(FormatDateTime('yyyy-mm-dd',dpKembali.Date)) + ')'; RunSQL(_SQL,False ); //eksekusi SQL Application.MessageBox('Data berhasil disimpan dengan sempurna!!!','Informasi',MB_OK or MB //generate no.nota selanjutnya edNota.Text := GenCode; //bersih - bersih... iRow := 2; with sgData do begin RowCount := iRow; Cells[0,1] : = ''; Cells[1,1] : = ''; end ; except Application.MessageBox('Data gagal disimpan dengan sempurna!!!','Peringatan',MB_OK or MB end ; end ; end .


7/19

5/14/13


Untuk yang belum jelas atau berhasil silahkan download project jadi disini Demikian tutorial ini semoga berguna bagi temen-temen semuanya… About t hese ads

Rate this:

3 Votes

Like this:

Be the first to like this.

Delphi

data massal, data massal - delphi, database delphi, database mysql

← Tutorial Download via Rapidshare

[Delphi-Tips] Semua Tentang TEdit →

58 Tanggapan untuk [Delphi] Penyimpanan Data ke Database Secara Massal thetawvic Mei 15, 2009 pada 1:19 am bro ahli delphie ya, saya minta diajarkan donk, biasanya saya menggunakan VB tapi kelemahan vb adalah aplikasi yg jadi tidak bisa dipake dikomputer yg ga ada vb nya. klo saya nanya tolong dijawab ya, saya mau blajar delphi demi bangsa ini “berlebihan ya” http://www.tawvic.co.cc

Balas erwin November 13, 2010 pada 1:36 am klo vb mo di pake di PC yg ga da VBnya harus dibikin paket aplikasinya dulu bro…. klo dah ada paket aplikasinya baru bisa diinstall seperti software yg lain… dan prog bisa jalan tanpa ada programminglearning.wordpress.com/2009/05/15/delphi-penyimpanan-data-ke-database-secara-massal/

8/19

5/14/13


VB…

Balas

Tigor Manurung Mei 15, 2009 pada 3:13 am gak kq, msih cupu juga…yap klo bisa ntar dibantu

Balas

Herlambang Mei 20, 2009 pada 1:02 pm Waduw.. Boleh neh bagi-bagi ilmunya.. saya masih newbie neh

Balas

afdal Mei 24, 2009 pada 2:20 pm nice post

Balas

kurnia Mei 25, 2009 pada 7:05 pm ini kayak yang mau tak buat mas, tp masih rada2 mumet dikit. tp mayan lah ada gambaran. kasusnya juga te mp t abel buat kasir. btw , mau nanya mas. gini, misal aku ada cmbbox yang isine kode produk. nagh di sampingnya itu ada nama produk. kodeproduk pake cmbbox,namaproduk pake t edit. nagh cmbbox sudah bs ambil data dari database. trus onchange di te ditnya gmn ya. kok aku bingung gmn mengeluarkan record dari zQuery. aku coba ed it1.t ext := zquery.fieldbyname(‘namabarang’).asString t p gak mau

Balas

Tigor Manurung Mei 25, 2009 pada 7:10 pm Untuk menampilkan nama barang berdasarkan kode di comboBox yang terpilih???caranya gini di event OnChange ComboBox kodenya : with ZQuery1 do begin Close; SQL.Text := ‘SELECT namabarang WHERE kd_barang = “‘ + ComboBox1.Text + ‘”‘; Open; EditName.Te xt := FieldByName(‘ namabarang’). AsString; end;


9/19

5/14/13


Balas

Temmy Juni 4, 2009 pada 4:28 am thanks ya bro untuk t ipsnya..

Balas

ahmad Juni 10, 2009 pada 7:11 am bro tolongin saya dong, lagi buat tgs akhir ni, klo buat aplikasi pake delphi7 dg database interbase gmanaya?

Balas

Tigor Manurung Juni 10, 2009 pada 7:14 am @Temmy: ok…sama-sama. @ahmad: apanya yg gmn???

Balas

tanaka Juni 17, 2009 pada 1:16 am mas mo tanya nich cara klik check bok jika kita klik checknya maka uraian visible n itemnya di db grid enable trus jika mo nambah item dengan satu kode gimana mas

Balas

Tigor Manurung Juni 18, 2009 pada 6:24 am @tanaka : mungkin dapat diterangkan lebih mendetail lagi…sapa tau byk yang mengalami hal ini supaya tak buat in sklian t ut orialnya…:)

Balas

prie Juni 20, 2009 pada 12:59 am Bang tigor… ane mo nanya klo db pake paradox max brp ribu record sech? bab aplikasi ane klo udah 2750 error klo di isi lagi… thx berat atas pencerahannya.

Balas Tigor Manurung Juni 22, 2009 pada 4:00 am klo tt g bat asan record blon tau y…t api set auku si klo cman 275 0 msih bisa exists t uh,cob a cek set tingan BDE.

Balas


10/19

5/14/13


Saysansay Juli 24, 200 9 pada 1:59 am Wah b ro..t ernyata dikau favorit juga

Balas Tigor Manurung Juli 24, 200 9 pada 8:37 am @saysansay : wah lama neh gak de nge r kabar dikau

.

Balas

[email protected] Juli 27, 200 9 pada 5:59 am bang t igor tanya… saya punya data dari mikrokontroller.trus datanya dah bisa saya tampilkan lwt delphi.kl saya pgn nyimpen (record)data itu misalnya tiap 10 menit selama 10 jam itu gmn?krn kan data itu berubah2 trs tiap detik.misalnya gini bang… mulai ambil data jam 8 pagi.jadi dat a yg disimpan hanya data (nilai) p ada jam 08.00,08.10,08.20,08.30, dst , sampai 16.00 misalnya. tlg ya bang… thanx

Balas Tigor Manurung Juli 27, 200 9 pada 6:06 am hmm…tergantung, apabila anda ingin menyimpan value tsb ke dlam database maka silahkan mempelajari koneksi ke database dulu and algoritmanya MicroController –> App –> DB kemudian dari Database tersebut akan dapat ditampilkan oleh applikasi (gunakan DBGrid). tetapi apabila hanya ingin monitoring biasa saja,bisa menggunakan stringgrid aja, saya rasa lebih mudah.

Balas

ddr Juli 27, 2009 pada 11:40 pm nice post.. mnta izin mmpelajari tutorial nya neh bang tigor.. sy jg da prtanyaan ne bang. . kalo c ara bikin file installer aplikasi database supaya langsung jalan di komp ie lain gmana ya? sya pake delphi+dbexpress+mysql.. mohon bantuannya…. termaksih bnyak

Balas Tigor Manurung Juli 30, 2009 pada 6:14 pm apabila pke DBExpress sediakan terlebih dahulu DLL yang diperlukan and spertinya installer2 udah menyed iakan kq u ntuk sett ingan SQ Lnya, bahkan yang saya liat sepert i InstallAw are yang Ent erprise bisa juga mencant umkan Dumping SQL yang nant inya akan diproses oleh installaware t ersebut.


11/19

5/14/13


Balas

dian mufti amin Juli 30, 200 9 pada 4:45 am Bang minta tutorial cara meng edit, tambah , delete dan simpan pada delphi 7 koneksi zeos. trima kasih

Balas Tigor Manurung Juli 30, 2009 pada 6:15 pm Ok…nt ar deh klo ada sedikit wakt u luang t ak buatin tut orialnya

Balas

sky Ag ustus 2 1, 200 9 p ada 9:46 am Mas, Bagaimana cara untuk import file db_vcd nya saya import kok selalu error?? Terima kasih

Balas Tigor Manurung Ag ustus 23, 200 9 pada 1:23 pm coba aja di liat sourcenya, rancangan struktur databasenya seperti apa, saya menggunakan HeidiSQL untuk dump SQLnya…coba deh pke HeidiSQL juga.semoga membantu…

Balas

sky Ag ustus 2 5, 200 9 p ada 3:52 am tetap mas saya sudah pakai HeidiSQL klo error selalu ada tulisan ini /*!4010 1 SE T @OLD_SQL_MODE=@@SQ L_MODE, SQL_ MODE=’A NSI,NO_ BACKSLA SH_ESCAPES’ * / ; /*!4001 4 SE T @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY _CHECKS, FOREIGN_KEY_CHECKS=0 * / ; /* Input paramete r count is less then e xpe ct ed */ Terima Kasih

Balas Tigor Manurung Ag ustus 25, 200 9 pada 9:59 pm kesalahan di atas dapat diatasi dengan cara menghapus bagian2 yang salah, asalkan script yang dihapus bukan script standard aja.

Balas


12/19

5/14/13


marla Septe mber 17, 2009 pada 6:02 pm mas, bisa bantu aku… aku pake dbgrid untuk nampilin data, trus aku mau nyimpan, coding yang aku buat hanya bisa nyimpan 1-1 record, sedangkan aku mau 1X klik butt on save, semua dat a yang ada didbgrid t ersimpan. ini codingnya : procedure TForm12.SaveClick(Sender: TObject); var i: integer; no_formulir,npm,syarat,nilai_syarat,nilai_alte rnatif,kod e_ krite ria,nilai_kriteria,kod e_subkriteria,nilai_subkrite ria,hasil : string; begin ADOQ2.Conne ct ion.Beg inTrans; //be gintrans: mulai transaksi for i:= 1 t o DBGHasil1.DataSource.DataSe t. RecordCount do begin no_formulir := DBGHasil1.fields[0].AsString; syarat := DBGHasil1.fields[1].AsString; nilai_syarat := DBGHasil1.fields[2].AsSt ring; nilai_alternat if := DBGHasil1.fields[3]. AsSt ring; kode_kriteria := DBGHasil1.fields[4].AsString; nilai_krite ria := DBGHasil1.fields[5].A sString; kode_subkriteria := DBGHasil1.fields[6].AsString; nilai_subkrite ria := DBGHasil1.fields[7].A sString; hasil := DBGHasil1.fields[8]. AsSt ring; end; ADOC1.CommandT ext :=’insert into hasil’+ ‘(t as,no_fo rmulir,syarat,nilai_syarat, tahun_ahp, kode_beasiswa,nilai_alternatif,kode_kriteria,nilai_kriteria,kode_subkriteria,nilai_subkriteria,hasil)’+ ‘values(‘+Quo tedSt r(cbt as.Te xt)+’,'+Quo tedSt r(no_formulir)+’,'+Quot edSt r(syarat)+’,'+Quote dSt r(nilai_syarat)+’,'+CBah p.text+’,'+QuotedStr(CBbeasiswa.Text)+’,'+QuotedStr(nilai_alternatif)+’,'+QuotedStr(kode_kriteria)+’,'+QuotedStr(nilai _kriteria)+’,'+QuotedSt r(kode _subkrite ria)+’,'+QuotedSt r(nilai_subkrite ria)+’,'+Quote dSt r(hasil)+’)' ; ADOC1.Exe cut e; ADOQ2.Conne ct ion.CommitT rans; ShowMessage(‘Data Telah Tersimpan.’); end; apa coding-ku ada yang kurang ?tolong ya mas… trima kasih.

Balas Tigor Manurung Sept ember 19, 2009 pada 3:10 pm coba de h yang koding ini : for i:=1 t o DBGHasil1.DataSource. DataSet .RecordCount do itu diganti dengan : for i:=0 t o DBGHasil1.DataSource.DataSe t. RecordCount -1 do coba spt itu dlu y…


13/19

5/14/13


Balas budi Juli 9, 2012 pada 11:05 am mas udah tak coba kog ga bisa ya kek script diatas,, udah tak ganti juga,, nyimpennya datanya sama semua,, minta bantuannya ya mas,,

Pinokio Septe mber 25, 2009 pada 3:53 am ka’ izin minta petunjuknya…saya lagi ngerjain tugas delphi, tentang stok barang. nah kesulitan saya ketika barang d ari gudang di ambil/keluar 1 pcs, t p di dat absenya ga berkurang..t olong pe ncerahanya..T q

Balas Tigor Manurung Sept ember 25, 2009 pada 6:52 pm itu sepe rtinya diperlukan sebu ah table stok,nah nt ar keluar barang itu hanya dicatat pada t able transaksi jadi tidak meng urangi jumlah yang ada di table sto k. klo mo lebih lanjut silahkan hub ungi via ym aj y

Balas

guh Maret 19, 2010 pada 12:26 pm //kalo ud ah bikin stok barangnya tbbarang.fieldbyname(‘Stok’).value:=tbbarang.fieldbyname(‘stok’).asinteger – strtoint(Edit1.text); stok barang bisa berkurang apabila ada transaksi

Balas

guh Maret 19, 2010 pada 12:31 pm //kalo ud ah bikin stok barangnya if tbb aranf.locate(‘St ok’,Editkodebrg.te xt,[]) then begin tbbarang.edit; tbbarangStok.value:=tbbarangStok.asinteger – strtoint(EditBanyakStok.text); tbbtarang.post; stok barang bisa berkurang apabila ada transaksi

Balas


14/19

5/14/13


marla Oktobe r 1, 2009 pada 3:46 pm mas,t olong aku..aku mau nyimpan dat a passwo rd t api ada waktu dan t anggal,bagaimana menyimpan data berupa tanggal dan waktu ke database: ini koding ku.. procedure TForm1.Timer1Timer(Sender: TO bject); begin edit3.Text:=DateTostr(date); edit4.Text:=Timetostr(time); end; procedure TForm1.isipass; begin ADOPass1.Ap pe nd; case rgstatus.ItemIndex of 0:ADOPass1['status']:= ‘A’; 1: ADOPass1['status']:= ‘T’; end; ADOPass1['use r_nama']:= e dit1.T ext ; ADOPass1['password'] :=edit2.Text ; ADOPass1['t anggal']:=e dit3.t ext ; ADOPass1['jam']:=e dit4.t ext ; ADOPass1.post ; tapi kok ga bisa ? thanks ye…

Balas Tigor Manurung Oktobe r 2, 2009 pada 1:24 am biasakan untuk memakai sintak sql aja, apabila terdapat error mudah untuk tracenya.silahkan explore ssuai dengan contoh

.

Balas

iwan November 4, 2009 pada 8:32 am makasih mas tas artikelx tp saya blom ngerti soalx baru mau belajar delphi….

Balas manztiara Desember 10, 2009 pada 3:06 am Keep learning as you can … you will be one of professional persons …

Balas


15/19

5/14/13


manztiara Desember 10, 2009 pada 3:05 am good post, gimana kalau pada saat running / open form : 1. create temporary table 2. assign ke grid 3. tambahin terus sampe pegel data 4. mau nge save … pake zSQLProcessor yang b isa multi-stat ement … insert into tabel_bener select … from tabel_temporer; delete from t abel_te mporer; SQLProc.Execute; 5. Refresh grid, kasih info ke user data dah ke simpen .. gitu ajah ide nya … dikid

Balas Tigor Manurung Desember 10, 2009 pada 3:24 am Mantabz neh si om klo dah angkat bicara

Balas

maskaes Februari 25, 2011 pada 6:46 pm kalo p ake dat abase access bisa gak dibuat table t emporary?

Balas

mas_kofa Desember 28, 2009 pada 9:23 am aku dah coba kok error ya om….

Balas Tigor Manurung Desember 28, 2009 pada 9:25 am yang mana nih yang error

Balas

mas_kofa Desember 28, 2009 pada 11:09 am aku juga bingung..error nya dimana?


16/19

5/14/13


Balas Tigor Manurung Desember 28, 2009 pada 11:11 am wakakkakkakakkakk….ada2 aja neh…

)

Balas

maulana Januari 5, 2 011 pada 2:52 pm mas sory klo nanya nya nyimpang.. gmna cara import data dari ms acces (atau sqlserver) ke interbase, saya ada tugas bikin aplikasi delphiinte rbase, tp studi kasusnya perlu data yg bnyk n dari format yg be rbeda.. mohon bantuannya..

Balas

Ridwan Sapoetra Juli 24, 201 1 pada 8:19 am Maaf Mas,, Saya mau tanya!! Kalau cara memasukkan data yang terselect di dalam string grid ke dalam Edit Box Gimana ya!! Event’a tapi Pas lagi DblClick baris yang terselect Terima Kasih

Balas

Nana Maryana Maret 23, 2012 pada 4:42 am ma’f mas aq mau d’ajarin bikin aplikasi untuk pengdaan barang…

Balas Tigor Manurung Maret 26, 2012 pada 1:37 am silahkan hubungi saya via ym

Balas

Nana Maryana Maret 23, 2012 pada 4:43 am mohon bantuannya…

Balas

ilham Ap ril 21, 201 2 pada 5:05 pm mas tigor mau manya nech… gimana caranya nyimpan d ata g ambar trus munc ulin lagi. data gambar di save di dbgrid from2 dan image ada di form1. programminglearning.wordpress.com/2009/05/15/delphi-penyimpanan-data-ke-database-secara-massal/

17/19

5/14/13


nah saat mau ed it data muncul dah gambar tuch di image form1 oya data dari access mas tigor

Balas

faham Juni 14, 2012 pada 6:12 am klo mo simpan secara masal kan sintak-sqlnya tinggal begini “INSERT INTO tabel_master (select * from tabel_temporary WHERE kondisinya_apa)”, syarat fields2nya sama, kl ga sama disamain dulu dg as

Balas Tigor Manurung Juni 16, 2012 pada 5:18 am betul sekali mas

Balas

rian Juni 15, 2012 pada 3:06 pm pengen osourcing pembuatan struk penjualan di qrepoot

Balas Tigor Manurung Juni 16, 2012 pada 5:17 am mksdnya osourcing mas?

Balas

ghopal Juli 5, 2012 pada 7:46 am sy pake database m.access, ada table ‘tbharga’, field2x-nya status,harga,hari,jam. memakai ADOQueryHarga. ada 3 combo box ( status,hari,jam), edit(h arga). yg mo sy tanya, jika saya pilih: status = pelajar hari = senen jam = 6 maka yang dia bayar adalah 120.000 bentuk kodingnya gimana ya mas ??? thx banget atas bantuannya

Balas


18/19

5/14/13


Jin Kojecks Juli 8, 2012 pada 10:57 am Bagus banget bahasan-bahansanya…. thanks jadi menambah inspirasi…. terutama bwt Tigor

Balas

Meylinda Widy Ananta Juli 23, 201 2 pada 2:36 am Mas,mau tanya soal penyimpanan data gambar di database,coding simpannya gimana ya?(databasenya pakai paradox). Tlg jawabannya kirim ke email ini aja [email protected] Trima kasih sebe lumnya.

Balas @kangkresna Ap ril 22, 201 3 p ada 8:38 am gambarnya jgn disimpan,direktory tempat datanya aja yg disimpan sebagai char,lalu jika data gambar di klik kasih p rint ah load

Balas

Blog pada WordPress.com. Tema: zBench oleh zwwooooo.


↑ Top

19/19

[Delphi] Penyimpanan Data Ke Database Secara Massal _ Programming Learning

Recommend Documents