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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=40910)

كيف اقوم بتحميل اسم معين في الكومبوبوكس - Emam emam - 11-03-22

السلام عليكم
لو سمحتوا
عندي كومبو بوكس 
واقوم بتحميل جدول العملاء من قاعدة بيانات سيكوال 
علي حسب ال id فيظهر الترتيب بحسب ال id 
الامور تمشي تمام
ولكن اريد ان يظهر اسم عميل معين في الكومبوبوكس 
فقمت باضافة عمود في الداتا بيز من نوع boolean بحيث اني اضع علامة صح امام العميل اللي عاوزه يظهر افتراضي في الكمبوبوكس
دي الفكره ولكن عاوز كود لتنفيذها
وبارك الله فيكم

RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - ابراهيم ايبو - 11-03-22

السلام عليكم ورحمة الله وبركاته
اخي الكريم امام
كل ما في الامر ستعمل جملة Select على جدول اسماء العملاء  بشرط ان يكون عمود الشرط True

RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - Emam emam - 11-03-22

(11-03-22, 11:08 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم امام
كل ما في الامر ستعمل جملة Select على جدول اسماء العملاء  بشرط ان يكون عمود الشرط True

بارك الله فيك اخي ابراهيم علي اهتمامك
ولكن لو انا عملت select بشرط ان يكون true 
كده مش هيجيبلي غير عميل واحد 
لكن عذرا لو انا معرفتش اوضح سؤالي
انا عاوز يحمل لي كل العملاء في الكومبوبوكس بس الاسم الفتراضي اللي يكون مختاره الكومبوبوكس هو العميل اللي عليه علامة صح في الداتا بيز

RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - ابراهيم ايبو - 11-03-22

السلام عليكم 
اخي امام
يمكنك الاستعلام كما قلت لك سيجلب اسما واحدا كما انت تريد لانك ستحدد عميل واحد
الان لديك اسم العميل ضعه في متغير وبعدها استعلم عن كل الاسماء وعبئ الكومبو بداتاتابل اسم مختلف
ثم اجعل النص في الكومبو مثل ماهو موجود في المتغير
كود :
Dim dt2 As New DataTable
       da = New SqlDataAdapter("select Name from Table1 Where ColumChek = true", Cn)
       da.Fill(dt2)
       Dim AA As String = dt.Rows(0).Item(0)
       ' الان ستملا الكومبو بكل الاسماء
       ' جملة استعلام جديدة مع داتاتابل باسم اخر لتملا الكومبو
       comboAllName.text = AA


RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - Emam emam - 11-03-22

(11-03-22, 11:28 PM)ابراهيم ايبو كتب : السلام عليكم 
اخي امام
يمكنك الاستعلام كما قلت لك سيجلب اسما واحدا كما انت تريد لانك ستحدد عميل واحد
الان لديك اسم العميل ضعه في متغير وبعدها استعلم عن كل الاسماء وعبئ الكومبو بداتاتابل اسم مختلف
ثم اجعل النص في الكومبو مثل ماهو موجود في المتغير
كود :
Dim dt2 As New DataTable
       da = New SqlDataAdapter("select Name from Table1 Where ColumChek = true", Cn)
       da.Fill(dt2)
       Dim AA As String = dt.Rows(0).Item(0)
       ' الان ستملا الكومبو بكل الاسماء
       ' جملة استعلام جديدة مع داتاتابل باسم اخر لتملا الكومبو
       comboAllName.text = AA

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

RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - ابراهيم ايبو - 12-03-22

السلام عليكم ورحمة الله وبركاته
تفضل اخي امام

RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - Emam emam - 12-03-22

(12-03-22, 12:26 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي امام

الف مليون شكر اخي ابراهيم
بارك الله فيك وجعله الله في ميزان حسناتكم

RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - ابراهيم ايبو - 12-03-22

الحمد لله والشكر لله
ولك اخي امام 
تكرم  ... اسمك على اسم جدي يسعدني ذلك


RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - Emam emam - 12-03-22

(12-03-22, 12:39 AM)ابراهيم ايبو كتب :
الحمد لله والشكر لله
ولك اخي امام 
تكرم  ... اسمك على اسم جدي يسعدني ذلك

ده شرف ليا ان اسمي يكون علي اسم جدك
زادك الله علما وبارك الله فيك

RE: كيف اقوم بتحميل اسم معين في الكومبوبوكس - مصمم هاوي - 12-03-22

(12-03-22, 12:26 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي امام

جعلك الله ذخرا وسندا وعونا لإخوانك في هذا المنتدى العزيز