کد دقیق رو قبلا براتون در پست های 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)", "")