mas sukisno, memang query yang saya gunakan seperti
itu.
tapi mas
ada pernah coba gak? di jalankan di jaringan.
trus posisi entry data
sudah di siapkan semua.
Setelah itu tekan tombol save secara bersamaan
untuk 2
atau 3 komputer pada detik & milisecond yang sama.
coba
lihat hasilnya??? :(
pasti akan kacau tuh....
kalau gak, pasti akan
ada yang mental, jika memang
tabel-nya itu pake primary key.
bener
kan???
senior2 yang laen, coba bantuin donk....
saya rasa juga
banyak yang ngalamin hal yang sama
seperti saya....:)
jadi kita sharring
aja....
thx....
--- sukisno <[EMAIL PROTECTED]com>
wrote:
> Jangan pak lebih baik di bikin gini. pada saat
>
querry insert itu ada pembentukan auto no jadi
> querrynya spt
ini.
> "insert into values (select max from
>
table,'value1','value2','value3')" gitu aja mass
> jangan
pake sistem lock
> ----- Original Message -----
> From: develop
> To: Programmer-VB@yahoogroups.com
> Sent: Wednesday, August 16, 2006 4:44 PM
> Subject: Re:
[Programmer-VB] Save di Database
> Access secara bersamaan
>
>
> iya mas sukisno, point nomor 3 itu memang menjadi
>
kendala utama saya.
>
> tapi namanya program kan seharusnya tidak
boleh
> jaringan harus ok saja kan? kalau jaringanya lagi
> lemot,
bisa kacau semua datanya. makanya saya mau
> hindarkan hal itu..
>
> mas Ferrr_xls, saya sudah coba akalin pake cara
> mas,
>
cuman hasilnya tetap saja masih bisa double.
>
> adakah sintax
dari VB untuk ngelock table, pada
> saat
> table sedang di
read.
>
> jadi mungkin logik nya seperti ini :
>
>
Pada saat user A save data :
> prosedur :
> 1. Lock table
>
2. ambil maximum
> 3. insert data
> 4. Unlock table
>
> nah untuk point 1 & 4, caranya saya tidak tau. ada
> temen2
yang tau caranya?
>
> dan ada 1 lagi, bagaimana caranya membaca,
query
> yang
> kita kirim ke database access untuk di
execute,
> sudah
> sukses di jalankan (datanya sudah ke
update).
>
> soalnya access itu kalo di VB sudah selesai
>
proses,
> sama accessnya masih lemot. jadi kalau ada batch
>
proses, bisa kacau hasilnya.
>
> thx. atas masukan dari
temen2...saya tunggu
> tanggapan-nya.
>
> --- sukisno
<[EMAIL PROTECTED]com>
wrote:
>
> > 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
> > To: Programmer-VB@yahoogroups.com
> > 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
> >
>
===
message truncated
===
__________________________________________________
Do
You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
