سؤال: افضل طريقة لتعبئة مجموعة combobox دفعة وحدة

يمكنك استخدام التالي بإفتراض ان مجموعة البيانات التي تستخدمها اسمها ds واسم العمود الذي ستظهر بياناته في combo هو keyName واسم العمود الذي سيكون في مختفيا هو valueName

يمكنك استخدام الكود التالي:

'هنا ضع جملة الاستعلام الخاضة بالجدول الذي سيتم ملئ الكمبو منه
da.fill(ds,"TableName") 
combo.DisplayMember="KeyName"
combo.ValueMember="ValueName"
combo.DataSource=ds.Tables("TableName")

وكرر العملية لباقي الكومبوز واذا أردت جعل العملية على شكل Sub أو Function فهو أفضل لكي تستدعيها بإستخدام مجرى آخر للبرنامج Thread

ملاحظة : إذا لم يكن لديدك ValueName ضع KeyName

الف شكر اخي الكريم

انا استخدم هذه الطريقة بل استخدم الdatatable ومافي عندي اي مشكلة بس سؤالي هو متعلق ب dataAdaper هل الأفضل ان اجلب كل البيانات في جملة واحدة ثم اخذ منها ما اريد

ام اعمل جملة لكل حقل؟

السلام عليكم

الافضل انك تعمل التالى ضيف Class او Module

وبعد كدة تعمل Function ترسل ليها اسم ComboBox و Table و DisplayMember و ValueMember

وبعد كدة تقدر تستخدم الجملة دية علشان تحمل اى بيانات فى ComboBox

جرب تعمل الموضوع دة لو معرفتش اخبرنى واعمل ليك مثال ان شاء الله

بسم الله الرحمن الرحيم

مبروك على الجميع شهر الرحمة والمغفرة والعتق من النار ونسأل الله في هذا الشهر العظيم أن يرفع عن أمتنا الذل والهوان الذي حل بها.

وبالنسبة لسؤالك أخي:

إذا كنت تريد عرض البيانات فقط في مربع القائمة المنسدلة(combobox) فلماذا لاتستخدم الكائن DataReader

وإذا كنت مصراً على استخدام طريقتك فيكفيك كائن dataAdaper وحيد و كائن Dataset وحيد أيضاً.

اذا كنت تريد السرعة استخدم Thread

الف شكر للشباب انا استخدم الdatareadr و dataset عن طريق sub ارسل له combobox و dataset

والموضوع ماشي 100% واللي اكتشتفه هو اني لا يمكن ان استدعي كل الجداول بجملة واحد اي الكل متفق هنا على اني يجب ان عمل استدعاء لكل جدول على حده ومن ثم تعبئته في الكمبوبكس صحيح؟

بل يمكن استدعاء كل الجداول بجملة واحدة؟!

كيف يا اخي الخبير؟

افيدنا ولا تتبع اسلوب التشويق فقط والتعيشيم

خخخخخخخ

قم بإنشاء Form جديد وضع عليه أداة DataGrid ثم أدرج الكود التالي في حدث التحميل لهذاالنموذج:

   Dim cnnstr As String = "Integrated Security=SSPI;database=Northwind;server=(local)"
        Dim cnn As New SqlConnection(cnnstr)
        Dim sqlda As New SqlDataAdapter("SELECT * FROM  Categories;SELECT * FROM Customers", cnn)
        Dim ds As New DataSet("datasetn")
        sqlda.Fill(ds)
        ds.Tables("Table").TableName = "Categories"
        ds.Tables("Table1").TableName = "Customers"
        DataGrid1.DataSource = ds

ولاتنس كتابة الجملة Imports System.Data.SqlClient في أعلى صفحة الكود ولاشك أنك تعلم لماذا تكتب هذه الجملة؟

ومعذرة إن كان في أسلوبي السابق مايدعو للإنزعاج أو التهكم.

لالا ليس تهكم ولا انزعاج ولكن فقط امزح معك

لانك رديت علي بانه فيه حل ولم تعطيني الحل فقلت لك اعطينا الحل

بالنسبة للكود الف شكر وانا الان فهمت موضوع "SELECT * FROM Categories;SELECT * FROM Customers

يعني نضع بين كل جملة من جمل الselect علامة فاصلة منقوطة

راح اجرب والف شكر على تفاعلك