pake disconnected recordset
Heriyanto
Heriyanto> Saya juga punya problem yg sama dg mas Timotius, tapi saya
Heriyanto> mau bikin aplikasinya bisa jalan multiuser, kalo menurut
Heriyanto> saran mas Tarwin, menurut saya utk aplikasi multiuser
Heriyanto> kurang tepat, coz akan ada user yg berbarengan mengisi tabel
temporary tsb.
Heriyanto> Nah, kalo ada dua kasir yg menginput "secara bersamaan"
Heriyanto> tabel temp-nya bisa kacau tuh...
Heriyanto> Itu cuma menurut saya, apa ide lain yg bs membantu? trus
Heriyanto> saya juga ada baca istilah locking, itu gimana ya? ada yg bisa share?
Heriyanto> Tarwin <[EMAIL PROTECTED]> wrote:
Heriyanto> Halo saya akan mencoba bantu..
Heriyanto> Begini logika nya, anda hanya butuh membuat tabel Temp (temporary)
Heriyanto> Semua inputan pembelian barang anda masukkan dulu ke tabel Temp.
Heriyanto>
Heriyanto> Kalau sudah beres, anda bisa mengambil semua data di tabel
Heriyanto> Temp untuk dimasukkan ke tabel Pembelian anda.
Heriyanto>
Heriyanto> kalau saya, untuk masukkin ke dalam Temp dengan access saya gunakan
seperti ini :
Heriyanto>
Heriyanto> Dim kon As New adodb.Connection
Heriyanto> Dim rs As New adodb.Recordset
Heriyanto>
Heriyanto> Private sub Form_Load()
Heriyanto> kon.Open "Provider= Microsoft.jet.oledb.4.0;
Heriyanto> Data Source=" & App.Path & "\Work.mdb; jet
Heriyanto> oledb:database password=123456"
Heriyanto> end sub
Heriyanto>
Heriyanto> *) Kalau anda tidak menggunakan password gunakan saja
Heriyanto> kon.Open "Provider= Microsoft.jet.oledb.4.0; Data
Heriyanto> Source=" & App.Path & "\Work.mdb"
Heriyanto>
Heriyanto> private sub command1_click()
Heriyanto> if rs.eof and rs.bof then
Heriyanto> rs.Open "Select * from Temp1", kon, 1, 3
Heriyanto>
Heriyanto> rs.addnew rs(0) = text1.text
Heriyanto> rs(1) = text2.text
Heriyanto> rs(3) = text3.text
Heriyanto> ....dst
Heriyanto> rs.update
Heriyanto> set mshflexgrid1.datasource = rs
Heriyanto> end sub
Heriyanto>
Heriyanto> Setelah dari Temp anda tinggal masukkan ke tabel
Heriyanto> pembelian (ini cuma contoh aja ya, sesuaikan sendiri dengan program
anda) dengan cara :
Heriyanto> Do While Not rs.EOF
Heriyanto> kon.Execute "insert into
Heriyanto>
Pembelian(No_Perjanjian,Keterangan,Volume,Satuan,Harga_Satuan_Beli,Tempat_Pembelian,Tanggal_Pembelian)
" & _
Heriyanto> "values('" & txtnoperjanjian.Text & "','"
Heriyanto> & rs(0) & "','" & rs(1) & "','" & rs(2) & "','" & rs(6) &
Heriyanto> "','" & rs(7) & "','" & rs(8) & "')"
Heriyanto> rs.MoveNext
Heriyanto> Loop
Heriyanto>
Heriyanto> *) jangan lengah ya... perhatikan tanda petiknya...
Heriyanto> Setelah sudah masuk semua, delete semua isi di tabel temp. dengan
cara
Heriyanto> kon.execute "delete from temp"
Heriyanto>
Heriyanto> Silahkan bandingkan dengan contoh dari rekan-rekan yang lain.
Heriyanto> semoga membantu.
Heriyanto> ----- Original Message -----
Heriyanto> From: Timotius agus
Heriyanto> To: [EMAIL PROTECTED]
Heriyanto> Sent: Wednesday, April 11, 2007 2:25 PM
Heriyanto> Subject: [Programmer-VB] Datagrid buat program inventory
Heriyanto>
Heriyanto> Mohon pencerahannya dong, untuk para programmer
Heriyanto> indonesia, mau tanya nih tentang program Visual Basic..
Heriyanto> Bagaimana coding untuk memasukan data dalam datagrid
Heriyanto> atau flexgrid namun belum tersimpan dalam database
Heriyanto> (hanya sementara) setelah data masuk semua bagaimana
Heriyanto> coding untuk menyimpannya kedalam access.. (program ini
Heriyanto> digunakan untuk program penjualan yang mengambil
Heriyanto> beberapa item dalam satukali pembelian.)
Heriyanto>
Heriyanto> Terima Kasih Sebelumnya untuk bantuannya...
Heriyanto>
Heriyanto> Salam Programmer.
Heriyanto>
Heriyanto> ---------------------------------
Heriyanto> Now that's room service! Choose from over 150,000 hotels
Heriyanto> in 45,000 destinations on Yahoo! Travel to find your fit.
Heriyanto>
Heriyanto>
Heriyanto>
Heriyanto> ---------------------------------
Heriyanto> Don't be flakey. Get Yahoo! Mail for Mobile and
Heriyanto> always stay connected to friends.
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
Skype : Hengky_Purnomo
