مجموع الارقام الموجودة فى حقل معين بقاعدة البيانات

-_-

وين المرفقات

ليه مرفقات هو السؤال مش واضح

السلام عليكم ........

أخي استخدام دالة SAM في جملة SELECTE

وشكرا

السلام عليكم

Dim Db As DAO.Database
Set Db = OpenDatabase(DBName) ' put the database name here
Dim Rec As DAO.Recordset
Set Rec = Db.OpenRecordset("Select sum(price) from us")
Dim Price
Price = 0
If Not Rec.EOF Then
   Price = Val(Rec(0))
End If
Me.Label1.Caption = Format(Price, "Currency")
Rec.Close
Db.Close
Set Rec = Nothing: Set Db = Nothing

السلام عليكم

الفرق فقط في كود الأستعلام SQL وهو كما يلي

SQL="Select sum(price) As total_price from us where ....... "

بعد كده لو بتستخدم ال ado تكتب الكود ده

label1.caption=rs("total_price")

أكيد الآن فهمت الطريقة

السلام عليكم ..

خبرتي بلـvb6 بسيطه ، ولكن هذا النوع من الدوال يرجع قيمة واحد

اقتباس

Set Rec = Db.OpenRecordset("Select sum(price) from us")

هل انتا متاكد من ان ترجع الي متغير من النوع Recordset

انا اسف ان لم اضاف اليك جديد :(

وشكرا

السلام عليكم

حياك الله اخي قبل الاول

OpenRecordset هي دالة من دوال ال DataBase Object

والقيمه العائدة للداله هي عباره عن Object من نوع DAO.Recordset

جرب الكود للتاكد

وشكرا

sql="Select sum(price) as p_to"
text1.text=t!p_to

شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا