Devart Forums

Error Class: EAssertionFailed
Error Message: Assertion failure (D:\Projects\Delphi\Mydac\Source\MyAccess.pas, line 3684)

When I log Error on my application I receeived this error

Someone has idea???

You should give more details. Your description is realy vague.
What is :
- your mydac version,
- your mysql version ,
- your delphi version (+ sp ?)

You should also provide a small sample.

MyDac version 5.0.4
Delphi 2006 +SP2
MySQl 5.037

; Myaccess.TCustomMyTable.AfterOpenCursor (Line=0 - Offset=0)
; -----------------------------------------------------------
0125F23E mov eax, $0125F378 ; 'Assertion failure'
0125F243 call System._Assert
0125F248 mov eax, ebx
0125F24A call Myaccess.TCustomMyDataSet.GetConnection
0125F24F call Myaccess.TCustomMyConnection.IConnection
0125F254 test eax, eax
0125F256 jnz Myaccess.TCustomMyTable.AfterOpenCursor
0125F258 mov ecx, $00000E64 ; ''...
0125F25D mov edx, $0125F340 ; 'D:\Projects\Delphi\Mydac\Source\...
0125F262 mov eax, $0125F378 ; 'Assertion failure'
0125F267 call System._Assert ; <-- EXCEPTION
0125F26C mov eax, ebx
0125F26E call Myaccess.TCustomMyTable.GetOptions
0125F273 cmp byte ptr [eax+$38], $00
0125F277 jz Myaccess.TCustomMyTable.AfterOpenCursor
0125F279 mov eax, ebx
0125F27B call Myaccess.TCustomMyDataSet.GetConnection
0125F280 call Myaccess.TCustomMyConnection.IConnection
0125F285 call Myclasses.TMySQLConnection.GetIsClient41
0125F28A test al, al
0125F28C jz Myaccess.TCustomMyTable.AfterOpenCursor

I found where is the problem

Try
s := '12' //Employee id

If TblEmploye.locate('EmplId',StrToint(s),[] ) then
sName := tblEmployeFullname.asString;

I Don't know why but when i used this function i have this problem

Daniel Fagnan

We couldn't reproduce the problem.
Please send us (evgeniym*crlab*com) a complete small test project to reproduce the problem; include definition of your own database objects; don't use third party components.