Menampilkan Dua Record Dalam Satu Text Box

Di tutorial kali ini kita akan belajar cara menggabungkan 2 record dalam satu text box, untuk melakukan tutorial ini siapkan terlebih dulu file database access, jenis file databases yang saya pakai adalah databases dengan format .mdb, jadi silahkan konvert terlebih dulu file accessnya ke format 2002 -2003, berikut tampilan dari database saya :


jika file database sudah ada, ayo kita mulai tutorialnya :

1. Seperti biasa jalankan vb dengan project standar EXE
2. Toolbox utama yang akan kita gunakan adalah 2 label, 2 text box, 1 command button dan 1 Adodc, namun di sini saya menambahkan 1 data grid dan check box, gunanya untuk menampilkan data database di data grid, ubahlah propertiesnya sehingga seperti ini :


Tool BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Command 1CaptionCEK
Label 1CaptionID User
Label 2CaptionNama
Text 1Text(Kosong)
Text 2Text(Kosong)
EnableFalse
Data GridData SourceAdodc 1
Adodc 1VisibleFalse
Check BoxCaptionTampilkan Data

3. Jika sudah tuliskan script berikut :

'Awal Script Untuk Koneksi Database dengan VB
Dim Koneksi As New ADODB.Connection
Dim DtUser As ADODB.Recordset

Sub Buka()
Set Koneksi = New ADODB.Connection
Set DtUser = New ADODB.Recordset
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database_BluesPedia.mdb"
End Sub
'Akhir Script Untuk Koneksi Database dengan VB

'Script untuk Menampilkan / Menyembunyikan Datagrid
Private Sub Check1_Click()
If Check1.Value = Checked Then
DataGrid1.Visible = True
Else
DataGrid1.Visible = False
End If
End Sub

Private Sub Command1_Click()
Set DtUser = New ADODB.Recordset
DtUser.Open "select * from Data_User where ID_User= '" & Text1.Text & "'", Koneksi, adOpenDynamic, adLockOptimistic

If Not DtUser.EOF Then
Text2.Text = DtUser.Fields(1) & " " & DtUser.Fields(2)
Else

'Pesan jika data yang di cari tidak di temukan
MsgBox "Data Dengan ID User '" & Text1.Text & "' Tidak Ditemukan", vbInformation
Text1.Text = ""
End If
End Sub

Private Sub Form_Load()
Call Buka
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database_BluesPedia.mdb; "
Adodc1.RecordSource = "Data_User"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Catatan :
'Ganti Database_BluesPedia.mdb menjadi nama file database yang sudah di siapkan
'Ganti Data_User dengan nama tabel database yang di gunakan
'Ganti ID_User dengan Record yang ingin di gabung (Lihat gambar Data Databases)

4. Jika sudah, jangan lupa simpan program,
Satukan / satu tempatkan penyimpanan file access database dengan program VB

5. Jika sudah, jalankan program

Tuliskan ID User di text 1 berdasarkan data di database, jika id yang di tuliskan ada di database maka text 2 akan berisi gabungan record Nama Depan dan Nama Belakang, jika id yang di tuliskan tidak ada di database maka akan muncul pesan pemberitahuan.
Hilangkan tanda checklist di check box untuk menyembunyikan datagrid

Sekian tutorial kali ini semoga bermanfaat






Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Menampilkan Dua Record Dalam Satu Text Box"

Post a Comment