[HALIM ELEULMA]

هذا الكود يستخدم مكتبة

كود :

System.Data.SqlClient

للاتصال بقاعدة البيانات ويقوم بجلب أسماء الجداول من قاعدة البيانات. تأكد من تغيير

كود :

اسم_الخادم

و

كود :

اسم_قاعدة_البيانات

إلى المعلومات الصحيحة للاتصال بقاعدة البيانات الخاصة بك.
إذا كنت تحتاج إلى استرجاع معلومات أخرى مثل أسماء الأعمدة في كل جدول، يمكنك تغيير الاستعلام SQL في المثال أعلاه للحصول على هذه المعلومات.
لا تنسى أن تحلل وتدرس هذا الكود وتضيف أي مزيد من الإجراءات التي تحتاجها للوصول إلى المعلومات التي تحتاجها من قاعدة البيانات الخاصة بك

كود :

Imports System.Data.SqlClient ' استيراد المكتبة الضرورية

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim connectionString As String = "Data Source=اسم_الخادم;Initial Catalog=اسم_قاعدة_البيانات;Integrated Security=True"
       ' قم بتعديل اسم الخادم واسم قاعدة البيانات وفقا لإعدادات الخادم الخاص بك

       Dim connection As New SqlConnection(connectionString)
       Try
           connection.Open()
           MsgBox("تم الاتصال بنجاح!")

           ' استعلام SQL لجلب معلومات الجداول
           Dim query As String = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE'"

           Dim command As New SqlCommand(query, connection)
           Dim reader As SqlDataReader = command.ExecuteReader()

           Dim tablesInfo As String = "أسماء الجداول: " & vbCrLf

           While reader.Read()
               tablesInfo &= reader("TABLE_NAME").ToString() & vbCrLf
           End While

           reader.Close()
           MsgBox(tablesInfo)

       Catch ex As Exception
           MsgBox("حدث خطأ: " & ex.Message)
       Finally
           connection.Close()
       End Try
   End Sub
End Class