Re: [Programmer-VB] Save di Database Access secara bersamaan

Tue, 15 Aug 2006 20:33:00 -0700

Mass dulu saya pernah alami heheh itu bisa banyak hall tuhh hemm cth :
1.saat penomoran ( transaksi menggambil nonya ) itu kapan ??
2. udah coba penomoran di bentuk pada saat insert ?
3. apakah ada masalah di jaringan ( jaringan lemot ) jadi saat saving dan ngambil no agak delay komputer yang lainya gakk punya delay jadi bisa bareng
4. dll
NO 2 tuhh penting karna itu jadi kemungkinana no sama kecil or pake table juga bolehh.
 
T'rims
Sukisno
----- Original Message -----
From: Ferrr_xls
Sent: Wednesday, August 16, 2006 9:24 AM
Subject: RE: [Programmer-VB] Save di Database Access secara bersamaan

Memang kalu kita buka database dalam bersamaan maka penomoran akan mencari
data terakhir yang ada. Pada setiap client yang buka !
Kalau dahulu sy pernah kejadian yang seperti ini ?
Maka pada saat proses save maka penomoran yang dibuka akan menjadi satu
kedalam data yang sama ?
Maka saya membuat satu table penampungan (generatorPK) untuk penomoran dari
setiap table yang mengunakan penomoran !
Jadi ketika pada proses add maka Tbl generatorPK akan menampung nomor
terakhir yang akan dibuat yang mau dipakai ! sebelum proses save dilakukan ?

Private Sub GeneratePK()
PK = getIndex("tbl_AR_Customer")
TxtEntry(0).Text = GenerateID(PK, "CUS-", "00000")
End Sub

Public Function getIndex(ByVal srcTable As String) As Long
On Error GoTo err
Dim rs As New Recordset
Dim RI As Long

rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM TBL_GENERATOR WHERE TableName = '" & srcTable &
"'", CN, adOpenStatic, adLockOptimistic

RI = rs.Fields("NextNo")
rs.Fields("NextNo") = RI + 1
rs.Update

getIndex = RI

srcTable = ""
RI = 0
Set rs = Nothing
Exit Function
err:
''Error when incounter a null value
If err.Number = 94 Then getIndex = 1: Resume Next
End Function

Contoh yang saya buat !

Table generatorPK
Tablename : Text
Nextno : float

TableName NextNo
tbl_AP_StockRcv 43
tbl_AP_StockRcvDetails 20
tbl_AP_Supplier 4
tbl_AR_Customer 4
tbl_AR_Invoice 182
tbl_AR_InvoiceDetails 83
tbl_AR_InvoicePH 23
tbl_AR_PaymentHistory 58
tbl_AR_PDCManager 26
tbl_AR_Salesman 4
tbl_IC_Category 9
tbl_IC_Products 19
tbl_SM_BankList 5
tbl_SM_UnitOfMeasure 6
tbl_SM_Users 3

maaf kalau ada kata2 yang salah semoga membantu ?

-----Original Message-----
From: Programmer-VB@yahoogroups.com [mailto:Programmer-VB@yahoogroups.com]
On Behalf Of develop
Sent: 14 Agustus 2006 14:40
To: Programmer-VB@yahoogroups.com
Subject: [Programmer-VB] Save di Database Access secara bersamaan

temen2,
ada yang tau gak?

saya ada buat program dengan menggunakan VB + database
Access 2000, untuk program multiuser.

tapi kalau di save secara bersamaan, penomorannya itu
akan double. Ada yang tau gak? untuk proses
antrian-nya,supaya yang pertama kali masuk yang proses
deluan...sehingga tidak double nomornya.

yang sekarang saya buat, kalau ada 3 user yang save
bersamaan.

USER 1 : N0001
USER 2 : N0001
USER 3 : N0001

yang saya mau, walaupun di save bersamaan, nomor yang
di dapat :
USER 1 : N0001
USER 2 : N0002
USER 3 : N0003

Thx.

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

Wahana Programmer Groups Links

Yahoo! Groups Links

Send instant messages to your online friends http://asia.messenger.yahoo.com

__._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke