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

نسخة كاملة : اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اتمنى تزويدي بكود يعرض اسماء الجداول الموجودة في احد قواعد البيانات سكوال سيرفيس

يعني عند قاعدة بيانات اسمها drt وبها الجدول t1والجدول t2والجدول t3
اريد اجلب اسماء الجداول وعرضها في ليست فيو او ليست بوكس
تفضل

PHP كود :
SELECT *FROM information_schema.tables 
(07-05-21, 12:01 AM)ابو انس كتب : [ -> ]تفضل

PHP كود :
SELECT *FROM information_schema.tables 

من لا يشكر الناس لا يشكر الله
اشكرك اخي ابو انس

وهذا كود البحث وعرض اسماء الجداول في الكومبوبكس

PHP كود :
 Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        ComboBox3
.Items.Clear()
 
       Dim con As New SqlConnection("DATA SOURCE=" ComboBox1.Text ";INITIAL CATALOG=" ComboBox2.Text ";integrated security=true")
 
       Dim adapter As New SqlDataAdapter("SELECT * from information_schema.tables"con)
 
       Dim dt As New DataTable
        adapter
.Fill(dt)
 
       if dt.Rows.Count 0 Then
            For Each row 
As DataRow In dt.Rows
                ComboBox3
.Items.Add(row("TABLE_NAME").ToString)
 
           Next
        End 
If

 
   End Sub 
جزاكم الله خير الجزاء وزادك علما وفهما

(07-05-21, 01:45 AM)alsaab120 كتب : [ -> ]
(07-05-21, 12:01 AM)ابو انس كتب : [ -> ]تفضل

PHP كود :
SELECT *FROM information_schema.tables 

من لا يشكر الناس لا يشكر الله
اشكرك اخي ابو انس

وهذا كود البحث وعرض اسماء الجداول في الكومبوبكس

PHP كود :
 Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        ComboBox3
.Items.Clear()
 
       Dim con As New SqlConnection("DATA SOURCE=" ComboBox1.Text ";INITIAL CATALOG=" ComboBox2.Text ";integrated security=true")
 
       Dim adapter As New SqlDataAdapter("SELECT * from information_schema.tables"con)
 
       Dim dt As New DataTable
        adapter
.Fill(dt)
 
       if dt.Rows.Count 0 Then
            For Each row 
As DataRow In dt.Rows
                ComboBox3
.Items.Add(row("TABLE_NAME").ToString)
 
           Next
        End 
If

 
   End Sub 

بارك الله فيك وزادك علما وفهما ونفع بك 
اشكرك يا اخي ابو انس
اهلا وسهلا ....
شكرا على الكود