Frank.........
Tjoba begini?
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As
Integer)
If DataGrid1.Col = 0 Then
adodc1.Recordset.AddNew
adodc1.Recordset!ID = DataGrid1.SelText
adodc1.Recordset!Tgl = Date
adodc1.Recordset!Waktu = Time
adodc1.Recordset.Update
adodc1.Recordset.MoveFirst
DataGrid1.Refresh
DataGrid1.Col = 0
Exit Sub
End If
If DataGrid1.Col = 1 Then
kondisi
End If
End Sub
Komponen pake Adodc1
Propertiesnya :
AllowAddNew=True
Allowdelete=True
DataSource : Adodc1
Nanti kalo udah klik kanan di DataGrid trus pilih
retrieve data fields
Tjoba dulu........
Sukses yeh
NB: Gwe sering pake koding ini di pabrik, kalo ada
masalah email japri ajah.
--- Frangky id <[EMAIL PROTECTED]> wrote:
> Pakar VB yang terhormat!
>
> Saya berencana menggunakan komponen data grid untuk
> menginput data anak
> untuk selanjutnya disimpan ke database.
>
> Saya sengaja tidak menggunakan komponen text box
> untuk menginput data anak,
> karena setiap orang memiliki jumlah anak yang
> berbeda.
> Seandainya saya memasukan 5 text box kedalam form
> untuk menginput data 5
> orang anak, bagaimana kalau ada orang yang memiliki
> jumlah anak lebih dari
> 5. Jadi sangat tidak flexibel kalau menggunakan text
> box.
>
> Permasalahnya:
>
> Saya belum punya pengalaman (jadi yang pasti tidak
> tahu caranya) menginput
> data lewat datagrid. Selama ini saya hanya
> menggunakan datagrid untuk
> membaca/ menampilkan data yang ada pada sebuah tabel
> database.
>
> kalau ada teman-teman yang tahu cara menginput data
> lewat datagrid, tolong
> share ilmunya dong! Jadi seperti kita menginput data
> pada table di
> MS-Access, Kalau kita tekan Enter, akan tercipta
> baris baru.
>
> Dan juga bisa tidak ya, kalau memasukan dtpicker
> yang ada checkbox-nya
> (dtpicker ini untuk menginput Tanggal Lahir Anak).
> kedalam datagrid.
>
> Kalau bisa ada Tombol Save dibawah datagrid
> tersebut, untuk menyimpan data
> yang diinput pada datagrid, setelah itu langsung
> membersihkan data yang ada
> pada datagrid.
>
> Terima kasih bagi yang bagi-bagi ilmunya.
>
Regards
Gege Nugroho
____________________________________________________________________________________Luggage?
GPS? Comic books?
Check out fitting gifts for grads at Yahoo! Search
http://search.yahoo.com/search?fr=oni_on_mail&p=graduation+gifts&cs=bz
