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 BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Label 1CaptionID User
Label 2TextNama
Label 3TextAlamat
Text 1Text(Kosong)
Text 2Text(Kosong)
Text 3Text(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



Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Menampilkan Database Di Text Box Hanya Dengan Klik Data Grid"

Post a Comment