EMSSQLDatabaseError: Error 20002

[aad1234]

Greetings, everyone.

I am relatively new to Lazarus, and I am currently developing a desktop application in Windows 10 using Lazarus v1.8.4. I have finished most parts of the application, including SQL Server database-related modules, using the adequate information and help included in the forum and wiki, as well as the great components and libraries Lazarus has. However, one day, as I was testing my application, I encountered an exception stating the following message:

Project [Project Name] raised exception class 'EMSSQLDatabaseError' with message:
DBConnection: Error 20002:
Adaptive Server connection timed out (IP)
Adaptive Server connection failed (IP)

Upon further testing, it was determined that the error occurs whenever the application attempts to connect to the database as follows:

Code: Pascal  [Select][+][-]

1. DBConnection.Connected := True;

Prior to this, I believe no code was altered and every module performs as expected.

How do I resolve this issue?

Thank you very much.

[nouzi]

you can try this code

Code: Pascal  [Select][+][-]

1.  
2. try
3. .....
4.    DBConnection.Connected := True;
5. .....
6. Except  
7.    on E:Exception   do    //EDatabaseError
8.    
9.           ShowMessage('can not connection server ' + #13#10 + E.Message)   ;
10.  
11.   else
12.          ShowMessage('err unknown' );
13.  
14.  
15. end;
16.    
17.  
18.  
19.  

[Zvoni]

Is the MS SQL-Server remote or localhost?

EDIT: Everything i found points to wrong Version of FreeTDS

[aad1234]

Thank you for your response. I've tried nouzi's solution, to no avail.

The MS SQL-Server is remote.

The wrong version of FreeTDS is also something I'm considering. Might I have some further guidance on this?

Thank you very much!

[Zvoni]

https://stackoverflow.com/questions/11721403/read-from-the-server-failed-when-trying-to-connect-to-sql-azure-from-tsql