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

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

مرفق بالموضوع مثال لعرض أسماء جميع الجداول فى قاعدة بيانات .mdb و ذلك فى برنامج VB6
 و سؤالى هو ما هو الكود المكافئ باستخدام ال VB.net (يفضل أحدث الاصدارات)
وشكرا جزيلا
سورس كود برنامج صانع الاكواد .

فيه أكواد لجلب اسماء الجداول في قاعدة البيانات أكسيس Mdb و Accdb و SqlServer .
السلام عليكم

لقد بحثت عن الطريقة فى برنامج صانع الأكواد و لكنى لم أجدها فهل من يدلنى عليها ؟
كنت أقصد بأحدث إصدار انه من الأفضل آخر نسخة visual basic

ملحوظة:
أنا استخدم vb 2015 ولم يعمل الكود السابق إلا بعد تعديله إلى:
كود :
con.open
dim dt=con.getschema("tables",{nothing,nothing,nothing}) 'هذا السطر
for each r in dt.rows
msgbox(r("table_name"))
next
con.close
شكرا جزيلا و بارك الله فيكم
السلام عليكم

 mdb & accdb
كود :
SELECT name from msysobjects WHERE Type = 1 And flags = 0

Using Vb.net
كود :
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
                    "Data Source=" & Text1.Text
       Connection.Open()
       ' sql = "SELECT MSysObjects.Name AS table_name FROM MSysObjects"
       sql = "SELECT name from msysobjects WHERE Type = 1 And flags = 0"
       Dim commande As OleDbCommand
       commande = New OleDbCommand(sql, Connection)
       Dim dataReader As OleDbDataReader

       Try
           dataReader = commande.ExecuteReader()
           While (dataReader.Read())
               tableNameBox.Text = dataReader.GetString(0)
           End While

       Catch ex As Exception
           MsgBox("Problème de connection " & ex.Message())

       End Try

SQL Server
كود :
Use Database_Name
SELECT name FROM sys.tables

Nb : Database_Name = your database name

VB.net 


كود :
Using connection As New SqlConnection(connetionString)
   connection.Open()
   adapter = New SqlDataAdapter("SELECT name FROM sys.tables", connection)
   Using ds = new DataSet()
       adapter.Fill(ds)
       with ListBox1
           .DataSource = ds.Tables(0)
           .DisplayMember = "name"
           .ValueMember = "name"
       end with
   End Using
End Using