تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات
#1
السلام عليكم و رحمة الله و بركاته

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


الملفات المرفقة
.zip   test.zip (الحجم : 12.75 ك ب / التحميلات : 9)
الرد }}
تم الشكر بواسطة:
#2
سورس كود برنامج صانع الاكواد .

فيه أكواد لجلب اسماء الجداول في قاعدة البيانات أكسيس Mdb و Accdb و SqlServer .
الرد }}
تم الشكر بواسطة: Ronald , اسامه الهرماوي , mmaalmesry
#3
السلام عليكم

لقد بحثت عن الطريقة فى برنامج صانع الأكواد و لكنى لم أجدها فهل من يدلنى عليها ؟
الرد }}
تم الشكر بواسطة: asemshahen5
#4
كنت أقصد بأحدث إصدار انه من الأفضل آخر نسخة 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
شكرا جزيلا و بارك الله فيكم
الرد }}
تم الشكر بواسطة: asemshahen5 , حسن الجلب
#5
السلام عليكم

 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
الرد }}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل Autoscroll هي التي تزيد عدد الصفوف في عرض البيانات عبدالكريم برشدان 1 144 07-08-22, 02:55 PM
آخر رد: asmarsou
  [سؤال] لسلام عليكم ورحمه الله وبركاته ازاي افعل خاصيه امكانيه التعديل علي الكود أثناء تشغيل حسن الجلب 1 164 06-08-22, 07:39 PM
آخر رد: asmarsou
  الكود لا يستدعى الارقام الا الاقل من 10 حماده ممدوح البحيرى 4 168 06-08-22, 08:12 AM
آخر رد: حماده ممدوح البحيرى
  كود التاكد من الحقل موجود داخل الجدول فب قاعدة بيانات sql server vb.net عبدالكريم برشدان 4 316 30-07-22, 01:02 AM
آخر رد: سعود
  قراءة البيانات من برنامج البصمة strongriseman 2 190 29-07-22, 02:23 AM
آخر رد: ابراهيم ايبو
  [VB.NET] ربط قاعدة البيانات um_noor20 3 196 27-07-22, 11:00 AM
آخر رد: أبو خالد الشكري
  نسخ محتويات جدول الى قاعدة جديدة بنفس الجدول نيمو 1 258 26-07-22, 01:15 PM
آخر رد: نيمو
  كود البحث عن اكبر تاريخ في قاعدة بيانات اكسس hatem555 3 218 25-07-22, 12:11 PM
آخر رد: سعود
  التعامل مع قاعدة بيانات sql عن بعد عبدالكريم برشدان 3 211 25-07-22, 03:49 AM
آخر رد: asemshahen5
  [سؤال] عايز كود عرض اسماء الجداول من قاعد البيانات الي ليست بوكس حسن الجلب 1 145 23-07-22, 08:53 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم