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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=11864)

جمع عمود في الجدول - abuyazan - 25-03-15

السلام عليكم
أريد مساعدة في عملية استخدام جملة الاستعلام هذه مثلا
Select SUM(Cash) from Pay
جمع عمود cash من جدول Pay ووضعها في TextBox

شاكرين ومقدرين لكم

RE: جمع عمود في الجدول - Dr.Sherif Alazizi - 25-03-15

(25-03-15, 08:42 AM)abuyazan كتب : السلام عليكم
أريد مساعدة في عملية استخدام جملة الاستعلام هذه مثلا
Select SUM(Cash) from Pay
جمع عمود cash من جدول Pay ووضعها في TextBox

شاكرين ومقدرين لكم

كود :
Using cmd As New SqlCommand("select sum(Cash) from Pay where FieldName like  '%" & TextBox1.Text.Trim & "%'", Sqlconn)
   Sqlconn.Open()
   TextBox2.Text = cmd.ExecuteScalar
   Sqlconn.Close()
End Using

بالتوفيق

RE: جمع عمود في الجدول - سعود - 25-03-15

كود :
Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim cm As New OleDb.OleDbCommand("", con)
   Private Function gsum()
       cm.Parameters.Clear()
       cm.CommandText = "select sum(n) from tb"
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Return cm.ExecuteScalar
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = gsum()
   End Sub
End Class

اعذرني اخي Dr.Sherif Alazizi فلم احدث الصفحة قبل اضافة ردي لذلك اكرر اعتذاري

RE: جمع عمود في الجدول - احمد عبد الحكيم - 25-03-15

فى هذا الكد عدل به ما تريد
PHP كود :
Private Sub tot()
        Dim Total1 As Double ' حساب أجمالي الفاتورة
        Dim Row As DataGridViewRow
        For Each Row In DataGridView1.Rows
            Dim celV1 As DataGridViewTextBoxCell = Row.Cells(6)
            If IsNumeric(celV1.Value) = True Then
                Total1 += celV1.Value
            End If
        Next
        txttotalbill.Text = Total1 


RE: جمع عمود في الجدول - Dr.Sherif Alazizi - 26-03-15

(25-03-15, 04:12 PM)سعود كتب :
كود :
Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim cm As New OleDb.OleDbCommand("", con)
   Private Function gsum()
       cm.Parameters.Clear()
       cm.CommandText = "select sum(n) from tb"
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Return cm.ExecuteScalar
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = gsum()
   End Sub
End Class

اعذرني اخي Dr.Sherif Alazizi فلم  احدث الصفحة قبل اضافة ردي لذلك اكرر اعتذاري




العفو أخي سعود
لا تعتذر بل والله لو اعلم انك سترد على السائل لما تجرأت انا على الرد عليه
ولا غضاضة أبدا والله لو حتى قمت بحذف ردي وابقيت ردك ,  فردك فيه الكفايه والله
انت استاذنا جميعا هنا اخي سعود بارك الله فيك

RE: جمع عمود في الجدول - سعود - 26-03-15

إقتباس :انت استاذنا جميعا هنا اخي سعود بارك الله فيك
انا اخوكم ولست استاذ .. لكن هذا من تواضعك بارك الله فيك. Heart

RE: جمع عمود في الجدول - abuyazan - 30-03-15

جزاكم الله خيرا