نوشته شده توسط
meh_secure
خطای اولی به خاطر باز نبودن connection است.
myRs.open
خطای بعدی هم ربطی به هندل نداره شما باید در یکی از ایونت های کنترلی که برای بانکتون ساختید(اگه اشتباه نکنم adodc استفاده کردید) ایونتی است به نام error... در اون ایونت مقدار آرگومان fcancelDisplay رو برابر true قرار بده تا دیگه این خطاها به کاربر نمایش داده نشند.
مرسی از پاسختون .
من کدی که نوشتم رو اینجا قرار میدم لطفا کمکم کنید و اگه زحمتی نیست دقیقا بگید چیکار کنم.
CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GetProfileString("DataBasePath", "C:\Program Files\Keico HighTech\PLAT64T", "PATH", App.Path & "\ FunctionKey.ini") & "\" & GetProfileString("DataBasePath", "ACU301.MDB", "PATH", App.Path & "\ FunctionKey.ini") & ";Persist Security Info=False;"
sql= "SELECT DISTINCT History.UserID, History.EventDate, Min(History.EventTime) AS MinOfEventTime, History.FuncCode INTO Tbl_QueryEnter From History GROUP BY History.UserID, History.EventDate, History.FuncCode HAVING (((History.EventDate)=#11/5/2005#) AND ((History.FuncCode)='0'))"
With Ado
.ConnectionString = CnnStr
.CommandType = adCmdUnknown
.Mode = adModeReadWrite
.CursorType = adOpenDynamic
.RecordSource = sql
.CacheSize = 1
.ConnectionTimeout = 1000
.Refresh
End With