تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جمع عمود في الجدول
#1
السلام عليكم
أريد مساعدة في عملية استخدام جملة الاستعلام هذه مثلا
Select SUM(Cash) from Pay
جمع عمود cash من جدول Pay ووضعها في TextBox

شاكرين ومقدرين لكم
الرد }}}}
تم الشكر بواسطة:
#2
(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

بالتوفيق


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}}
تم الشكر بواسطة: سعود
#3
كود :
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 فلم احدث الصفحة قبل اضافة ردي لذلك اكرر اعتذاري


الملفات المرفقة
.zip   For_abuyazan.zip (الحجم : 52.27 ك ب / التحميلات : 22)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#4
فى هذا الكد عدل به ما تريد
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 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#5
(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 فلم  احدث الصفحة قبل اضافة ردي لذلك اكرر اعتذاري




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


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}}
#6
إقتباس :انت استاذنا جميعا هنا اخي سعود بارك الله فيك
انا اخوكم ولست استاذ .. لكن هذا من تواضعك بارك الله فيك. Heart
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: Dr.Sherif Alazizi
#7
جزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفيةاعادة المعلومات الي الجدول بعد مسح ما بداخل RichTextBox khaled12345 3 80 23-05-17, 12:37 AM
آخر رد: khaled12345
  البحث او الفلتر باكثر من اسم من داخل عمود Name khaled12345 2 67 21-05-17, 08:18 AM
آخر رد: khaled12345
  نسخ بيانات الجدول salah mansour 4 98 07-05-17, 12:08 AM
آخر رد: salah mansour
  كيفية التحكم في تنسيق عمود خلايا واحد في الداتا جريد تناسيم 3 104 30-04-17, 06:31 PM
آخر رد: alma_fandi
  عندي جدولين اريد جملة sqlتقوم باظهار الاسماء الموجودة في الجدول الاول وليست موجودة في محمد محمود الغرياني 2 147 22-04-17, 02:19 AM
آخر رد: ابو ليلى
  [سؤال] أريد معرفة اخر صف في الجدول حنان المغربى 7 308 16-04-17, 02:01 AM
آخر رد: أبوبكر سويدان
  تحديد و اظهار بيانات الجدول VB.Net khaled12345 6 184 11-04-17, 10:15 AM
آخر رد: khaled12345
  [VB.NET] جعل الجدول يقبل فقط 10 حقول Crazy_Vb.NeT 3 125 25-02-17, 01:04 AM
آخر رد: مساعدة
  ما هو كود تحديث عمود الاسعار فى جدول SQL السيد الجوهري 1 199 31-01-17, 09:40 AM
آخر رد: مساعدة
  [سؤال] استعراض معلومات الجدول hitman48 7 218 30-01-17, 01:02 AM
آخر رد: khodor1985

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم