mas destroyer_maniac, file Gl.Rar-nya kok sekarang gak ada di file hammet seh? tolongin donk aku juga butuh neh buat penomeran otomatis kreasi sendiri.
thanks dedi --- In [email protected], "destroyer_maniac" <[EMAIL PROTECTED]> wrote: > > kok pusing sih,....................... > mau pertanyaannya terjawab. tinggal lihat di folder hammet pada > millist ini nama filenya GL.rar. didalam Project itu form > frmHarian.frm. lihat di event textBox no bukti. > > Semoga membantu............!!! > > regards, > > > Destroyer_maniac > > --- In [email protected], "sukisno" <sukisno@> wrote: > > > > hemm iya sihh susah juga sihh, mau gakk mau pake yang pernah di > bilang mass ade aan wirama, kalau masi kena juga masalah penomoran > yang sama ya pake tiu mass mau gakk mau hehheh. jadi gini mas pada > saat saving lihat dulu di table ( yang kusus di buat untuk melihat > no terkahir berapa ) nahh terus insert no terakhir ( kan prosesnya > lebih cepet tuhh) terus baru dehh insert lagi di tabel transaksinya. > nah cara cara yang saya kemukakan semua cara untuk memperkecil > kemungkinana mendapatkan nilai yang sama, hem kemarin ada yang > bilang pake lock wahh itu lebih serem karana pasti salah satu akan > di bilangin dan mental juga tuhh. > > dulu saya pake accses memang sering dapet masalah ini tapi setelah > pake sqlserver dan stored procedurenya saya gakk pernah dapet lagi > tuhhh. > > kalau sampe saveing bareng memang susah sihh di atasi di accses > nya karan terbatas kan resourcenya gakk ada stored procedure dll > kalau mau nihh cara paling susah bikin applikasi client server ( > jadi ada applikasi servernya hueheheu susahh parahh man ) mendingan > data basenya di rubah jadi sqlserver. > > > > T'rims > > Sukisno > > ----- Original Message ----- > > From: develop > > To: [email protected] > > Sent: Friday, August 18, 2006 11:33 AM > > Subject: Re: [Programmer-VB] Save di Database Access secara > bersamaan > > > > > > 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 <sukisno@> 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: [email protected] > > > 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 <sukisno@> 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: [email protected] > > > > 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: [email protected] > > > > [mailto:[EMAIL PROTECTED] > > > > On Behalf Of develop > > > > Sent: 14 Agustus 2006 14:40 > > > > To: [email protected] > > > > 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 > > >
