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

نسخة كاملة : كيف اقوم بتحميل اسم معين في الكومبوبوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
لو سمحتوا
عندي كومبو بوكس 
واقوم بتحميل جدول العملاء من قاعدة بيانات سيكوال 
علي حسب ال id فيظهر الترتيب بحسب ال id 
الامور تمشي تمام
ولكن اريد ان يظهر اسم عميل معين في الكومبوبوكس 
فقمت باضافة عمود في الداتا بيز من نوع boolean بحيث اني اضع علامة صح امام العميل اللي عاوزه يظهر افتراضي في الكمبوبوكس
دي الفكره ولكن عاوز كود لتنفيذها
وبارك الله فيكم
السلام عليكم ورحمة الله وبركاته
اخي الكريم امام
كل ما في الامر ستعمل جملة Select على جدول اسماء العملاء  بشرط ان يكون عمود الشرط True
(11-03-22, 11:08 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم امام
كل ما في الامر ستعمل جملة Select على جدول اسماء العملاء  بشرط ان يكون عمود الشرط True

بارك الله فيك اخي ابراهيم علي اهتمامك
ولكن لو انا عملت select بشرط ان يكون true 
كده مش هيجيبلي غير عميل واحد 
لكن عذرا لو انا معرفتش اوضح سؤالي
انا عاوز يحمل لي كل العملاء في الكومبوبوكس بس الاسم الفتراضي اللي يكون مختاره الكومبوبوكس هو العميل اللي عليه علامة صح في الداتا بيز
السلام عليكم 
اخي امام
يمكنك الاستعلام كما قلت لك سيجلب اسما واحدا كما انت تريد لانك ستحدد عميل واحد
الان لديك اسم العميل ضعه في متغير وبعدها استعلم عن كل الاسماء وعبئ الكومبو بداتاتابل اسم مختلف
ثم اجعل النص في الكومبو مثل ماهو موجود في المتغير
كود :
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
(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

لو امكن اخي الكود كاملا وبارك الله فيك
لانه لم يعمل معي
فقد تم تحميل البيانات بالكامل ولو يقوم باختيار العميل المطلوب
السلام عليكم ورحمة الله وبركاته
تفضل اخي امام
(12-03-22, 12:26 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تفضل اخي امام

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

ده شرف ليا ان اسمي يكون علي اسم جدك
زادك الله علما وبارك الله فيك
(12-03-22, 12:26 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تفضل اخي امام

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