--- In [email protected], "sunardi" <sunardi_...@...> wrote:
>
> rekan2 semua
>
> saya ada sedikit masalah pada saat simpan data bersamaan, scrip yang saya
> buat adalah sebagai berikut :
>
> sub simpan()
> sql="select faktur from penjualan where faktur='" & faktur &"'"
> set rs=cn.execeute(sql)
> if not rs.eof
> faktur="PJ-" & format(val(mid(rs!faktur,4,6))+1,"000000")
> endif
>
> sql="insert into Penjualan values ('" & faktur &"','" & cdate(tanggal) &"',"
> & str(grand_total) &")"
> cn.execute(sql)
>
> end sub
>
> mohon bantuan dari rekan2 vb untuk memberikan masukannya. terima kasih
>
> sunardi
>
lansung saja.
cn.excute "insert into penjualan (field1,fields2,field3) values ('" &
valuesfields1 &"','" & valuesfields2 &"','" & valuesfields3 &"',)"
untuk total mendingan pake cdbl(grandtotal)
