minta sedikit penjelasan dari semua ... klo melihat penjelasan mas ... 1 button save = update / edit yah ... ? betul apa yg di bilang mas liung ... bantu aja dgn bikin status, tapi ada beberapa cara ..
1. yaitu hapus semua data yg berkaitan dgn no transaksinya ... lalu write ulang ... atau 2. kalau udah mahir sama sql query .. coba pake Rollback merefers ke no transaksi yg dimaksud yang di tanam di Trigger ... terus terang ... kasus ini sama seperti yg saya alami ... dan selama ini di akalin dgn cara 1 ... cuma sekarang saya ingin berubah haluan ... menggunakan cara 2 ... ada yg udah pernah nyoba cara ke 2 ... ? kalau ada sharing donk ... thx ----- Pesan Asli ---- Dari: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> Kepada: [email protected] Terkirim: Selasa, 19 Juni, 2007 10:47:51 Topik: Re: [Programmer-VB] Coding Eror ..!! Tidak Mau Ke Kondisi/Logika Edit Data...? Sepertinya kondisi cmdSimpan.Enabled selalu dalam kondisi True, jadi program selalu memproses Recordset.AddNew. Coba anda telusuri lagi logikanya. Untuk gambaran logika, bisa diakali dengan mendeklarasikan variabel (misalnya strStatus). Pada saat user meng-klik "Add New", strStatus di-set jadi "Add" ; sebaliknya kalau user meng-klik "Edit", strStatus jadi "Edit" Jadi pada saat cmdSimpan_click( ) : If strStatus="Add" DataBrg.Recordset. AddNew 'Isi field-fied nya DataBrg.Recordset. Update else 'Tidak perlu add new, langsung Isi field-field nya DataBrg.Recordset. Update endif Selain pakai Recordset.AddNew atau Update, anda bisa gunakan juga SQL query. Jadi code nya kira2 begini : Connection.Execute "insert namatable (kode, nama) values('" & txtKode.Text & "', '" & txtNama.Text & "') atau Connection.Execute "update namatable set nama = '" & txtNama.Text & "' where kode = '" & txtKode.Text & "'" Setelah di-execute, DataBrg.Refresh supaya recordset nya up-to-date. Thanks Liung's www.apktntajd. com (Ape Kate Ente Aje Deh!) ----- Original Message ----- From: D.N.Adam To: Programmer-VB@ yahoogroups. com Sent: Tuesday, June 19, 2007 10:32 AM Subject: [Programmer- VB] Coding Eror ..!! Tidak Mau Ke Kondisi/Logika Edit Data...? Teman-teman, mohon bantuannya. Mengapa saya buat program di VB 6.0 utk Edit Data, Kok kondisi logikanya tdk menuju script utk Edit Datanya..? Malah menganggap saya menambah Data Baru. Pdhal saya cuman mau edit Stok Barangnya.Apakah ada kesalahan logika untuk Tambah atau Editnya karena saya buat kondisi Tambah(AdNew) & Edit(Edit) jadi satu dgn tombol command button SIMPAN.Coding sbb: If txtkdbrg = "" Or TxtNama = "" Or txthargabeli = "" Or txthargajual = "" Or txtstockmin = "" Then X = MsgBox("Data Tidak Boleh Kosong...!", 0, "Informasi") Exit Sub Else If CmdSimpan.Enabled = True Then 'On Error GoTo ErrorHandler DataBrg.Recordset. AddNew DataBrg.Recordset! kdbrg = txtkdbrg.Text DataBrg.Recordset! nama = TxtNama.Text DataBrg.Recordset! hargabeli = txthargabeli. Text DataBrg.Recordset! hargajual = txthargajual. Text DataBrg.Recordset! stockmin = txtstockmin. Text datajenisbrg. Recordset. AbsolutePosition = cmbjenisbrg. ListIndex DataBrg.Recordset! kdjenis = datajenisbrg. Recordset! kdjenis DataBrg.Recordset. Update Call PosisiAwal Call txtkosong 'On Error Resume Next 'On Error GoTo 0 ElseIf CmdEdit.Enabled = True Then DataBrg.Recordset. Edit DataBrg.Recordset! nama = TxtNama.Text DataBrg.Recordset! hargabeli = txthargabeli. Text DataBrg.Recordset! hargajual = txthargajual. Text DataBrg.Recordset! stockmin = txtstockmin. Text datajenisbrg. Recordset. AbsolutePosition = cmbjenisbrg. ListIndex DataBrg.Recordset! kdjenis = datajenisbrg. Recordset! kdjenis DataBrg.Recordset. Update End If End if End Sub ________________________________________________________ Kunjungi halaman depan Yahoo! Indonesia yang baru! http://id.yahoo.com/
