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