kalo aku sih biasanya pake template ngesave itu pasti kaya gini. tujuannya
supaya kalo errornya berhubungan dengan database baru dirollback, kalo gak, ya
biarin.
==========================================================
on error goto errSave
with cn
.begintrans
.execute strSQL
.committrans
end with
on error goto 0
if not apakahada( "tblMasterBarang", "KodeBarang", txtkodebarang.text) then
msgbox "data belum tersimpan !!!"
end if
exit sub
errSave :
if err.number <> 0 then
msgbox err.description
cn.rollbacktrans
end if
==========================================================
bart2000e <[EMAIL PROTECTED]> wrote: weh iya sorry salah berarti :
with Conn
.begintrans
.execute str_insert
on error goto 0
if apakahada("tblMasterBarang", "KodeBarang", txtkodebarang.text)
=false then
conn.rollbacktrans
else
conn.committrans
endif
apakah kaya gini ya pak ?
thx
--- In [email protected], DAS mania <[EMAIL PROTECTED]> wrote:
>
> keliatannya sih itu agak salah, karena kalau gak ditemukan datanya,
maka dia rollback tran, sedangkan transaksi sudah di-commit duluan.
nantinya pasti keluar error "No active transaction"
>
> bart2000e <[EMAIL PROTECTED]> wrote: makasih pak, saya emang agak
anti pake resume next untuk error
> traping (jadi ngga keliatan kalo error hehehehe), ato emang
> maksudnya kaya gini :
> on error goto errSave
> with Conn
> .begintrans
> .execute str_insert
> .committrans
> end with
> on error goto 0
> if apakahada("tblMasterBarang", "KodeBarang", txtkodebarang.text)
> =false then conn.rollbacktrans
>
> exit sub
> errSave :
> ato saya salah maksud pak ?
> thx
>
>
> --- In [email protected], DAS mania <dasmania_cool@>
> wrote:
> >
> > Pertama-tama coba liat ada syntax :
> >
> > On Error Resume Next
> >
> > atau tidak. Kalau ada hilangkan kebiasaan jelek itu, kalau gak
> ada tambah cek data setelah commit trans.
> >
> > Saran : Kalau bisa biasakan saat ngesave pake struktur sbb :
> >
> > On Error goto errSave
> > .....
> > begintrans
> >
> > committrans
> >
> > on error goto 0
> > [cek data apa benar-2 sudah masuk di sini]
> > .....
> >
> > exit sub
> > errSave :
> > .....
> > rollbacktrans
> >
> > Aku gak tau brontox menginfeksi apa saja, lebih baik tanya ke
> tech support antivirus aja.
> >
> > bart2000e <edi@> wrote: Saya sedang mengembangkan
> program Inventory, karena lalu lintas
> > datanya baru ribuan dan setelah 4 bulan ukuran Access cuman 4,5
> MB-an,
> > clientnya ada 6 komputer, selama 4 bulan ngga ada masalah yang
> > berarti, cuman di salah satu client yang bisa akses internet
> kemarin
> > kena virus brontox, setelah itu ada hal yang aneh buat saya :
> waktu
> > ada execute query simpan, di program dikatakan udah bisa simpan
> cuman
> > ngga bisa masuk ke backend nya.... ada yang pernah ngalami ngga
> ya ?
> > saya untuk simpan dan hapus selalu pake model execute di object
> > koneksinya :
> > -----------------------------------------------------------------
> ---------------------------------------------------
> > With Conn
> > .BeginTrans
> > .Execute str_insert
> > .CommitTrans
> > End With
> > MsgBox "Transaksi berhasil disimpan"
> > -----------------------------------------------------------------
> ---------------------------------------------------
> > dan anehnya lagi kadang2 juga bisa tapi sering ngga bisa nya,
> saya
> > ngga abis pikirnya itu karena si msgbox nya itu udah keluar
> beritahu
> > kalo udah berhasil simpan, tapi begitu di cek lagi transaksi yang
> > disimpan itu ngga masuk ke backend nya.....
> > kira kira kenapa ya ?
> >
> > thx
> > edi susanto
> >
> >
> >
> >
> >
> > Untuk berhenti berlangganan kirim email kosong ke : indoprog-
> [EMAIL PROTECTED]
> >
> > Ikuti juga forum diskusi VB.net dengan
> > mengirim email kosong ke [EMAIL PROTECTED]
> >
> >
> >
> >
> > SPONSORED LINKS
> > Computer
> internet security Computer
> internet business Computer
> internet
> access
> Computer internet privacy
> securities Computer
> internet
> help
> >
> > ---------------------------------
> > YAHOO! GROUPS LINKS
> >
> >
> > Visit your group "indoprog-vb" on the web.
> >
> > To unsubscribe from this group, send an email to:
> > [EMAIL PROTECTED]
> >
> > Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service.
> >
> >
> > ---------------------------------
> >
> >
> >
> >
> >
> >
> > ---------------------------------
> > Yahoo! Autos. Looking for a sweet ride? Get pricing, reviews, &
> more on new and used cars.
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
>
> Ikuti juga forum diskusi VB.net dengan
> mengirim email kosong ke [EMAIL PROTECTED]
>
>
>
>
> ---------------------------------
> YAHOO! GROUPS LINKS
>
>
> Visit your group "indoprog-vb" on the web.
>
> To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of
Service.
>
>
> ---------------------------------
>
>
>
>
>
> ---------------------------------
> Yahoo! Mail - Helps protect you from nasty viruses.
>
> [Non-text portions of this message have been removed]
>
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
Computer internet
security Computer internet business
Computer internet access
Computer internet
privacy securities Computer internet
help
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Yahoo! Mail - Helps protect you from nasty viruses.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
