مطلوب كود لعرض حقول الجدول في الليست بوكس

مطلوب كود لعرض حقول الجدول في الليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مطلوب كود لعرض حقول الجدول في الليست بوكس (/showthread.php?tid=13831)

مطلوب كود لعرض حقول الجدول في الليست بوكس - AHMED SHARAF - 16-11-15

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

RE: مطلوب كود لعرض حقول الجدول في الليست بوكس - مهموم - 16-11-15

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

أخي أحمد

هذه أبسط طريقة ممكن تستخدمها

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 

RE: مطلوب كود لعرض حقول الجدول في الليست بوكس - AHMED SHARAF - 16-11-15

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

PHP كود :

Dim dataTable As DataTable
connection.Open()
dataTable = connection.GetSchema("Tables", New String() {Nothing, Nothing, Nothing, "Table"})
connection.Close()
Dim tables = (From x In dataTable Select x("TABLE_NAME")).ToArray

ListBox1.Items.AddRange(tables) 

RE: مطلوب كود لعرض حقول الجدول في الليست بوكس - AHMED SHARAF - 16-11-15

أشكرك أخي الكريم
وجزاك الله خيراً