EDUCATION

- Edit Data
- Hapus Data
- Rowcoll change (menampilkan data dari Data Grid ke Object)

******************
'perintah merubah data
*******************

konek
Set Rs = New ADODB.Recordset
Rs.Open "select nama_filed from nama_tabel", Conn, adOpenStatic, adLockOptimistic

Rs!nama_field = Trim(objek)

Rs.Update
Rs.Close

**********************
'perintah Menghapus Data
**********************
pesan = MsgBox("Apakah Anda Yakin Menghapus Data ini" )
If pesan = vbYes Then
strSQL = "delete from Nama_tabel where Field_acuan='" & Trim(objek) & "'"
conn.Execute (strSQL)
MsgBox("Data terhapus")
Adodc1.Refresh
End if

*************************************************
'perintah Menampilkan Data di Objek Saat Data Grid Change
*************************************************
On Error GoTo help
If Adodc1.Recordset.BOF Then
Exit Sub
ElseIf Adodc1.Recordset.EOF Then
Exit Sub
Else
objek.Text = "" & Adodc1.Recordset.Fields("nama_filed")

End If
help:
If Err.Number = 0 Then
Else
MsgBox "ADA ERROR", vbInformation, "eroor"
End If
End Sub