منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم كيف حالكم يا إخواني الكرام
عندي مشكلة في جلب مجال الأسماء 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 

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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد العموري

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

HALIM ELEULMA