Dear rimotius,
sepenggal kode di bawah ini mungkin bisa membatu
Private Sub SettingGrid
'setting grig
MSHFlexGrid1.Cols = 4
MSHFlexGrid1.Rows = 4
MSHFlexGrid1.TextMatrix(0, 1) = "KdCust"
MSHFlexGrid1.TextMatrix(0, 2) = "Nama"
MSHFlexGrid1.TextMatrix(0, 3) = "Alamat"
MSHFlexGrid1.TextMatrix(0, 3) = "Tel"
End Sub
Private Sub IsiGrid
MSHFlexGrid1.TextMatrix(1, 1) = "c01"
MSHFlexGrid1.TextMatrix(1, 2) = "Sofi"
MSHFlexGrid1.TextMatrix(1, 3) = "Jl. badak 8"
MSHFlexGrid1.TextMatrix(1, 3) = "7734567"
MSHFlexGrid1.TextMatrix(2, 1) = "c02"
MSHFlexGrid1.TextMatrix(2, 2) = "Sari"
MSHFlexGrid1.TextMatrix(2, 3) = "Jl. melati 18"
MSHFlexGrid1.TextMatrix(2, 3) = "7644444"
MSHFlexGrid1.TextMatrix(3, 1) = "c03"
MSHFlexGrid1.TextMatrix(3, 2) = "Tukimin"
MSHFlexGrid1.TextMatrix(3, 3) = "Jl. Jurung 3"
MSHFlexGrid1.TextMatrix(3, 3) = "8765677"
End Sub
Private Sub SimpanKeDB
Dim sConn As String
sConn = "..."
Dim oConn As New ADODB.Connection
oConn.Open sConn
Dim oRs As New ADODB.Recordset
oRs.Open "SELECT KdCust,Nama, Alamat, Tel FROM Customers", oConn,
adOpenDynamic
For brs = 1 To MSHFlexGrid1.Rows
oRs.AddNew
oRs.Fields("KdCust") = MSHFlexGrid1.TextMatrix(brs, 1)
oRs.Fields("Nama") = MSHFlexGrid1.TextMatrix(brs, 2)
oRs.Fields("Alamat") = MSHFlexGrid1.TextMatrix(brs, 3)
oRs.Fields("Tel") = MSHFlexGrid1.TextMatrix(brs, 3)
oRs.Update
Next brs
set oRs= nothing
set oConn=nothing
End Sub
salam,
hartoto
Timotius agus <[EMAIL PROTECTED]> wrote:
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.
----------------------------------------------------------------------------------------------------------------------------
* Kursus Visual Basic - XBasicPro Jl. Denai No. 92 Medan - Flexi:77374922 -
HP:08196043579
** http://xbasicpro.brinkster.net **
Send instant messages to your online friends http://uk.messenger.yahoo.com
