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

salam semua...
hari ini saya akan posting baru nich.....
tapi agak acak-acakkan dikit hehehe.. maklum dah larut malem posting... :)
oke sekarang jasri buka link baru nih nah silah kan tinggalkan commentar ya... bila mengunjungi web baru ku... lihat.
nah disana saya juga memberikan tempat download yang mudah, juga berbagi cerita bagi teman-teman yang like web ku.