Author Topic: 3 Record baru dalam 1 kali insert  (Read 1013 times)

0 Members and 1 Guest are viewing this topic.

Offline ari_chandra

  • Junior Member
  • *
  • Posts: 359
    • www.ariechandra.blogspot.com
3 Record baru dalam 1 kali insert
« on: July 27, 2010, 10:28:11 AM »
salam foxer,
sebelumnya mohon maaf kalau penulisan subject judulnya kurang tepat. Begini saya ada sedikit kebingungan dengan masalah yg timbul dari program yang saya buat. saya ada listing simpan seperti ini :
Code: [Select]
DO konak
SQLEXEC(lnhandle,"select now() as tgl from tglserver","rv_server")
lc_tglkeluar = rv_server.tgl
SQLEXEC(lnhandle,"select no,kdkary,nmkary,pos,tgljam_masuk,tgljam_keluar,jabatan from user_main where no = 'HIS00000000000'","rv_history")
SELECT rv_history
CURSORSETPROP("Tables","user_main")
CURSORSETPROP("KeyFieldList","no")
CURSORSETPROP("UpdatableFieldList","no, kdkary, nmkary, pos, tgljam_masuk, tgljam_keluar, jabatan")
CURSORSETPROP("UpdateNameList","no user_main.no, kdkary user_main.kdkary, nmkary user_main.nmkary, pos user_main.pos, tgljam_masuk user_main.tgljam_masuk, tgljam_keluar user_main.tgljam_keluar, jabatan user_main.jabatan")
CURSORSETPROP("SendUpdates",.T.)
INDEX ON no TAG cdxhis
thisform._nohistory
INSERT INTO rv_history(nohistory, kdkary, nmkary, pos, tgljam_masuk, tgljam_keluar, jabatan) ;
VALUES (vnohistory, _userid, _usernm, _lokasi, jam_m, lc_tglkeluar, _userlvl)
IF TABLEUPDATE(1,.T.,"rv_history")
USE IN SELECT("rv_server")
USE IN SELECT("rv_history")
SQLDISCONNECT(lnhandle)
ENDIF
Dari listing tersebut data yg masuk ke tabel terdapat 3 record dengan nilai yg sama dalam 1 kali proses insert tapi nilai yg beda hanya pada field nohistory yg nilainya berurutan (diambil dari method _nohistory). padahal di source code tersebut, tidak ada perintah perulangan untuk menyimpan. Namun pada saat saya tambah listing berikut di source code simpan :
Code: [Select]

IF TABLEUPDATE(1,.T.,"rv_history")
       _userid = " "
        _userlvl = " "
        _usernm = " "
        tgl_m = " "
        jam_m = " "
USE IN SELECT("rv_server")
USE IN SELECT("rv_history")
SQLDISCONNECT(lnhandle)
ENDIF
Hal tersebut tidak terjadi, kira2 apa y penyebabnya??? ??? ??? apa pengaruh ya jika nilai variabel itu tidak di kosongin?
terima kasih atas perhatiannya,....





Salam,
« Last Edit: July 27, 2010, 10:35:55 AM by ari_chandra »
Ari Chandra

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.605
    • Foxy Land
Re: 3 Record baru dalam 1 kali insert
« Reply #1 on: July 27, 2010, 01:40:26 PM »
Quote from: You
apa pengaruh ya jika nilai variabel itu tidak di kosongin?
Ya, saya rasa, Anda yang harus menjawab pertanyaan ini. Apa pengaruh di program Anda apabila nilai variable itu kosong? Apa bedanya kalau nilai variable itu tidak kosong? Ada banyak kasus yang menyebabkan satu method jalan. Misalnya, apakah Anda meletakkan kode tertentu apabila form aktiv (lihat di Thisform.Activate() ) Atau mungkin di grid? (event AfterRowColChange), atau malah di event GotFocus dari textbox?

Banyak kasus. Jadi silahkan lihat lagi coding Anda. Kalau memang mentok, coba aja upload minimal satu form komplit dengan koding dan class yang mungkin diperlukan. Semoga ada rekan-rekan di sini yang bersedia meluangkan waktunya melihat kode Anda dan memberitahu dimana penyebab pengulangan itu terjadi.

regards,
foxy
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.

Offline aldis

  • Junior Member
  • *
  • Posts: 326
Re: 3 Record baru dalam 1 kali insert
« Reply #2 on: July 27, 2010, 01:50:34 PM »
Betul...Betul..Betul..   :icon_salut: :icon_salut:

Offline ari_chandra

  • Junior Member
  • *
  • Posts: 359
    • www.ariechandra.blogspot.com
Re: 3 Record baru dalam 1 kali insert
« Reply #3 on: July 27, 2010, 02:04:41 PM »
Quote from: You
apa pengaruh ya jika nilai variabel itu tidak di kosongin?
Ya, saya rasa, Anda yang harus menjawab pertanyaan ini. Apa pengaruh di program Anda apabila nilai variable itu kosong? Apa bedanya kalau nilai variable itu tidak kosong? Ada banyak kasus yang menyebabkan satu method jalan. Misalnya, apakah Anda meletakkan kode tertentu apabila form aktiv (lihat di Thisform.Activate() ) Atau mungkin di grid? (event AfterRowColChange), atau malah di event GotFocus dari textbox?

Banyak kasus. Jadi silahkan lihat lagi coding Anda. Kalau memang mentok, coba aja upload minimal satu form komplit dengan koding dan class yang mungkin diperlukan. Semoga ada rekan-rekan di sini yang bersedia meluangkan waktunya melihat kode Anda dan memberitahu dimana penyebab pengulangan itu terjadi.

regards,
foxy

Terima kasih banyak pak foxy atas tanggapannya.
barusan sudah ketemu masalahnya, ternyata akibat ketidaktahuan saya soal perintah on shutdown juga dijalankan pada saat ingin keluar dari keseluruhan aplikasi, yg tdnya saya kira cuma dijalankan jika windows ingin di restart atau di shutdown. maklum masih newbie juga,.... hehehe  :icon_biggrin: :icon_biggrin:
karena saya membuat (.prg) yg isinya kurang lebih sama seperti listing diatas yg saya taruh di perintah on shutdown pada main.prg
sekali lagi terima kasih,...  :happy3: :happy3:



Salam,
Ari Chandra

Offline ari_chandra

  • Junior Member
  • *
  • Posts: 359
    • www.ariechandra.blogspot.com
Re: 3 Record baru dalam 1 kali insert
« Reply #4 on: July 27, 2010, 02:06:35 PM »
Betul...Betul..Betul..   :icon_salut: :icon_salut:

sep gan !!  :thumbsup: :thumbsup: :thumbsup: :icon_biggrin: :icon_biggrin: :icon_biggrin:
Ari Chandra