Menampilkan Database Di Text Box Hanya Dengan Klik Data Grid

Di tutorial kali ini kita akan belajar cara menampilkan data yang ada di database ke Text box dengan hanya klik record data grid saja, jelasnya ketika kita mengklik record data grid, maka otomatis text box akan berisi data database dari record yang di klik, sebelum memulai tutorial ini, buatlah terlebih dahulu databasenya dengan format mdb, Buat dan isilah sebuah tabel, seperti ini :

2. Jika sudah buka VB dengan project Standar EXE,
3. Tambahkan 3 Label, 3 Text Box, 1 Datagrid dan 1 Adodc
Atur propertiesnya, sehingga seperti ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Label 1	Caption	ID User
Label 2	Text	Nama
Label 3	Text	Alamat
Text 1	Text	(Kosong)
Text 2	Text	(Kosong)
Text 3	Text	(Kosong)

4. Lalu setelah itu, tuliskan script berikut :

Public Blues As ADODB.Connection
Public Pedia As ADODB.Recordset

'Script agar text box berisi data dari database ketika record data grid di klik
Private Sub DataGrid1_Click()
Text1.Text = DataGrid1.Columns(0).Text
Text2.Text = DataGrid1.Columns(1).Text
Text3.Text = DataGrid1.Columns(2).Text
End Sub
'Akhir Script

'Membuat Koneksi Antara VB dengan Databases dan Membuka databases
Private Sub Form_Load()
Set Blues = New ADODB.Connection
Blues.CursorLocation = adUseClient
Blues.Provider = "microsoft.jet.oledb.4.0"
Blues.Open App.Path & "\Database_BluesPedia.mdb"
Call BluesPedia
End Sub
Akhir Script

'Script untuk Menampilkan semua data yang ada di database ke datagrid
Private Sub BluesPedia()
Set Pedia = New ADODB.Recordset
Pedia.Open "select * from Data_User", Blues, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Pedia
End Sub
'Akhir Script

Catatan
Database_BluesPedia.mdb = Nama file database
Data_User = Nama Table yang di gunakan
silahkan ganti kedua hal tersebut, berdasarkan database yang anda buat

5. sebelum anda menjalankan program, simpan terlebih dulu programnya,
dan satu tempatkan dengan tempat anda menyimpan file database, lalu Silahkan jalankan program

Sekarang silahkan coba klik record data grid, maka otomatis text box akan berisi data record yang di klik berdasarkan data di databases.

Sekian tutorial kali ini semoga bermanfaat