[محمد العموري]

السلام عليكم كيف حالكم يا إخواني الكرام 
عندي مشكلة في جلب مجال الأسماء  sql server لإنشاء قاعدة البيانات في فيجوال استوديو ٢٠٢٢

[تركي الحلواني]

(02-01-24, 10:22 PM)محمد العموري كتب : السلام عليكم كيف حالكم يا إخواني الكرام 
عندي مشكلة في جلب مجال الأسماء  sql server لإنشاء قاعدة البيانات في فيجوال استوديو ٢٠٢٢

عرف 

Imports System.Data.Sql

وفي الزر

PHP كود :

Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
        Dim dataTable As System.Data.DataTable = instance.GetDataSources()

        For Each row As System.Data.DataRow In dataTable.Rows
            Dim serverName As String = row("ServerName").ToString()
            Dim instanceName As String = row("InstanceName").ToString()

            If String.IsNullOrEmpty(instanceName) Then
                ListBox1.Items.Add(serverName)
            Else
                ListBox1.Items.Add(serverName & "\" & instanceName)
            End If
        Next 


[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