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

الصفحات : 1 2

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

أختي منى

سوف أرشدك لطريقة بدون كتابة أي كود

أولا من القائمة Project اختاري Add New Item ومن النافذة اختاري DataSet وليكن اسمه DataSet1، ستتنفتح لك صفحة تصميم DataSet1،
الآن اسحبي الجدولين Countries وCities من نافذة Server Explorer واسقطيها داخل صفحة تصميم DataSet1، سيظهر معهم أيضاَ الرابط.

اذهبي للفورم وضعي ComboBox1 للدولة وComboBox2 للمدينة وطريقة ربطهما بال DataSet1 كالتالي

من خصائص ComboBox1 الخاص بالدولة:
اذهبي للخاصية DataSource واختاري من الشجرة ال Countries.
اذهبي للخاصية DisplayMember واختاري من القائمة ال CountryName.
اذهبي للخاصية ValueMember واختاري من القائمة ال CountryID.

من خصائص ComboBox2 الخاص بالمدينة:
اذهبي للخاصية DataSource واختاري من الشجرة ال FK_Cities_Coutries وهو موجود تحت CountriesBindingSource.
اذهبي للخاصية DisplayMember واختاري من القائمة ال CityName.
اذهبي للخاصية ValueMember واختاري من القائمة ال CityID.

الكود لكل الفورم

كود :

Imports System.Data

Imports System.Data.SqlClient

Public Class Form1

    Dim con As New SqlConnection

    Dim comm As SqlCommand = New SqlCommand

    Dim reader As SqlDataReader

    Dim dt As New DataTable

    Dim ds As New DataSet

    Dim da As New SqlDataAdapter

    Private Sub dailyreportentryform_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        con = New SqlConnection

        con.ConnectionString = "your string"

        con.Open()

        fillcombo1()

        fillcombo2()

        MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Information)

    End Sub

    'لتعبئة الكمبوبوكس الأول

    Private Sub fillcombo1()

        ds = New DataSet

        da = New SqlDataAdapter(" select * from Countries", con)

        da.Fill(ds, "Countries")

        ComboBox1.DataSource = ds.Tables("Countries")

        ComboBox1.ValueMember = "CountryID"

        ComboBox1.DisplayMember = "CountryName"

    End Sub

    'لتعبئة الكمبوبوكس الثاني

    Private Sub fillcombo2()

        ds = New DataSet

        da = New SqlDataAdapter(" select * from Cities where CountryID='" & ComboBox1.SelectedValue.ToString & "'", con)

        da.Fill(ds, "Cities")

        ComboBox2.DataSource = ds.Tables("Cities")

        ComboBox2.ValueMember = "CityID"

        ComboBox2.DisplayMember = "CityName"

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        If sender.focused = False Then Exit Sub

        fillcombo2()

    End Sub

End Class

شغال 100%

تم تعديل في المرفق

الحمد لله اشتغل 100 %

بشكركم جدا

ادعولي انهي المشروع بنجاح

Heart

اختكم منى

الصفحات : 1 2

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

مهموم

HASAN6.0

محمد العبيدي

mona626