Salam Coder, disini saya akan coba membahas cara penggunaan split string di vb.net 2015.
sesuai pengalaman dan kasus yang memaksa saya untuk berpikir untuk menyimpan data kedatabase berupa array. awalnya bingung nyimpan data array kedatabase secara cepat itu bagaimana ?
nah berkat om google saya menemukan teknik split string. bekicot. diasumsikan saya mempunyai 2 tabel sbg berikut.
coba perhatikan record data pada tabel artikel, difield/kolom kategories terdapat data yang bernilai angka dengan pemisah koma, nah data apa itu ? mereka adalah data yang didapat dari angka yang didapat dari id kategori yang dimiliki oleh tabel kategori. dan disini saya asumsikan tabel ini mempunyai relasi.
nah sekarang apa permasalahanya ? saya ingin ketika menampilkan record data artikel, nanti juga akan muncul nama-nama dari kategori yang ada di data artikelnya.kita akan menggunakan teknik split string untuk menyelesaikanya.
saya asumsikan kalian telah mengenali dasar2 pemograman vb.net dan cara mengoperasikan aplikasi visual studio. disini saya tidak akan menggunakan database terlebih dahulu. disini saya akan memakai database lokal yaitu variabel. hehehe. agar sobat2 yang masih awam jadi lebih mengerti dan fokus dengan materi ini. jadi langsung saja buat proyek baru dengan nama terserah sobat saja. kemudian buat tampilan seperti berikut :
Buat Coding dibawah public class form :
Berikut Codingnya.
Dim article() As String = {"Tutorial Testing", "isi konten", "2,1,3"}
Dim categories() As String = {"VB.NET", "WEB", "JAVA", "DELPHI"}
kita sudah membuat variabek secara global. datanya sengaja saya taruh divariabel array sebagai pengganti database. struktur data tetap sama hanya berbeda id saja, jadi disini kita tidak menentukan id dari datanya tapi id-nya akan menggunakan index dari array.
kemudian kita buat coding di event form load.
caranya double klik form . isikan coding berikut :
Me.Label5.Text = "1"
Me.Label6.Text = article(0)
Me.Label7.Text = article(1)
Dim category() As String = article(2).Split(",")
Dim txt_categories As String = ""
For Each val As Integer In category
If (val < categories.Length - 1) Then
txt_categories &= categories(val - 1) & ", "
Else
txt_categories &= categories(val - 1)
End If
Next
Me.Label8.Text = txt_categories
nah coba di Run maka hasilnya akan seperti ini :
Happy Coding Guys .
