+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس (/showthread.php?tid=38408)
اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس - alsaab120 - 06-05-21
اتمنى تزويدي بكود يعرض اسماء الجداول الموجودة في احد قواعد البيانات سكوال سيرفيس
يعني عند قاعدة بيانات اسمها drt وبها الجدول t1والجدول t2والجدول t3
اريد اجلب اسماء الجداول وعرضها في ليست فيو او ليست بوكس
RE: اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس - ابو انس - 07-05-21
تفضل
PHP كود :
SELECT *FROM information_schema.tables
RE: اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس - alsaab120 - 07-05-21
(07-05-21, 12:01 AM)ابو انس كتب : تفضل
PHP كود :
SELECT *FROM information_schema.tables
من لا يشكر الناس لا يشكر الله
اشكرك اخي ابو انس
وهذا كود البحث وعرض اسماء الجداول في الكومبوبكس
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 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
RE: اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس - alsaab120 - 22-02-23
جزاكم الله خير الجزاء وزادك علما وفهما
(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 Object, e As EventArgs) Handles 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
بارك الله فيك وزادك علما وفهما ونفع بك
اشكرك يا اخي ابو انس
RE: اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس - ابو انس - 23-02-23
اهلا وسهلا ....
شكرا على الكود