Arsip: funtion insert data dengan array

more 13 years ago
cyber2000
Saya mau tanya , tapi sebelumnya saya minta maaf karena mungkin pertanyaan saya agak bodoh. Bisa gak buat function insert data dengan array.
misalnya kayak gini pemanggilan funtionnya.
InsertData(NamaTable,);
Jadi kira2 seperti itu pemanggilannya.
Sekian Dan Terima Kasih ya.
:lol: :lol:

more 13 years ago
DelphiExpert
bisa:
function InsertData ( const NamaTable: string; const Values: array of string ) : Boolean;
var I: Integer;
begin
Table.SQL.Text := 'I.n.s.e.r.t into anu ( FieldA, FieldB... ) values ( :FieldA, :FieldB... ) ; ' ;
for I := 0 to Length ( Values ) -1 do
Table.Params [I].Value := Values [I];
Table.Post;
end;

more 13 years ago
cyber2000
terima kasih ya .....atas bantuannya.
kalo ada code ini buat program jadi gampang gak susah2 insertnya ..........
hehehehe

more 13 years ago
cyber2000
Begini mas ada yang salah penjelasan saya maksud saya Function insertnya bersifat global.
Jadi begini misalnya ada 2 table yang berbeda.
table ke 1:
Table Pegawai
-------------------
-kode_pegawai
-nama_pegawai
-alamat
-telepon
table ke 2:
Table Sales
----------------
-kode_sales
-penjualan
-komisi
dari sini kita simpulkan ada perbedaan, table 1 punya 4 kolom, sedangkan table ke 2 ada 3 kolom ;
kalo saya biasanya membuat pernyataan 2 sql yang berbeda dan biasanya jumlah kolom menentukan textbox.
jadi codenya yng bersifat global seperti ini
1. InsertData('Pegawai',);
2. InsertData('Sales',);
terima kasih atas bantuan sebelumnya.

more 13 years ago
DelphiExpert
lha iyes... parameters tersebut dinamis, bisa memenuhi kebutuhan njenengan.
tinggal dikembangin aja :D

more 13 years ago
ImanD
@cyber2000
itu dah cover kebutuhannya bro,
coba di posting isi dari function InsertData(); biar lebih jelas lg.

more 13 years ago
cyber2000
Oh terima kasih ya teman-teman sekalian.
tp ada satu hal aku masih bingung dengan pernyataan sqlnya.
Table.SQL.Text := 'I.n.s.e.r.t into anu ( FieldA, FieldB... ) values ( :FieldA, :FieldB... ) ';
apakah ini coding khususnya ya bro?

more 13 years ago
cyber2000
wah wah nampaknya aku banyak belajar ya. terima kasih semua teman - teman.
hehehehe
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Printing dengan Assignfile????
by wati in Tip n Trik Pemrograman more 16 years ago - tidak bisa nge-print manual dengan QuickReport?
by gormet in Reporting more 15 years ago - Contoh Program Penjualan + Inventory
by andip70 in Hal umum tentang Pascal Indonesia more 15 years ago - deteksi paper
by asiyrob in Tip n Trik Pemrograman more 15 years ago - FTP download
by belajaraja in Delphi.NET more 15 years ago - install komponent
by brodien in Tip n Trik Pemrograman more 16 years ago - dbGridku berkedip kayak lampu DISKO asikk eh salah Tolonggg!
by joudie in Hal umum tentang Pascal Indonesia more 14 years ago - Where yang meliputi stu column,.
by sudrun in Lain-lain more 14 years ago - Indy
by Butani in Tip n Trik Pemrograman more 15 years ago - Membaca Barcode
by fatahjunaidi in Hal umum tentang Pascal Indonesia more 17 years ago