Cara Memindahkan Data dari Datagrid Ke Textbox atau Label vb6

Setelah kita tahu bagaimana cara memasukkan data pada database, kali ini kita akan memindahkan data dari tabel ke textbox atau label,

BACA JUGA : Koneksi Database VB6 dengan Ms Access 2010 dan Cara Menampilkan data Pada Tabel

dari yang scrip kode yang kemarin tidak begitu banyak ada perubahan, berikut adalah script kode yang kemarin.

Public Db As Connection

Public Function Aktif_Koneksi() As Boolean
Set Db = New ADODB.Connection
Db.CursorLocation = adUseClient
Db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\database.accdb;"
End Function


Pada form1

Dim WithEvents rccoba As Recordset

Private Sub Form_Load()
Aktif_Koneksi
Set rccoba = New Recordset
rccoba.Open "select * from table1", Db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rccoba
End Sub

kita rubah menjadi seperti ini,

Dim WithEvents rccoba As Recordset

Private Sub Form_Load()
Aktif_Koneksi
Set rccoba = New Recordset
rccoba.Open "select * from table1", Db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rccoba
End Sub

Private Sub rccoba_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If rccoba.RecordCount > 0 Then 'jika recordnya lebih dari sama dengan nol maka
tid = rccoba!id & "" 'pastikan sesuai dengan database
tnama = rccoba!nama & ""
End If
End Sub

pastikan semua tertulis dengan betul agar tidak terjadi error.
untuk lebih gampangnya simak video nya berikut ini..

semoga bermanfaat, aamiin..