12 respuestas en este tema

[Ace-Cathedral]

Buen dia...

Aunque he visto que no se maneja mucho el informix por aqui, quisiera preguntar si alguien sabe si puedo conectar Delphi 2009 con Informix usando ADO en una aplicacion de varias capas...

Y si es mas rapido que DBExpress...

Saludos...

[poliburro]

Tengo entendido que Informix te proporciona un proveedor nativo OleDb lo que de ser cierto lo harí­a más rápido que DbExpress.

Saludos.

[Ace-Cathedral]

OK... Gracias por la respuesta...

De hecho si hay un proveedor OLE DB... Intentare hacer unas pruebas para checarlo...

Saludos...

[poliburro]

Suerte y ojalá puedas comentar los resultados de las pruebas.

Suerte

[Ace-Cathedral]

Asi lo hare... Saludos

[root]

y en que quedo ???

si se puede o no se puede  ??

navegas o vuelas por la base de datos ??

[Ace-Cathedral]

Buen dia...

He logrado hacer la conexion usando ADO, pero quiero manejar 3 capas usando Datasnap de Delphi 2009...

Repito, la conexion si se realiza en la capa intermedia... Pero en la capa cliente no puedo visualizar los datos de una consulta... Supongo que quiere decir que no se puede usar ADO con Datasnap???...

Use DBExpress y funciona a la perfeccion...

Sera entonces que no son compatibles ADO y Datasnap... Seguire intentando...

Saludos...

[poliburro]

el cliente al realizar la consulta usando ADO e Informix te muestra algún error?

[Ace-Cathedral]

En efecto, en el servidor de aplicaciones puedo realizar bien la conexion y la consulta al activar el ADODataset funciona....

sql

SELECT * FROM Tabla

Pero a la hora de ejecutar la consulta usando un ClientDataset desde el cliente me marca el siguiente error: Remote error: Unexpected metadata type...

A que se refiere ese error?

[Ace-Cathedral]

Siguiendo con este tema...

El escenario es el siguiente:

Tengo esta funcion de informix:

sql

CREATE PROCEDURE informix.capturarvalor ( entrada VARCHAR(30) )
RETURNS INTEGER
DEFINE salida INTEGER;
SELECT valorcampo INTO salida FROM tabla
WHERE nombre = entrada;
RETURN salida;
END PROCEDURE

Como capturo el valor de la variable "salida" desde delphi?

Gracias de antemano y saludos...

[Ace-Cathedral]

Buen dia...

Le estuve moviendo a este asunto de delphi con informix y ha costado un poco de trabajo...

Por si alguien esta interesado les digo como realizo las cosas en el sistema...

Las consultas las tengo en la capa intermedia y utilizo un TSQLDataSet...

Los procedimientos almacenados tambien los ejecuto desde un TSQLDataSet con la instruccion execute procedure nombre(parametros)... Esto porque no me funcionaron los TSQLStoredProc...

Entiendo por lo que he investigado que el funcionamiento depende mucho de la forma en que esta configurada la BDD... Pero en fin, hasta el momento asi es como me funciona...

Ahora la aplicacion que estoy haciendo de repente me sale el error "Remote error: Connection name in use"... Alguien sabe a que se refiere?... O que puedo hacer?...

Saludos...

[Wilson]

Siguiendo con este tema...

El escenario es el siguiente:

Tengo esta funcion de informix:

sql

CREATE PROCEDURE informix.capturarvalor ( entrada VARCHAR(30) )
RETURNS INTEGER
DEFINE salida INTEGER;
SELECT valorcampo INTO salida FROM tabla
WHERE nombre = entrada;
RETURN salida;
END PROCEDURE

Como capturo el valor de la variable "salida" desde delphi?

Gracias de antemano y saludos...

Aunque no se nada de Informix te voy a comentar como  hago algo parecido  con firebird:
Primero que todo no olvides poner la siguiente directiva de compilación  en el  módulo del servidor para que los métodos públicos puedan ser vistos en el lado cliente:

delphi

type
  {$MethodInfo ON}
  TMiModulo = class(TDSServerModule)

luego declaro la función en public

delphi

  public
  function CapturarValor(Entrada: string):Integer;

La implementacion (con un StoreProcedure de dbExpress que apunta al procedimiento 'Informix.CapturarValor', que automaticamente deberí­a cargar los parámetros de la DB):

delphi

function CapturarValor(Entrada: string):Integer;
begin
  MiStoreProcdure.ParamByName('Entrada').AsString := Entrada;
  MiStoreProcedure.ExecProc;
  Result := MiStoreProcedure.ParamByName('Salida').AsInteger;
end;

Ahora en el lado cliente llevamos desde dbExpress un TSQLServerMethod que apunte en su propiedad ServerMethodName a: TMiModulo.CapturarValor, en GetMetadata := False y obviamente SQLConecction a la respectiva conexión.

Para ejecutarlo en el lado cliente hacemos lo siguiente:

delphi

function CapturarValorEnCliente(Entrada:String):Integer;
begin
MiTSqlServerMethod.Params[0].asString := Entrada;
MiTSqlServerMethod.ExecuteMethod;
Result := MiTSqlServerMethod.Params[1].asInteger;
end;

Espero te sirva de algo.
Saludos.

[Ace-Cathedral]

Muchas gracias por la respuesta Wilson...

Tienes razon, de hecho asi lo hago con Firebird y funciona...

El problema con Informix es precisamente que el TSQLStoredProc no carga todos los parametros automaticamente... Es decir, si mi procedimiento almacenado tiene 3 parametros solo me carga el primero, los otros dos no los toma en cuenta... Entonces procedo a ponerselos manualmente, pero me marca error al ejecutarlo porque solo toma en cuenta el primer parametro...

Por eso mismo uso un TSQLDataSet como query y en su propiedad CommandText le pongo

sql

EXECUTE PROCEDURE MiProcedimiento(:parametro1, :parametro2, :parametro3)

Asi si me carga los parametros y me funciona bien...

Es un poco raro, pero asi funciona...

Saludos...