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.
