- Beranda
- Komunitas
- Tech
- Programmer Forum
[ASK] Menggabungkan String di VB6


TS
beibykyu
[ASK] Menggabungkan String di VB6
gan, saya ingin bertanya, bagaimana cara menggabungkan string..
begini om table saya :
![[ASK] Menggabungkan String di VB6](https://dl.kaskus.id/www.freeimagehosting.net/newuploads/5tpvr.jpg )
ini codingnya :
dan ini hasilnya :
![[ASK] Menggabungkan String di VB6](https://dl.kaskus.id/www.freeimagehosting.net/newuploads/padgp.jpg )
gimana om caranya supaya bisa ngegabung,,
contoh kodenya = "buah01"
dan
hasilnya : mangga, jeruk, kiwi, sirsak
Mohon pencerahannya
begini om table saya :
![[ASK] Menggabungkan String di VB6](https://dl.kaskus.id/www.freeimagehosting.net/newuploads/5tpvr.jpg )
ini codingnya :
Code:
Private Sub txtKode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Koneksi
If txtKode.Text = "" Then
MsgBox "Input Kode Terlebih Dahulu !", vbCritical + vbOKOnly, "Error"
txtKode.SetFocus
Else
SQL = ""
SQL = "SELECT * FROM tb_beiby " _
& "WHERE kode ='" & txtKode.Text & "'"
Set rsPeriksa = conn.Execute(SQL)
If Not rsPeriksa.BOF Then
SQL1 = "SELECT * FROM tb_beiby where kode = '" & txtKode.Text & "'"
Set rsPeriksa1 = conn.Execute(SQL1)
lblMacam = rsPeriksa1.Fields("macam")
Else
MsgBox "Kode " & txtKode.Text & " tidak ada!", vbCritical + vbOKOnly, "Error"
End If
End If
End If
End Sub
dan ini hasilnya :
![[ASK] Menggabungkan String di VB6](https://dl.kaskus.id/www.freeimagehosting.net/newuploads/padgp.jpg )
gimana om caranya supaya bisa ngegabung,,
contoh kodenya = "buah01"
dan
hasilnya : mangga, jeruk, kiwi, sirsak
Mohon pencerahannya

0
2.9K
3


Komentar yang asik ya
Urutan
Terbaru
Terlama


Komentar yang asik ya
Komunitas Pilihan