shafie-rayaneh
سه شنبه 17 شهریور 1394, 11:26 صبح
سلام خسته نباشید
من کد جمع زدن رو مینویسم ولی نمیدونم چرا ارور میده کدی که مینویسم اینه
Dim rs As New adodb.Recordset
Dim PriceSum As Currency
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Rastin Plast\RastinPlastTemp.mdb;Persist Security Info=False"
rs.Open "Select SUM(M_Kol)as PriceSum From TBL1"
If Not rs.EOF Then PriceSum = rs!PriceSum
Text1.Text = rs.Fields("PriceSum")
اروری که میده اینه
object requered
و بعدش توی کد ها cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Rastin Plast\RastinPlastTemp.mdb;Persist Security Info=False"رو نشون میده
ممنون میشم راهنمایی کنید
من کد جمع زدن رو مینویسم ولی نمیدونم چرا ارور میده کدی که مینویسم اینه
Dim rs As New adodb.Recordset
Dim PriceSum As Currency
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Rastin Plast\RastinPlastTemp.mdb;Persist Security Info=False"
rs.Open "Select SUM(M_Kol)as PriceSum From TBL1"
If Not rs.EOF Then PriceSum = rs!PriceSum
Text1.Text = rs.Fields("PriceSum")
اروری که میده اینه
object requered
و بعدش توی کد ها cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Rastin Plast\RastinPlastTemp.mdb;Persist Security Info=False"رو نشون میده
ممنون میشم راهنمایی کنید