ikut nimbrung aja..
mungkin mas perlu meng-utak atik
For i = 0 To detil_item.Rows - 1 (karena recoredset berawal dari 0)
v_kode = Trim(detil_item.TextMatrix(i, 1))
v_qty = Trim(detil_item.TextMatrix(i, 3))
v_HARGA = Trim(detil_item.TextMatrix(i, 4))
db.Execute "UPDATE master SET STOCK=STOCK-" & CInt(v_qty) & "
where kode= '" & v_kode & "'", , adCmdText
next
trus dikondisikan di client
adUseClient
dan mungkin perlu di tambahkan Refresh
CMIIW........
yudhamanik ycid <[EMAIL PROTECTED]> wrote:
mas & mbak...
saya buat program kasir running di jaringan.
kenapa ya! ada saja item barang yang tidak terupdate.
mslnya ada 10 item di detil hanya 2 yg tidak terupdate. (gak tententu..)
jd yang dua itu tidak mengupdate (mengurangi) data stock barang.
saya pake MSFlexGrid sbg detilnya.
trus pas waktu menyimpan saya buat script sederhana :
For i = 1 To detil_item.Rows - 2
v_kode = Trim(detil_item.TextMatrix(i, 1))
v_qty = Trim(detil_item.TextMatrix(i, 3))
v_HARGA = Trim(detil_item.TextMatrix(i, 4))
db.Execute "UPDATE master SET STOCK=STOCK-" & CInt(v_qty) & "
where kode= '" & v_kode & "'", , adCmdText
next
Apakah ini masalah jaringan ?
Mohon bagi trik nya.. yg sudah pengalaman !
saya pake MYSQL sgb databasenya.
trims.
---------------------------------
Luggage? GPS? Comic books?
Check out fitting gifts for grads at Yahoo! Search.
