Ini Sample source yang dulu saya gunakan.
QInsert := TSmartQuery.Create(nil);
QInsert.Session := FDatabase.DBCon;
QInsert.sql.Clear;
QInsert.SQL.Text := 'insert into table1 values(:column1,:column2)';
QInsert.ParamByName('column1').AsString := txtEdit1.text;
QInsert.ParamByName('column2').AsString := txtEdit2.text;
QInsert.ExecSQL;
freeAndNil(QInsert);
Untuk komponen yang saya gunakan:
QInsert : TSmartQuery
DBCon : TDatabase
txtEdit : TEdit
FDatabase : TForm
Penggalan diatas intinya adalah mengcreate komponen QInsert yang diturunkan
dari TSmartQuery. hubungkan komponen
yang dicreate dengan database connector yang ada pada Form FDatabase. isikan
comment query yang ingin dijalankan lalu isi nilai yang akan diinputkan ke
dalam table, lalukan eksekusi. jika sudah selesai lepaskan komponen yang dibuat
tadi untuk menghindari leaking.
mohon maaf jika banyak kekurangan. sama-sama newbie :)
smoga membantu.
salam,
Tyo
________________________________
Dari: Agus Riyanto <[email protected]>
Kepada: [email protected]
Terkirim: Sab, 13 Februari, 2010 22:52:03
Judul: [indo-oracle] newbie oracle
untuk semua pemakai oracle, saya ada masalah nih mau simpan data oracle dengan
menggunakan delphi saya memakai komponen oracle data acceess. dengan
menggunakan query bagiamana caranya ya.
Akses email lebih cepat. Yahoo! menyarankan Anda meng-upgrade browser ke
Internet Explorer 8 baru yang dioptimalkan untuk Yahoo! Dapatkan di sini!
http://downloads. yahoo.com/ id/internetexplo rer
[Non-text portions of this message have been removed]
___________________________________________________________________________
Dapatkan alamat Email baru Anda!
Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain!
http://mail.promotions.yahoo.com/newdomains/id/
[Non-text portions of this message have been removed]
