+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب مجال أسماء sql (/showthread.php?tid=47750)
جلب مجال أسماء sql - محمد العموري - 02-01-24
السلام عليكم كيف حالكم يا إخواني الكرام
عندي مشكلة في جلب مجال الأسماء sql server لإنشاء قاعدة البيانات في فيجوال استوديو ٢٠٢٢
RE: جلب مجال أسماء sql - تركي الحلواني - 03-01-24
(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
RE: جلب مجال أسماء sql - HALIM ELEULMA - 05-01-24
هذا الكود يستخدم مكتبة
كود :
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