- Beranda
- Komunitas
- Tech
- Programmer Forum
[ASK] Menggabungkan String di VB6
![beibykyu](https://s.kaskus.id/user/avatar/default.png)
![Avatar border](https://s.kaskus.id/images/avatarborder/1.gif)
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![Malu (S) emoticon-Malu (S)](https://s.kaskus.id/images/smilies/malus.gif)
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
![Malu (S) emoticon-Malu (S)](https://s.kaskus.id/images/smilies/malus.gif)
0
2.9K
3
![Guest](https://s.kaskus.id/user/avatar/default.png)
![Avatar border](https://s.kaskus.id/images/avatarborder/1.gif)
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Urutan
Terbaru
Terlama
![Guest](https://s.kaskus.id/user/avatar/default.png)
![Avatar border](https://s.kaskus.id/images/avatarborder/1.gif)
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Komunitas Pilihan