Mungkin yang di maksud seperti contoh dibawah untuk insert data :

////////////////////////////////batas atas
string ls_no_id,no_id,no_kostomer
string ls_kode,ls_nama,ls_alamat,ls_telepon,ls_person

li_tanya=messagebox('Simpan','Yakin Data Akan Disimpan...?',question!,YesNo!)

if li_tanya = 1 then
 

ls_kode   = sle_1.text
ls_nama   =  sle_2.text
ls_alamat  = sle_3.text
ls_telepon  =  sle_4.text
ls_person  =  sle_5.text

if lb_edit = false then
 select no_kostomer
 into :ls_no_id
 from tbl_no_id;

 ls_no_id = string(integer(ls_no_id)+1)
 no_kostomer= 
Left('00000',Len('00000')-len(String(integer(ls_no_id))))+string(integer(ls_no_id))
 sle_1.text=no_kostomer
 ls_kode   = sle_1.text
 
 insert kostomer(kd_kostomer,nama,alamat,telepon,person) 
 values(:ls_kode,:ls_nama,:ls_alamat,:ls_telepon,:ls_person);
 update tbl_no_id set no_kostomer = :ls_kode;
 messagebox('insert','Success')
 
else 
 update kostomer set 
nama=:ls_nama,alamat=:ls_alamat,telepon=:ls_telepon,person=:ls_person
 where kd_kostomer=:ls_kode;
 messagebox('Update','success')
end if

end if
dw_2.retrieve('','')
commit;

////////////////////////////////batas bawah


  ----- Original Message ----- 
  From: Rudi Hartono 
  To: [email protected] 
  Sent: Monday, April 09, 2007 8:09 AM
  Subject: [indopb] simpan data


  hallo pber's

  sy mau tanya nih, utk cara menyimpan data ke database.
  kalo mau simpan data, memakai perintah dw_1.update. 
  pertanyaanya : saat ini saya memakai database sql
  server 2000, bisa ga sy memakai perintah insert into
  tabel utk menyimpan data yg sy input via datawindow?
  atau apakah perintah dw_1.update ini emang sdh baku
  sbg perintah utk menyimpan datawindow ke database sql
  server 2000 atau dbms lainnya?

  mohon tanggapan dari temen2 yg sdh pengalaman memakai
  sql server? sy baru memasuki dunia powerbuilder,
  aslinya sy programer vb.

  kalo bs tolong kasih script sederhana aja bgmn
  menggunakan perintah insert utk menyimpan datawindow
  ke tabel.

  makasih atas bantuanya.

  rudi

  __________________________________________________________
  TV dinner still cooling? 
  Check out "Tonight's Picks" on Yahoo! TV.
  http://tv.yahoo.com/


   

Kirim email ke