resize image &جلب بيانات لcomboBox

تم الإستيراد بهذا الشكل

 Private Sub Load2Columns()
        Dim strSQL As String
        Try
            Cnn.Open()
            strSQL = "SELECT * FROM tb"
            Dim cmd As New OleDbCommand(strSQL, Cnn)
            Dim rdr As OleDbDataReader = _
            cmd.ExecuteReader(CommandBehavior.CloseConnection)
            With cbox
                .BeginUpdate()
                Do While rdr.Read()
                     .Items.Add(rdr("myColumn").ToString)
                Loop
                .EndUpdate()
                rdr.Close()
                cmd.Dispose()
            End With
        Catch ex As Exception
            Throw ex
        Finally
            Cnn.Close()
        End Try
    End Sub

طبعاً الكود واضح و إزيده إضاح على إفتراض أنكِ قمتي بإنشاء عنصر إتصال باسم Cnn و اسم القائمة المنسدلة هي cbox

والباقي واضح إن شاء الله

السؤال الثاني إختاري من خصائص Picture Box الخاصية SizeMode تساوي StretchImage

الأخ غملاسي القدير انا بعد بحث في المنتدى عملت الموديول التالي ولكن لدي مشكلة ولا ادري كيف الحل وارجو منك المساعدة

Public Sub ComboMoxFill(ByVal sql, ByVal DisMem, ByVal ValMem, ByVal CobBox)
        Try
            Call sConn()
            Dim ds As New DataSet
            Dim da As New OleDb.OleDbDataAdapter(sql, Conn)
            da.SelectCommand.ExecuteNonQuery()
            da.Fill(ds)
            CobBox.DataSource = ds.Tables(0)
            CobBox.DisplayMember = DisMem
            CobBox.ValueMember = ValMem
        Catch e1 As OleDb.OleDbException
            MessageBox.Show(e1.Message)

        End Try

        Conn.Close()
    End Sub

طبعا انا استعدي الاجراء بالطريقة التالية

sql = "select CountryArabicMaleNationality , CountryCode,CountryArabicFeMaleNationality From Country order by CountryArabicMaleNationality"
        Call ComboMoxFill(sql, "CountryArabicMaleNationality", "CountryCode", cmbNatio)

بس الحين المشكلة عندي ان الجنسيات عندي للجنسين يعني فرضا امارتي - اماراتية وكل واحد مخزن في عمود في الجدول

وذهبت الى الحدث cmbSex_SelectedIndexChanged وعملت الكود التالي ولم يزبط لانه يعطيني خطأ اثنا عملية الكومبيليشن

cmbNatio.DataSource = "CountryArabicFeMaleNationality"

ياريت تفهمني كيف اقدر اجعل المستخدم عندما يختار الجنس ذكر يظهر اماراتي وعندما يختار أنثى تظهر اماراتية

ولك الف شكر

اقتباس

بس الحين المشكلة عندي ان الجنسيات عندي للجنسين يعني فرضا امارتي - اماراتية وكل واحد مخزن في عمود في الجدول

وذهبت الى الحدث cmbSex_SelectedIndexChanged وعملت الكود التالي ولم يزبط لانه يعطيني خطأ اثنا عملية الكومبيليشن

CODE

cmbNatio.DataSource = "CountryArabicFeMaleNationality"

ياريت تفهمني كيف اقدر اجعل المستخدم عندما يختار الجنس ذكر يظهر اماراتي وعندما يختار أنثى تظهر اماراتية

ولك الف شكر

الخطاء يظهر لانك تقوم باسناد قيمة خاطئة للdatasource والمفترض ان تكون مجموعة بيانات او جدول...الخ

كل ما عليك فعله هو تغيير ال displaymember