Cara Menampilkan Dua Record Dalam Satu Textbox Dengan Visual Basic 6.0

Cara Menampilkan Dua Record Dalam Satu Textbox Dengan Visual Basic 6.0 | Gho Blog's - Masalah kecil seperti ini cukup membuat bingung bagi orang yang baru belajar Visual Basic 6.0, yaitu bagaimana cara menggabungkan dua buah field kedalam satu buah textbox.

Berikut ini akan saya berikan contoh sederhana agar sobat bisa mengerti cara penyelesaian dari masalah diatas.

Sebagai contoh, saya punya sebuah file/tabel seperti berikut ini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Disini kita akan menggabungkan field "nama_depan" dan field "nama_belakang" kedalam satu buah textbox berdasarkan field "kode" yang dipilih. Berikut ini contoh form agar sobat lebih mengerti maksud yang saya sampaikan :

Saya akan langsung membahas ke inti masalah saja, disini saya anggap sobat sudah bisa membuat koneksi database ke program VB. Berikut ini contoh coding yang saya gunakan dan saya letak di tombol "Cari" :

Private Sub Command1_Click() Set rs = New ADODB.Recordset rs.Open "select * from latihan where kode= '" & Text1.Text & "'", koneksi, adOpenDynamic, adLockOptimistic If Not rs.EOF Then '--------------------------------------------- Text2.Text = rs.Fields(1) & " " & rs.Fields(2) '--------------------------------------------- Else MsgBox "Data Dengan Kode '" & Text1.Text & "' Tidak Ditemukan", vbInformation Text1.Text = "" End If End Sub

Perhatikan pada bagian coding "Text2.Text = rs.Fields(1) & " " & rs.Fields(2)" antara "rs.Fields(1)" dengan "rs.Fields(2)" dipisahkan oleh kode pemisah & " " & yang dibaca sebagai satu spasi oleh sistem. Dan berikut ini hasil eksekusi program dengan penggabungan dua field kedalam satu textbox :

Silakan download contoh programnya melalui link berikut ini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Sekian dulu posting saya yang berjudul Cara Menampilkan Dua Record Dalam Satu Textbox Dengan Visual Basic 6.0. Semoga dapat menjawab pertanyaan sobat dan dijadikan referensi pemrograman Visual basic 6.0.