(VB) ดึงข้อมูลใน Databaseที่ เป็น string มาจัดเรียงใหม่

    Private Sub test1()
        Dim dt As New DataTable("dt1")
        Dim str_name, str_count As String
        Dim arr_name, arr_count As New ArrayList
        Dim first_row As Boolean = True
        str_name = ""
        str_count = ""
        For Each dr As DataRow In dt.Rows
            'แบบอาเรย์
            arr_name.Add(dr("Name"))
            arr_count.Add(dr("Count"))

            'แบบสตริง
            If first_row Then
                first_row = False
                str_name = dr("Name")
                str_count = dr("Count")
            Else
                str_name = "," & dr("Name")
                str_count = "," & dr("Count")
            End If
        Next

        'อาเรย์ ก็ได้เป็นอาเรย์ลิสต์
        'สตริง ผลลัพธ์มันก็จะออกมา ---> คีย์บอร์ด,เมาส์,หน้าจอ,ตัวเครื่อง และ 7,3,6,5
    End Sub