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

نسخة كاملة : مطلوب كود لعرض حقول الجدول في الليست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
أعضاء المنتدي الكرام
ممكن حد يساعدني
عندي جدول في قاعدة بيانات أكسس
أريد عرض أسماء الحقول في ليست بوكس
بمعني لو عندي جدول الاصناف مثلاً
فيه 3 حقول
ID
ITMNAME
PRICE
إزاي أعرض هذه الاسماء في الليست بوكس
السلام عليكم ورحمة الله

أخي أحمد

هذه أبسط طريقة ممكن تستخدمها
PHP كود :
Using dataTable As New DataTable
    Dim ret 
= New OleDbDataAdapter("Select * From [table1]"connection).Fill(DataTable)
 
   Dim columns = (From x In dataTable.Columns Select x.ColumnName).ToArray

    ListBox1
.Items.AddRange(columns)

End Using 
أخي الكريم (مهموم)
أشكرك علي سرعة الرد
أنا جربت الكود والحمد لله إشتغل معايا كويس جداً
ولو ممكن كود لنفس الفكرة بس عرض الجداول اللي في الداتا بيس
السلام عليكم ورحمة الله

أخي أحمد

هذه أبسط طريقة ممكن تستخدمها
PHP كود :
Dim dataTable As DataTable
connection
.Open()
dataTable connection.GetSchema("Tables", New String() {NothingNothingNothing"Table"})
connection.Close()
Dim tables = (From x In dataTable Select x("TABLE_NAME")).ToArray

ListBox1
.Items.AddRange(tables
أشكرك أخي الكريم
وجزاك الله خيراً