تحويل من قاعدة بيانات الى مصفوفة

PHP كود :

   'Dim ValueFromDatabase As String = "ضع قيمة الحقل من قاعدة البيانات هنا"
    Dim ValueFromDatabase As String = "1702, 145, 202, 195, 195, 195, 1000, 1802, 1400, 326, 1204, 310, 802, 1407"

    Dim DesiredLengths As List(Of Single) = ValueFromDatabase.Split(","c).[Select](AddressOf Single.Parse).ToList()

كود :

Imports System.Data.SqlClient



Module Module1

    Sub Main()

        Dim connectionString As String = "Data Source=اسم_الخادم;Initial Catalog=اسم_قاعدة_البيانات;User ID=اسم_المستخدم;Password=كلمة_المرور"

        Dim query As String = "SELECT * FROM اسم_الجدول"

        

        ' قم بإنشاء اتصال بقاعدة البيانات

        Using connection As New SqlConnection(connectionString)

            ' قم بفتح الاتصال

            connection.Open()



            ' قم بإنشاء كائن Command وتعيين الاستعلام والاتصال

            Using command As New SqlCommand(query, connection)

                ' قم بتنفيذ الاستعلام واسترداد البيانات في كائن SqlDataReader

                Using reader As SqlDataReader = command.ExecuteReader()

                    ' تحقق من وجود بيانات

                    If reader.HasRows Then

                        ' قم بإنشاء مصفوفة لتخزين البيانات

                        Dim dataArray As New List(Of String())



                        ' قم بقراءة البيانات وإضافتها إلى المصفوفة

                        While reader.Read()

                            ' قم بقراءة القيم من العمود وإضافتها إلى مصفوفة فرعية

                            Dim rowArray As String() = New String(reader.FieldCount - 1) {}

                            For i As Integer = 0 To reader.FieldCount - 1

                                rowArray(i) = reader.GetValue(i).ToString()

                            Next



                            ' أضف مصفوفة الصف الفرعية إلى المصفوفة الرئيسية

                            dataArray.Add(rowArray)

                        End While



                        ' قم بطباعة المصفوفة

                        For Each row As String() In dataArray

                            For Each value As String In row

                                Console.Write(value & " ")

                            Next

                            Console.WriteLine()

                        Next

                    Else

                        Console.WriteLine("لا توجد بيانات.")

                    End If

                End Using

            End Using

        End Using

    End Sub

End Module