[fouadhdfouad]

كود :

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