Arsip: funtion insert data dengan array

more 15 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 15 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 15 years ago
cyber2000
terima kasih ya .....atas bantuannya.
kalo ada code ini buat program jadi gampang gak susah2 insertnya ..........
hehehehe

more 15 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 15 years ago
DelphiExpert
lha iyes... parameters tersebut dinamis, bisa memenuhi kebutuhan njenengan.
tinggal dikembangin aja :D

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

more 15 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 15 years ago
cyber2000
wah wah nampaknya aku banyak belajar ya. terima kasih semua teman - teman.
hehehehe
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- bagaimana menggunakan quick report
by divanda in Hal umum tentang Pascal Indonesia more 17 years ago - fungsi tanggal
by yayaretina in Enginering more 18 years ago - [Help] Cara meletakn tabel di form
by pai_chan in Tip n Trik Pemrograman more 15 years ago - Komponen SMS lagi.......
by fissas in Hal umum tentang Pascal Indonesia more 17 years ago - pake Enter buat pengganti tab
by shindo in Hal umum tentang Pascal Indonesia more 17 years ago - mata uang baru, kurs hari ini
by LuriDarmawan in OOT more 16 years ago - Query untuk memilih max(date) dari satu tabel
by b_squared in FireBird more 14 years ago - Mempercepat Aplikasi Database
by delphi_warrior in Lain-lain more 17 years ago - tombol tab...?
by aireda in Tip n Trik Pemrograman more 18 years ago - cara ambil data utk print struk
by putukaca in Hal umum tentang Pascal Indonesia more 18 years ago