[السرور]

هذا مثال

PHP كود :

Dim da As New SqlDataAdapter("SELECT col1 FROM table1", sqlconnstring)
Dim dt As New DataTable
da.Fill(dt)
Dim arr = dt.Rows.Cast(Of DataRow).Select(Function(x As DataRow) x("col1").ToString).ToArray

TextBox1.Text = String.Join(",", arr)