السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل لدي فورم و به ( Textbox + ComboBox )
الـ كومبو بوكس به 5 نتائج ,, الان اريد عرض نتيجة محدده فى التيكست بوكس بمعنى
اريد عرض النتيجه التي ترتيبها فى نتائج الكومبو بوكس 2 فى التيكست بوكس
توضيح اكثر .. الكومبو بوكس به تلك القيم ( ahmed - islam - mido - mohamed - esraa )
اريد عرض النتيجه صاحبة الترتيب 3 , فيظهر لي فى التيكست بوكس mido
و مثلا عرض النتيجة رقم 5 فيظهر لي ahmed
ان شاء الله تكون وصلت الفكره , وجزاكم الله خيرا
كود :
TextBox1.Text = ComboBox1.Items(2) '(الترتيب - 1)'
Aly El-Haddad كتب :
كود :
TextBox1.Text = ComboBox1.Items(2) '(الترتيب - 1)'
شكرا لك اخي الفاضل على المساعده بارك الله فيك
و لكن للاسف لم استطع التطبيق
انا جعلت الكود هكذا
TextBox21.Text = ComboBox21.Items(1) '(الترتيب - 1)'
كي اعرض النتيجة رقم 2
ولكن ظهر لي هذا الخطأ
Conversion from type 'DataRowView' to type 'String' is not valid.
ياريت لو تساعدني بالله عليك
اخى الكريم
كود الاخ Aly El-Haddad صحيح 100%
طيب جرب تغير وخليه بالشكل ده
TextBox1.Text = ComboBox1.Items(2).tostring '(الترتيب - 1)'
learning.net كتب :اخى الكريم
كود الاخ Aly El-Haddad صحيح 100%
طيب جرب تغير وخليه بالشكل ده
TextBox1.Text = ComboBox1.Items(2).tostring '(الترتيب - 1)'
جزاك الله خيرا اخي الفاضل على المساعده بارك الله فيك
جربت الكود الجديد و لكن وجدت ان نتيجة التيكست بوكس System.Data.DataRowView
؟
طيب ايه هو كود ملئ الكومبوكس بالبيانات عندك؟
تفضل عزيزي هذا هو الكود كاملاً
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)'
اخى جرب هذا الكود واخبرنى
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)'
ماشاء الله تبارك الله ,, تسلم إيدك يامبدع و الله
تمت التجربة و نجحت الحمد لله , بارك الله فيك و نفع بك الامه
تسسسسسسسسسسسلم
السلام عليكم ورحمة الله وبركاته
بعد إذن (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]
السلام عليكم ورحمة الله وبركاته