جمع مقادیر یک فیلد و نمایش آن در یک لیبل

[parisa.s]

سلام
بچه ها من میخوام وقتی کاربر شماره مشتری را وارد می کنه بررسی کنه اگر داخل جدولم وجود داشت فیلتر کنه
و همه ی مبالغی که اون مشتری خرید کرده رو برام جمع کنه(فیلد قیمت خرید) و در یک لیبل روی فرم من نمایش بده
تا جایی که فیلتر کنم پیش رفتم
بهم کمک کنین تا بتونم عددهای اون فیلد رو جمع کنم
بچه ها خواهش می کنم کمکم کنین
خیلی گشتم
این سوالو جای دیگه هم دیدم ولی جوابی به ایشون هم نداده بودین
خواهش میکنم کمکم کنین
:گریه:

[mds_boy]

اگه مشکلت فقط جمع کردنه همون فیلده قیمت خرید باشه میتونی با کده :

SELECT Sum(Filde Ghaymat) as Jame Kole Ghaymatha
from Table Name

البته توجه داشته باش که این کد رو بعد از فیلتر کردن به کار ببری، وگر نه قیمته کل همه ی اجناس رو میگیری !
موفق باشی.

[parisa.s]

اگه مشکلت فقط جمع کردنه همون فیلده قیمت خرید باشه میتونی با کده :

SELECT Sum(Filde Ghaymat) as Jame Kole Ghaymatha
from Table Name

البته توجه داشته باش که این کد رو بعد از فیلتر کردن به کار ببری، وگر نه قیمته کل همه ی اجناس رو میگیری !
موفق باشی.



بعد چجوری بگم در لیبل نمایش بده
این select رو در recourdsource بنویسم
مرسی که میخواین کمکم کنین
Adodc2.RecordSource = " select sum (gheymatkol) as jam from rizfactor)"

lblmablagh.Caption = jam
اینو نوشتم ولی جواب نداد

[mds_boy]

Dim db As New Connection
Dim rs As New Recordset
db.CursorLocation = adUseClient
db.Open "provider=msdasql;driver={sql server};server=;uid=;pwd=;database=DataBase Name"
s = "SELECT Sum(gheymatkol) as Filde Majazi from rizfactor"
rs.Open s, db
Set Label1.DataSource = rs


این کد رو مینویسی و خاصیته dataFild لیبلت رو Filde Majazi قرار بده، ببین درسته ؟ ?

[parisa.s]

Dim db As New Connection
Dim rs As New Recordset
db.CursorLocation = adUseClient
db.Open "provider=msdasql;driver={sql server};server=;uid=;pwd=;database=Test"
S = "SELECT Sum(Filde Ghaymat) from Table Name"
rs.Open S, db


یه لحظه الان برات تست میکنم.





عینه همینو منتها با نام فیلد خودم داخل برنامه نوشتم ولی errorr زیرو میده
invalid use of new keyword:عصبانی++::افسرده:

[mds_boy]

:خجالت: من که گفتم بهت تست کنم بعد برات میگم، من که چیزی اضافه نکرده بودم بهش

اون بالا برات فرستادم، خودت هم بزن ببین جواب میده، اگه مشکلی نبود من میرم.

[parisa.s]

عینه همینو منتها با نام فیلد خودم داخل برنامه نوشتم ولی errorr زیرو میده
invalid use of new keyword:عصبانی++::افسرده:

بچه ها خواهش میکنم کمک کنید این مشکلم حل شه
please:گریه::عصبانی++::افسرده::ن� �راحت:
--------------------


:خجالت: من که گفتم بهت تست کنم بعد برات میگم، من که چیزی اضافه نکرده بودم بهش

اون بالا برات فرستادم، خودت هم بزن ببین جواب میده، اگه مشکلی نبود من میرم.



استاد گرامی
گفتم که عین همونو نوشتم اون eroor رو داد

[mds_boy]

به پسته بالایش مراجعه کردی ؟؟؟
------------------------------------

Dim db As New Connection
Dim rs As New Recordset
db.CursorLocation = adUseClient
db.Open "provider=msdasql;driver={sql server};server=;uid=;pwd=;database=DataBase Name"
s = "SELECT Sum(gheymatkol) as Filde Majazi from rizfactor"
rs.Open s, db
Set Label1.DataSource = rs


این کد رو مینویسی و خاصیته dataFild لیبلت رو Filde Majazi قرار بده، ببین درسته ؟ ?

[HjSoft]

من خودم به شخصه از For استفاده می کنم ، فقط 4 خط کد داره .

For i = 1 to rst.recordcount
sum = sum + rst.field("gheymat")
rst.movenext
Next i

[parisa.s]

من خودم به شخصه از For استفاده می کنم ، فقط 4 خط کد داره .

For i = 1 to rst.recordcount
sum = sum + rst.field("gheymat")
rst.movenext
Next i

دستتون درد نکنه با همین for جوابمو گرفتم
مرسی از همتون مخصوصا شما

[mds_boy]

ممنون از HjSoft عزیز .
برای هر کاری چند راه هست، و بهترین راه کوتاهترین راه است، البته برای ما برنامه نویسها، در دیگر ضمینه ها باید روش فکر کرد :چشمک: .
---
نکته اخلاقی که ربطی به موضوع نداره، ولی بر حسابه اطلاعاته عمومی شما خوانندگان مینویسم :
اگر میبینی کسی ، بر یک عمل یا حرف خود پا فشاری میکند؛ یا در مورد آن خیلی میدوند یا اصلا چیزی نمیداند !
که من به این نتیجه رسیده ام که گزینه ی دومی زیاد خاطرخا داره تو ملته ما !