Error Heterogeneous Queries en Delphi 5

[mayte mtz]

Buenas Tardes

Primeramente Feliz día de San Valentin.

Tengo un aplicación en delphi 5 y trabajo con SQL 2000.

Dentro de Delphi creo 2 objetos un Tdatabase y un TstoredProc .
Mi stored procedure en SQL fué creado de la siguiente manera:

Código SQL [-]
set ansi_nulls on
set ansi_warnings on
go
CREATE procedure sk_empleados (
   @no_empleado float                /* numero de empleado */
) as
begin
   set nocount on
   set concat_null_yields_null off
   set transaction isolation level read uncommitted
   select prettyname as nombre,cb_fec_nac as fecha_nacimiento
   from [srv-tress].tresssenda.dbo.colabora
   where cb_codigo = @no_empleado
end
GO

Mi problema es que cuando ejecuto mi aplicación en Delphi 5 me marca el siguiente error:

"Heterogeneous queries require the ANSI_NULLS and ANSI_WARNINGS options to be set for the connection. This ensures consistent q"

Si ejecuto mi Stored desde el Query Analizer trabaja perfectamente, pero en Delphi 5 no.

Me pueden ayudar para saber que me falta configurar para resolver este problema?


Gracias de antemano

Mayte Mtz

[droguerman]

Código SQL [-]
CREATE procedure sk_empleados (
   @no_empleado float                /* numero de empleado */
) as
begin
   set nocount on
   set concat_null_yields_null off
   set transaction isolation level read uncommitted
set ansi_nulls on
set ansi_warnings on
   select prettyname as nombre,cb_fec_nac as fecha_nacimiento
   from [srv-tress].tresssenda.dbo.colabora
   where cb_codigo = @no_empleado
set ansi_nulls off
set ansi_warnings off

end
GO

o mejor aun al ejecutar:

Código SQL [-]
set ansi_nulls on
set ansi_warnings on
exec empleados 1.5;
set ansi_nulls off
set ansi_warnings off