[mmaalmesry]

السلام عليكم و رحمة الله و بركاته

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

[asemshahen5]

سورس كود برنامج صانع الاكواد .

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

[mmaalmesry]

السلام عليكم

لقد بحثت عن الطريقة فى برنامج صانع الأكواد و لكنى لم أجدها فهل من يدلنى عليها ؟

[mmaalmesry]

كنت أقصد بأحدث إصدار انه من الأفضل آخر نسخة 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

شكرا جزيلا و بارك الله فيكم

[d3vc0d]

السلام عليكم

 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