sum

[nsa_a2121@yahoo.com]

سلام
Dim DBTable As String
DBTable = bo1.Text
Ad4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D7.mdb"
Ad4.RecordSource = "select Sum(Datasum) as Sum FROM [" & DBTable & "]"
Ad4.Refresh
Text4.Text = Ad4.Recordset.Fields("Sum")
می شه با این کدی که من دارم فیلد datasumo جمع کرد تو text4 نشون داد
اگه می شه اشکالشو بهم بگین

[ajlajlajl]

فکر کنم یه مشکلش استفاده از کلمه sum برای نامگذاری هست. اسم تابع ها و بعضی کلمات ذخیره شده رو که بگذارید روب فیلدا فکر کنم اشکال بگیره.

[red11011]

کد:

Dim DBTable As String
DBTable = bo1.Text
Ad4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D7.mdb"
Ad4.RecordSource = "select Sum(Datasum) as Sum FROM [" & DBTable & "]"
Ad4.Refresh
Text4.Text = Ad4.Recordset.Fields("0")

این رو یک امتحانی بکن فقط خط اخرش رو تغییر دادم

[nsa_a2121@yahoo.com]

بازم نشد
ad4.refresh
ارور میده
Method 'Refresh' of object 'IAdodc' Failed
چیکار دیگه می تونم بکونم؟