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

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


الملفات المرفقة
.zip   test.zip (الحجم : 12.75 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص حفظ التاريخ في قاعدة البيانات من نوع mysql 3loosh44 2 101 19-09-21, 08:47 PM
آخر رد: 3loosh44
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 137 17-09-21, 01:52 PM
آخر رد: ahmedbezia
  [VB.NET] حفظ وتحميل صور base64 من قاعدة بيانات mysql blob datatype d3vc0d 0 110 28-08-21, 11:03 PM
آخر رد: d3vc0d
  عرض البيانات من الداتا قريد فيو الى الادوات aftfm 7 318 28-08-21, 10:50 PM
آخر رد: aftfm
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 380 21-08-21, 06:32 PM
آخر رد: mmaalmesry
  حذف صفوف في جدول داخل قاعدة بيانات سيكوال سيرف momani33 5 262 21-08-21, 02:14 PM
آخر رد: momani33
  تصدير البيانات من نوع جديد اليوم السابع 3 669 18-08-21, 09:37 PM
آخر رد: يونس علي
Star [SQL] الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 7 446 14-08-21, 10:05 AM
آخر رد: mmaalmesry
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 353 14-08-21, 09:34 AM
آخر رد: ابو انس
  قاعدة لا تفتح ولا تقبل الاتاش server atefkhalf2004 2 287 31-07-21, 12:24 PM
آخر رد: atefkhalf2004

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


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