Kudo Share': Menginput data dengan DataGrid

Unknown | 10:45 | vb6
Sebenarnya di Visual basic 6.0 terdapat banyak toolbox yang dapat digunakan untuk menginput data kedalam database yaitu dengan : DataGrid, TrueDBGrid, MSFlexGrid, dll

kali ini saya akan membahas tentang menginput data dengan DataGrid

source code :

Dim conn As New Connection
Dim rsInput As New Recordset '--recordset sbg utk input
Dim rsSave As New Recordset

'---membuat recordset yg akan digunakan
'---sbg datasource dari datagrid
Private Sub CreateFields()
rsInput.Fields.Append "KODE", adVarChar, 4
rsInput.Fields.Append "NAMA", adVarChar, 15
rsInput.Fields.Append "ALAMAT", adVarChar, 25
rsInput.CursorLocation = adUseClient
rsInput.Open
Set DataGrid1.DataSource = rsInput
End Sub

'---mendesign bentuk tampilan datagrid
Private Sub FormatGrid()
DataGrid1.Columns(0).Button = True
DataGrid1.Columns(1).Button = True

With DataGrid1
.Columns(0).Caption = "Kode"
.Columns(1).Caption = "Nama"
.Columns(2).Caption = "Alamat"
End With
End Sub

Private Sub Form_Load()
conn.Provider = "microsoft.jet.oledb.4.0"
conn.Open App.Path & "\nwind.mdb"

Call CreateFields

Call FormatGrid
End Sub

'---pd saat grid diklik, buat row baru pd recordset
'---sehingga grid bisa menerima inputan
Private Sub DataGrid1_Click()
'--jika tidak dalam mode edit
If rsInput.EditMode = adEditNone Then
rsInput.AddNew '--tambahkan baris baru
Else
Exit Sub
End If
End Sub

'---utk mendetek posisi kolom, apabila pointer
'---berada pd posisi kolom ke 2 atau kolom akhir
'---maka tambahkan baris baru
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If DataGrid1.Col = 2 Then
rsInput.AddNew
DataGrid1.Col = rsInput(0)
Exit Sub
End If
SendKeys "{RIGHT}"
End If
End Sub

'---inilah kode utk menyimpan semua data yg di input
'---dalam datagrid ke database
Private Sub cmdSave_Click()
rsSave.CursorLocation = adUseClient
rsSave.Open "test", conn, adOpenStatic, adLockOptimistic

rsInput.MoveFirst
For i = 0 To rsInput.RecordCount - 1
If Len(DataGrid1.Columns(0).Text) > 0 Then
rsSave.AddNew
rsSave(0) = rsInput(0)
rsSave(1) = rsInput(1)
rsSave(2) = rsInput(2)
rsSave.Update
End If
rsInput.MoveNext
Next

rsInput.Close
rsSave.Close
Set rsInput = Nothing
Set rsSave = Nothing

Call CreateFields
Call FormatGrid
End Sub