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

(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