[abuyazan]

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

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

[Dr.Sherif Alazizi]

(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

بالتوفيق

[سعود]

كود :

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 فلم احدث الصفحة قبل اضافة ردي لذلك اكرر اعتذاري

[احمد عبد الحكيم]

فى هذا الكد عدل به ما تريد

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 


[Dr.Sherif Alazizi]

(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 فلم  احدث الصفحة قبل اضافة ردي لذلك اكرر اعتذاري

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

[سعود]

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

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

[abuyazan]

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