منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التحكم بمحتويات الكومبو بوكس ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التحكم بمحتويات الكومبو بوكس ؟ (/showthread.php?tid=7479)

الصفحات: 1 2

التحكم بمحتويات الكومبو بوكس ؟ - Mido9 - 22-12-12

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

اخواني الافاضل لدي فورم و به ( Textbox + ComboBox )

الـ كومبو بوكس به 5 نتائج ,, الان اريد عرض نتيجة محدده فى التيكست بوكس بمعنى

اريد عرض النتيجه التي ترتيبها فى نتائج الكومبو بوكس 2 فى التيكست بوكس

توضيح اكثر .. الكومبو بوكس به تلك القيم ( ahmed - islam - mido - mohamed - esraa )

اريد عرض النتيجه صاحبة الترتيب 3 , فيظهر لي فى التيكست بوكس mido
و مثلا عرض النتيجة رقم 5 فيظهر لي ahmed


ان شاء الله تكون وصلت الفكره , وجزاكم الله خيرا

التحكم بمحتويات الكومبو بوكس ؟ - Aly El-Haddad - 22-12-12

كود :
TextBox1.Text = ComboBox1.Items(2) '(الترتيب - 1)'


التحكم بمحتويات الكومبو بوكس ؟ - Mido9 - 22-12-12

Aly El-Haddad كتب :
كود :
TextBox1.Text = ComboBox1.Items(2) '(الترتيب - 1)'

شكرا لك اخي الفاضل على المساعده بارك الله فيك

و لكن للاسف لم استطع التطبيق Sad

انا جعلت الكود هكذا


TextBox21.Text = ComboBox21.Items(1) '(الترتيب - 1)'

كي اعرض النتيجة رقم 2


ولكن ظهر لي هذا الخطأ

Conversion from type 'DataRowView' to type 'String' is not valid.


ياريت لو تساعدني بالله عليك Sad

التحكم بمحتويات الكومبو بوكس ؟ - learning.net - 22-12-12

اخى الكريم
كود الاخ Aly El-Haddad صحيح 100%
طيب جرب تغير وخليه بالشكل ده

TextBox1.Text = ComboBox1.Items(2).tostring '(الترتيب - 1)'

التحكم بمحتويات الكومبو بوكس ؟ - Mido9 - 22-12-12

learning.net كتب :اخى الكريم
كود الاخ Aly El-Haddad صحيح 100%
طيب جرب تغير وخليه بالشكل ده

TextBox1.Text = ComboBox1.Items(2).tostring '(الترتيب - 1)'

جزاك الله خيرا اخي الفاضل على المساعده بارك الله فيك

جربت الكود الجديد و لكن وجدت ان نتيجة التيكست بوكس System.Data.DataRowView

؟

التحكم بمحتويات الكومبو بوكس ؟ - learning.net - 22-12-12

طيب ايه هو كود ملئ الكومبوكس بالبيانات عندك؟

التحكم بمحتويات الكومبو بوكس ؟ - Mido9 - 22-12-12

تفضل عزيزي هذا هو الكود كاملاً Smile

PHP كود :
Dim saveintoo As New OleDb.OleDbCommand
        Dim constrr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
        Dim connn As New OleDb.OleDbConnection(constrr)
        Dim DataSett As New DataSet
        Dim SQLstrr As String
        SQLstrr = "SELECT * From factor_daora Where factor_daoraa_name=('" & TextBox10.Text & "')Order by factor_daora_id"
        connn.Open()
        Dim dataadapterr As New OleDb.OleDbDataAdapter(SQLstrr, connn)
        dataadapterr.Fill(DataSett, "factor_daora")
        connn.Close()
        ComboBox21.DataSource = DataSett.Tables("factor_daora")
        ComboBox21.DisplayMember = "factor_daora_id"
        TextBox21.Text = ComboBox21.Items(1).ToString '(الترتيب - 1)' 


التحكم بمحتويات الكومبو بوكس ؟ - learning.net - 22-12-12

اخى جرب هذا الكود واخبرنى
Dim saveintoo As New OleDb.OleDbCommand
Dim constrr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
Dim connn As New OleDb.OleDbConnection(constrr)
Dim DataSett As New DataSet
Dim SQLstrr As String
SQLstrr = "SELECT * From factor_daora Where factor_daoraa_name=('" & TextBox10.Text & "')Order by factor_daora_id"
connn.Open()
Dim dataadapterr As New OleDb.OleDbDataAdapter(SQLstrr, connn)
dataadapterr.Fill(DataSett, "factor_daora")
connn.Close()

ComboBox21.Items.Clear()
For X As Integer = 0 To DataSett.Tables("factor_daora").Rows.Count - 1
ComboBox21.Items.Add(DataSett.Tables("factor_daora").Rows(X).Item("factor_daora_id"))
Next

TextBox21.Text = ComboBox21.Items(1).ToString '(الترتيب - 1)'

التحكم بمحتويات الكومبو بوكس ؟ - Mido9 - 22-12-12

ماشاء الله تبارك الله ,, تسلم إيدك يامبدع و الله

تمت التجربة و نجحت الحمد لله , بارك الله فيك و نفع بك الامه

تسسسسسسسسسسسلم

التحكم بمحتويات الكومبو بوكس ؟ - @@أبورائد@@ - 22-12-12

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

بعد إذن (learning.net)

الطريقة الأفضل لربط الأدوات بقاعدة البيانات
كود :
Dim conn As New OleDb.OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;                   " & _
                                      " Data Source =" & Application.StartupPath & "\db.mdb ")
Dim sql As String = "   SELECT factor_daoraa_name, factor_daora_id          " & _
                    "     FROM factor_daora                                 " & _
                    "    WHERE factor_daoraa_name = @factor_daoraa_name     " & _
                    " ORDER BY factor_daora_id                              "

Dim comm As New OleDb.OleDbCommand(sql, conn)
comm.Parameters.AddWithValue("@factor_daoraa_name", Me.TextBox10.Text)

Dim dt As New [color=#FF0000]DataTable[/color]
Dim da As New OleDb.OleDbDataAdapter(comm)
da.Fill(dt)

ComboBox21.DataSource = dt("factor_daora")
ComboBox21.DisplayMember = "factor_daora_id"

لعرض العنصر المختار
كود :
TextBox21.Text = ComboBox21.[color=#FF0000]SelectedItem[/color]

لعرض factor_daora_id للعنصر المختار
كود :
TextBox21.Text = ComboBox21.[color=#FF0000]SelectedValue[/color]

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