dear to all master Saya alami masalah yang sama nih dengan edit, tapi bukan pada proses editnya tapi pada salah satu field yang akan diubah, maksud saya gini: di database saya berikan field tsb lengthnya 30, tapi ketika save khan g sampe segitu paling cuman 10 ketika disave didatabase itu tersimpan 30, misal field nama 'farid hendrawan' dibelakangnya kaya' ada spasinya jadi 'farid hendrawan ', sehingga pas mau diedit ada bug muncul dengan pesan "multiple step operation generated error. check each status value" dan rujuknya ke field yang mau dirubah tadi, kira-kira gimana pemecahannya supaya bisa pas yang disave cuma sepanjang yang dibutuhkan saja, sehingga ketika diedit g ada masalah.
Thanx a lot ----- Original Message ---- From: nisa cute <[EMAIL PROTECTED]> To: [email protected] Sent: Thursday, June 21, 2007 1:43:00 PM Subject: refers sedikit: [Programmer-VB] Coding Eror ..!! Tidak Mau Ke Kondisi/Logika Edit Data...? 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] ad.com" <[EMAIL PROTECTED] ad.com> Kepada: Programmer-VB@ yahoogroups. com 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! <!-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a { text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc { background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o {font-size:0;} .MsoNormal { margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq {margin:4;} --> ____________________________________________________________________________________ We won't tell. Get more on shows you hate to love (and love to hate): Yahoo! TV's Guilty Pleasures list. http://tv.yahoo.com/collections/265
