تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعبئة كومبو بوكس بناءا على اختيارات كومبو بوكس آخر
#1
السلام عليكم ورحمة الله

الاخوة الكرام
عندي مشروع به جدول للعملاء وآخر للمدن على قاعدة بيانات اكسس
واعمل على برنامج فيجوال بيسك 2008
اريد اختيار المدينة في الكومبوبوكس الاول فيظهر لي في الثاني اسماء العملاء الموجودين في تللك المدينة فقط

وجزكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#2
حط هذا الكود في خانه جديدة


PHP كود :
   Sub fillcombo()
 
       strsql "select * from tablecity"
 
       Dim acscmd As New OleDb.OleDbCommand
        acscmd
.CommandText strsql
        acscmd
.Connection acsconn
        acsdr 
acscmd.ExecuteReader
        While 
(acsdr.Read())
 
           ComboBox1.Items.Add(acsdr("city"))
 
       End While
 
       acscmd.Dispose()
 
       acsdr.Close()
 
   End Sub 
وحط هذا الكود في الكومبوبوكس
PHP كود :
    strsql "select * from tablecostumer where costumername='" ComboBox1.Text "'"
 
       Dim acscmd As New OleDb.OleDbCommand
        acscmd
.CommandText strsql
        acscmd
.Connection acsconn
        acsdr 
acscmd.ExecuteReader


        
'هنا اسماء الخانات الموجوده داخل جدول العملاء

        If (acsdr.Read() = True) Then
            TextBox1.Text = (acsdr("costumername"))
            TextBox2.Text = (acsdr("city"))
            TextBox3.Text = (acsdr("age"))
            TextBox4.Text = (acsdr("phone"))
         

        End If
        acscmd.Dispose()
        acsdr.Close() 
اضف هذا الكود في خانة تحميل الفورم
PHP كود :
fillcombo() 
الرد }}}}
تم الشكر بواسطة: محمود رغمان , muaamar


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترتيب 2 ليست بوكس حسب احدهما samira20 6 137 06-01-17, 06:40 PM
آخر رد: samira20
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 412 04-01-17, 01:12 AM
آخر رد: Namer
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 139 31-12-16, 07:35 PM
آخر رد: مساعدة
  [كود] كود وضع رابط WebBrowser في التكيست بوكس hassan 2 512 21-12-16, 02:00 PM
آخر رد: Basil Abdallah
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 241 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 137 08-12-16, 11:16 AM
آخر رد: superwoofer
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 293 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 116 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  تعبئة الكمبوبوكس في الداتاغريد فيو .. حلا ابوحامضة 7 328 06-12-16, 11:32 AM
آخر رد: superwoofer
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,574 30-11-16, 10:16 PM
آخر رد: omferas

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم