جمع یک ستون از دیتابیس و نمایش در لیبل

[Fery666]

سلام وقتتون بخیر خسته نباشید .

من یه جدول دارم که میخوام ستون های مبلغ رو جمع کنم .

برای نمایش خروجی کار باید چکار کنم که در یک لیبل نمایش بده .

کد اتصال به جدول منم اینه :



con.Open()
DS = New DataSet
DV = New DataView
strsql = "Select SUM(Mablagh) AS Jam_Mablagh From tblDaryaft"
DA = New OleDbDataAdapter(strsql, con)
DS.Clear()
DA.Fill(DS, "tblDaryaft")
DV = DS.Tables("tblDaryaft").DefaultView
con.Close()

[mazoolagh]

USING con AS NEW OLEDBCONNECTION(.....)
con.OPEN()
USING CMND AS NEW OLEDBCOMMAND("Select SUM(Mablagh) AS Jam_Mablagh From tblDaryaft" , con)
label.TEXT= COM.EXECUTESCALAR()
END USING
END USING

[mazoolagh]

اگر از قبل tblDaryaft رو در یک datatable ریختین، میتونین با استفاده از COMPUTE جمع رو مستقیما محاسبه کنین:

label.TEXT= tblDaryaft_DATATABLE.COMPUTE("SUM(Mablagh)", "")

DataGridview Footer (barnamenevis.org) (https://barnamenevis.org/showthread.php?570121-DataGridview-Footer)

[Fery666]

سلام دوستان .

من با این کد یه ستون از جدول رو جمع می کنم .
ولی وقتی مقدار عدد بالا باشه خطا میده .
باید چکاری انجام بدم ؟




con.Open()
DS = New DataSet
DV = New DataView
strsql = "Select Mablagh From tblJozeeyat Where Nam Like '%" & CB_moshtari.Text & "%'"
DA = New OleDbDataAdapter(strsql, con)
DS.Clear()
DA.Fill(DS, "tblJozeeyat")
DV = DS.Tables("tblJozeeyat").DefaultView
Dim DR As DataRow = DV.Table.NewRow
DR(0) = DV.Table.Compute("SUM(Mablagh)", "")
mand = DR(0).ToString
con.Close()

[ROSTAM2]

سلام.
نمی شه برا اون تابع Compute - دیتا تایپ تعیین کرد آیا؟

[mazoolagh]

سلام.
نمی شه برا اون تابع Compute - دیتا تایپ تعیین کرد آیا؟

سلام و روز خوش
دیتاتایپ compute از نوع object هست و با توجه نوع فیلدی که روش عملیات انجام میشه مشخص میشه - خلاصه این که دیتاتایپ همون فیلد رو میگیره.
حدس میزنم ایشون فیلد مثلا int16 یا byte دارن و نتیجه compute بزرگتر از این هست که بشه با اینها نشون داد.

[mazoolagh]

من با این کد یه ستون از جدول رو جمع می کنم .
ولی وقتی مقدار عدد بالا باشه خطا میده .


سلام دوباره
فکر کنم شما کار رو بیخودی پیچیده اش کردین.
دلیل خاصی داره که وقتی جدول رو پر کردین و همه چیز برای compute آماده است از روش یک دیتاویو میسازین و باز از روی این یک دیتاتیبل میسازین و بجای اینکه روی جدول اصلی compute بزنین روی این انجام میدین؟
اون اضافه کردن row جدید برای چی هست؟

[Fery666]

سلام دوباره
فکر کنم شما کار رو بیخودی پیچیده اش کردین.
دلیل خاصی داره که وقتی جدول رو پر کردین و همه چیز برای compute آماده است از روش یک دیتاویو میسازین و باز از روی این یک دیتاتیبل میسازین و بجای اینکه روی جدول اصلی compute بزنین روی این انجام میدین؟
اون اضافه کردن row جدید برای چی هست؟


خب شما بگید زا چه طریقی جمع کنم ؟

[mazoolagh]

کد دقیق رو قبلا براتون در پست های 2 و 3 گذاشتم.

1- اگر نیازی به ریختن مقادیر جدول در دیتاتیبل ندارین و فقط جمع ستون نیاز هست که همین کد پست 2 کافیه.

2- اگر لازم هست که حتما جدول در یک دیتاتیبل باشه (برای کارهای دیگه) و آپدیت دیتا هم نیازه که میتونین با datatadpter جدول رو پر کنین:
DIM strsql = "SELECT ...."
DIM DS AS NEW DATASET
USING con AS NEW OLEDBCONNECTION(.....)
con.OPEN()
DIM DA AS NEW OLEDBDATAADAPTER(strsql , con)
DA.FILL(DS)
END USING
label.TEXT= DS.TABLES(0).COMPUTE("SUM(Mablagh)", "")


3- اگر واقعا به جدول نیاز هست ولی آپدیت دیتا ندارین بهتره از datareader بجای dataadapter استفاده بشه:
DIM DT AS NEW DATATABLE
USING con AS NEW OLEDBCONNECTION(.....)
con.OPEN()
USING CMND AS NEW OLEDBCOMMAND("SELECT ..." , CON)
USING DR AS OLEDBDATAREADER= CMND.EXECUTEREADER()
DT.LOAD(DR)
END USING
END USING
END USING
label.TEXT= DT.COMPUTE("SUM(Mablagh)", "")