منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] جمع جميع محتويات الكومبو بوكس - نسخة قابلة للطباعة

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

جمع جميع محتويات الكومبو بوكس - Mido9 - 16-11-14

السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل

انا الان لدي اداة كومبو بوكس وبها بعض القيم التاليه


1
2
50
98546


انا اريد امر يقوم بجمع الارقام الموجوده فى الكومبو بوكس وإظهارها فى التيكست بوكس كـ إجمالي

وشكرا لكم

RE: جمع جميع محتويات الكومبو بوكس - سعود - 16-11-14

لو القيم من جدول بالقاعدة فالافضل استخدام sum لانها اضمن
كود :
select sum(col) from tb
وتسندها لـ oledbcommand وتقراها هكذا
كود :
textbox1.text= cm.executescalar
وممكن كذا
كود :
Dim i As Integer
        For a = 0 To ListBox1.Items.Count - 1
            i += ListBox1.Items.Item(a)
        Next
        TextBox1.Text = i


RE: جمع جميع محتويات الكومبو بوكس - Mido9 - 16-11-14

جزاك الله خيرا اخي الفاضل على الرد
بالفعل القيم من جدول من قاعدة البيانات

انا اريد معرفة الـ cm معناها ايه علشان استبدلها بالقيم الى عندي

لاني وضعت الكود هكذا


   
PHP كود :
 Dim saveinto As New OleDb.OleDbCommand
       Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
       Dim conn As New OleDb.OleDbConnection(constr)
       Dim DataSet1 As New DataSet
       Dim SQLstr As String
       SQLstr = "SELECT SUM(t_modares_safy) From t_modares "
       conn.Open()
       Dim dataadapter1 As New OleDb.OleDbDataAdapter(SQLstr, conn)
       dataadapter1.Fill(DataSet1, "t_modares")
           TextBox1.Text = cm.ExecuteScalar 


وظهر لي الخطأ التالي


PHP كود :
'cm' is not declared. It may be inaccessible due to its protection level. 


RE: جمع جميع محتويات الكومبو بوكس - سعود - 16-11-14

كود :
dim cm as new OleDb.OleDbCommand(sqlstr,con)