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

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



Sql - محمود صالح - 07-12-21

سلام عليكم
عندي جدول به في قاعدة البيانات sql
عمود name
وعمود date
وعمود Q-name
اريد ان اجمع عمود Q-name بدالة sum(Q-name)
ولكن سوف يطلب مني ان اعمل group  by  ل 
Name و date
هل هناك طريقة ان افعل الجمع من غير ما اعمل لباقي الحقول 
group  by وشكرا


RE: Sql - اسامه الهرماوي - 10-12-21

وعليكم السلام...
تفضل:
Select Sum(Column) From Table
.........
Dim aa As Integer

aa= cmd.ExecuteScalar
Msgbox(aa)


RE: Sql - محمود صالح - 11-12-21

(10-12-21, 08:09 PM)اسامه الهرماوي كتب : وعليكم السلام...
تفضل:
Select Sum(Column) From Table
.........
   Dim aa As Integer
       
aa= cmd.ExecuteScalar
Msgbox(aa)

شكرا اخي على ردك
ولكن مفهمتش اي الفرق بين الكود بتعاك والكود الى انا بعمله 
وهو

Select 
،name
،date
Sum(Q-name) 
From Table
وهيطلب مني  group  by


RE: Sql - ابراهيم ايبو - 12-12-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
 لجمع عمود معين  يتم عبر الفنكشن التالي :
كود :
'----------Public Function Sum VB.Net With Sql----------
   Public Function Sum_Personal1() As Integer
       Dim Query As String = "Select Sum(CV_Salary) from Personal"
       Dim a As Integer
       Dim Cmd As New SqlCommand()
       Cmd = New SqlCommand(Query, Con)
       If Con.State = ConnectionState.Open Then Con.Close()
       Con.Open()
       a = Cmd.ExecuteScalar()
       Con.Close()
       Return a
   End Function
   
ولتنفيذه اما ان تضع هذا السطر في الفورم لود ليتم الاظهار في اللايبل او في بوتون ينفذ عند الحاجة او حسب ماترغب
كود :
Label1.Text = Format(Sum_Personal(), "0.00")