منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

(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 

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

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

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

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

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