جمع ستون یک دیتا گرید

[Dr.Bronx]

سلام دوستان
من می خوام توی وی بی و یک textbox جمع یک فیلد از دتاگرید رو نمایش بدم
اطلاعات دیتابیس هم زمان هست به این صورت
10:20:03 ب.ظ
اگه میشه منو راهنمایی کنید
بانک اطلاعاتی هم اکسس هست

[ali_habibi1384]

اطلاعات دیتا بیس همزمان هست یعنی چی؟
لطفا سوالتون رو واضحتر بیان کنید.

[bobrus]

به سادگی آب خوردن

x=Time+Time
vbخودش جمع می کنه و زمان رو بهت نشون می ده البته اگه جمع زمانهات بیشتر از یک روز بشه دیگه خودت دستی کنترلش کنی بهترین روش هم اینه که همه زمانهاتو به ثانیه یا دقیقه تبدیل کنی باهم جمع کنی بعد دوباره به روز و ساعت و دقیقه تبدیل کنی
اگه با sql هم بخوای به این تاپیک یه نگاه کن
http://barnamenevis.org/forum/showthread.php?t=85985&highlight=select

[Dr.Bronx]

هم زمان نه
منظور زمان
می خوام جمع ساعت های فیلد A رو جمع کنه و در text1 نشون بده
همین

[Dr.Bronx]

کسی قصد کمک به من رو نداره
خواهش می کنم
این که فکر کنم خیلی ساده باشه

[Mbt925]

اینطور که معلومه ، نوع فیلد موردنظر شما از نوع Date/Time تعریف شده .

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





"SELECT SUM(TimeField) AS TS FROM Table1"

[Dr.Bronx]

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

[Dr.Bronx]

من تست کردم
این کد رو هم قرار دادم

Text1.Text = Adodc1.RecordSource = "SELECT SUM(TimeOut) AS TimeOut FROM dbout"
بعدش وقتی روی کلید که این کد رو توش گذاشتم کلیک می کنم مقدار رو FALSE نشون میده
اگه میشه یه برنامه نمونه قرار بدین و یا هم اون روش دیگه ای که گفتین رو معرفی کنید
ممنون از این که به این تاپیک توجه دارید
با تشکر

[Mbt925]

من تست کردم
این کد رو هم قرار دادم

Text1.Text = Adodc1.RecordSource = "SELECT SUM(TimeOut) AS TimeOut FROM dbout"بعدش وقتی روی کلید که این کد رو توش گذاشتم کلیک می کنم مقدار رو FALSE نشون میده
اگه میشه یه برنامه نمونه قرار بدین و یا هم اون روش دیگه ای که گفتین رو معرفی کنید
ممنون از این که به این تاپیک توجه دارید
با تشکر

باید به این صورت بنویسید:



Adodc1.RecordSource = "SELECT SUM(TimeOut) AS TimeOut FROM


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

[Dr.Bronx]

ببین خوب من اینو چه جوری توی یه تکست باکس نشون بدم
ببین
می خوام یک ستون که مقادیرش ساعت هست رو جمع کنم و توی یک تکست باکس نشون بدم
دیتا بیس من تیبل زیاد داره ولی دیتابیس رو که استفاده می کنم اینجوریه اگه می تونید کمکم کنید
نام تیبل = ekhtelaf
البته این query هست
چون یه عملیاتی انجام شده
بعد اسم اون ستونی که می خوام جمعش رو داشته باشم اینه
Expr1
می خوام اینا رو توی یه تکست باکس مثلا
text1
نشون بدم
ممنون می شم راهنمایی کنید

[vahidm]

ببینید این مشکلتون رو برطرف میکنه

[حسین علوی]

دوست عزیز اگه از جدول Flex استفاده میکنی دستور textmatrix(2,5) مقدار سلول 2و5 رو برمیگردونه و میتونی اونو داخل یه تکست باکس بریزی.

[Dr.Bronx]

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

[Dr.Bronx]

اوه اوه
این بنده خدا حلقه گذاشته
بابا فکر کن
هر روز روزی 4 بار و 20 نفر زمان رو ثبت می کنن
بعد بعد از یه ماه
این حلقه برای محاسبه 1 سال زمان نیاز داره که
شدنی نیست
فکر می کنم همون دستور sum بهتر باشه
اگه یکی طرز استفاده رو بگه ممنون می شم

[Mbt925]

این نمونه طرز استفاده رو نشون میده:

[حسین علوی]

دوست عزیز فکر کنم این سورس به دردت بخوره
فقط بانک رو داخل درایو c کپی کن

[vahidm]

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

[Dr.Bronx]

طلاعات دیتابیس هم زمان هست به این صورت
10:20:03 ب.ظ
اگه میشه منو راهنمایی کنید

هر روز روزی 4 بار و 20 نفر زمان رو ثبت می کنن
بعد بعد از یه ماه
این حلقه برای محاسبه 1 سال زمان نیاز داره که
چه جوری به این نتیجه رسیدی که محتویات فیلد ها تاریخ هست ؟؟؟
///===================
ولی باز هم ممنونم از این که توجه می کنید :قلب:
ببینید من همچین چیزی می خوام
به این یه نگاهی بکنید مخصوصا به دیتابیس کوئری داره
من اون کوئری رو می خوام
ممنون

[Dr.Bronx]

کسی نیست به من کمک کنه؟
اگه کمک کنید ممنون می شم

[فاطمه وطن دوست]

سلام
اینم کد:




General
Dim cnn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim ACCESSFILE As String
------------------------------------------------------------------------------------------------------
Private Sub sum_Click()
Dim STRSQL As String
Dim t1 As Date
cnn.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;data Source=" & ACCESSFILE
cnn.CursorLocation = adUseClient
cnn.Mode = adModeReadWrite
cnn.Open App.Path + "\DBE.mdb"
STRSQL = "SELECT SUM(Expr1)AS SUMExpr1 FROM ekhtelaf"
rec.Open STRSQL, cnn, adOpenDynamic, adLockOptimistic, adCmdText
t1 = Format$(rec.Fields("SUMExpr1").Value, "HH:mm:ss")
Text1.Text = t1
End Sub
------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
ACCESSFILE = App.Path + "\DBE.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ACCESSFILE
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "select * from ekhtelaf"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub





در نهایت اینکه شما باید فرمت TEXTBOX تون رو TIME در نظر بگیرید .( از طریق پنجره ی خصوصیات .)

[Dr.Bronx]

از همه دوستان مخصوصا خانم فاطمه وطن دوست - mbt925 - vahidm و آقای حسین علوی
ممنون که این مشکل رو حل کردید