تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برجاء النظر على هذا المثال من الاستاذ ابو رائد والاستاذ سجاد
#1
بسم الله الرحمن الرحيم
اولا احب اوجه الشكر للاستاذ @@أبورائد@@ والاستاذ sajad



تانى حاجة لو سمحتم عندى 3 كومبو بوكس عايز لما فيهم بيلنات من جداول تانية وعندى تيكست بوكس عايز محتوياته تتملى اتوماتيك لما اختار القيمة من كل كومبو بوكس مثال يعنى كومبو بوكس 1 الدولة هايبقا محتوياته الدول متسجلة فى الداتا بيز هاختار مثلا "مصر"
كومبو بوكس 2 اسمه المحافظة محتوياته هاتبقا اسماء المحافظات هاختار مثلا " القاهرة "
كومبو بوكس 3 اسمه المدينة هانختار مثلا " وسط البلد "
كدا يبقا ناقص التيكست بوكس ائلى اسمه العنوان عايز لما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
وديه انا كنت عاملها بالاكسيس بالدالة ديه
كود :
[align=left][country] & " - محافظة " & [State] & " - مدينة " & [City][/align]
[SIZE=6]وارجو الاهتمام جزاكم الله كل خير[/SIZE]

مرفق مثال للمطلوب
[ATTACH]3027[/ATTACH]


الملفات المرفقة
.zip   test.zip (الحجم : 247.32 ك ب / التحميلات : 21)
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

أخي العزيز في حدث SelectIndexChanged للCombobox3 اكتب هذا الكود:

PHP كود :
textBox1.Text=combobox1.Text&" "&combobox2.Text&" "&combobox3.Text 

الرد }}}}
تم الشكر بواسطة:
#3
سلام عليكم

إقتباس :
لما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
مالذي تقصده عنوان لأي شيء
الرد }}}}
تم الشكر بواسطة:
#4

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





تفضل بعد عمل قاعدة بيانات حسب الهيكلية التي في بداية الكود (مجرب بنجاح في مثال سابق لدي)

PHP كود :
Public Class Form1

    
'' Database:
    
''    Countryidname
    
''    State  idnameCountryId
    
''    City   idnameCountryIdStateID

    
Private connection As New SqlClient.SqlConnection("Data Source=.\SQLEXP; Initial Catalog=SGG; Integrated Security=True")

    Private 
Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        ComboBoxFill
(Me.ComboBox1"[Country]")

    
End Sub

    
Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As ObjectByVal e As System.EventArgsHandles ComboBox1.SelectionChangeCommitted
        ComboBoxFill
(Me.ComboBox2"[State]""[CountryID] = " ComboBox1.SelectedValue)
    
End Sub

    
Private Sub ComboBox2_SelectionChangeCommitted(ByVal sender As ObjectByVal e As System.EventArgsHandles ComboBox2.SelectionChangeCommitted
        ComboBoxFill
(Me.ComboBox3"[City]""[CountryID] = " ComboBox1.SelectedValue " AND [StateID] = " ComboBox2.SelectedValue)
    
End Sub

    
Private Sub ComboBox3_SelectionChangeCommitted(ByVal sender As ObjectByVal e As System.EventArgsHandles ComboBox3.SelectionChangeCommitted
        Me
.TextBox1.Text Me.ComboBox1.Text ", " Me.ComboBox2.Text ", " Me.ComboBox3.Text
    End Sub


    Sub ComboBoxFill
(ByVal combobox As ComboBoxByVal tablename As StringOptional ByVal condition As String "")

        
Dim sql As String "SELECT * FROM " tablename
        
If condition.Trim <> "" Then
            sql 
&= " WHERE " condition
        End 
If

        
Dim adapter As New SqlClient.SqlDataAdapter(sqlconnection)
        
Dim table As New DataTable

        adapter
.Fill(table)

        
combobox.DataSource table
        combobox
.ValueMember "id"
        
combobox.DisplayMember "Name"

        
combobox.SelectedIndex = -1

    End Sub

End 
Class 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#5
الف شكر يا ابو رائد بس ارجو تحميل المثال لكى تتضح لك الصورة واسف لازعاجك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصليح هذا المثال اذا امكن أسامة 0 100 28-06-16, 10:08 PM
آخر رد: أسامة
  برجاء المساعدة وتوضيح معنى الرسالة loverhac 7 226 19-03-16, 07:35 PM
آخر رد: hassan
  مشكله مع الكريستال ريبورت برجاء المساعده ِAbou Sama 3 231 28-01-16, 01:56 PM
آخر رد: abdhassan
  التعديل على المثال المرفق لل Scanner فاتن 14 4,389 25-12-15, 09:08 AM
آخر رد: mrnooo2000
  برجاء الافادة في حل هذه المشكلة Mostafa Yousry 3 229 16-12-15, 11:30 PM
آخر رد: magdy_salam
  محتاج تعديل بمشروع طباعة جاهز فقط حاب اغير من sql لل ACCESS المثال جاهز moh61 3 547 13-10-15, 02:55 AM
آخر رد: moh61
  [VB.NET] نفس المشكلة شباب ولكن هذة المرة مرفوق المثال theghost 2 281 05-09-15, 05:55 AM
آخر رد: الطالب
Thumbs Up برجاء المساعدة في تحديد نوع الخطاء بالكود Mostafa Yousry 3 244 22-08-15, 06:25 PM
آخر رد: أبو عمر
  [سؤال] شباب ارجو تحديث المثال الى بهذه المشاركة احمد عبد الحكيم 0 233 10-06-15, 08:42 PM
آخر رد: احمد عبد الحكيم
Sad [سؤال] برجاء كود لاخفاء البرنامج من مدير المهام mohamed awad 1 910 24-10-14, 01:53 AM
آخر رد: سعود

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


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