Cargar datos de una columna en una sola variable separandolas por comas

[Trulala de cordoba]

Bueno, aca te dejo un ejemplo, es usando sqlserver, si usas acces cambia lo que inicia con Sql por OleDb:

Código PHP:

          Dim xSqlCon As New SqlConnection("TU CADENA DE CONEXION SQL O ACCESS O LO QUE SEA ")
        Dim xDataSet As New DataSet
        Dim xAdapatador As New SqlDataAdapter("Select contactname from customers", xSqlCon)
        xAdapatador.Fill(xDataSet)
        Dim xDatosComas As String = ""
 
        For Each xFila As DataRow In xDataSet.Tables(0).Rows
            xDatosComas = xDatosComas & xFila("contactname").ToString() & ","
        Next
        Quitamos la coma final
        If Not String.IsNullOrEmpty(xDatosComas) Then
            xDatosComas = xDatosComas.Remove(xDatosComas.Length - 1)
        End If