GNADE User's Guide: GNADE, The GNat Ada Database Environment; Version 1.5.0; Document Revision $Revision: 1.42 $ | ||
---|---|---|
Prev | Chapter 12. Building Applications using ESQL | Next |
Since the ESQL support package creates some diagnostic printouts it may be interesting to redirect these messages towards any destination. This might be done by overloading the type Connection_Type of the GNU.DB.ESQL_Support.ODBC package and providing implementations of the Error, Warning and Connect procedures.
Example 12-2. Redirecting ESQL diagnostics
package Dynamic_Connect is type My_Connect_Type is new ODBC.Connection_Type with record .... your extensions ..... end record; procedure Error( C : in My_Connect_Type; T : in String ); procedure Warning( C : in My_Connect_Type; T : in String ); function Connect( Source : in String; UserName : in String; Password : in String ) return ODBC.Connection_Handle; end Dynamic_Connect;
The implementation might be found in samples/esql.