Como crio uma função no Servidor

Delphi

06/11/2008

Bom dia a todos,

Estou precisando criar uma função no servidor no SERVIDOR.TBL onde um paramentro recebe TSQLQUERY.

O objetivo é ficar assim:

PARAMETRO.sql.add(....)

Desde ja agradeço

Silvio Coelho


Minervasoft

Minervasoft

Curtidas 0

Respostas

Aasn

Aasn

06/11/2008

Olá,

Crie a função no servidor com o parâmetro do tipo ´VARIANT *´

[]´s
AASN


GOSTEI 0
Minervasoft

Minervasoft

06/11/2008

AASN, infelismente nao deu apesar de nao apresentar erro na copilação quando executa diz que é inválido.


GOSTEI 0
Aasn

Aasn

06/11/2008

Olá,

deixe-me ver se entendi... vc quer passar uma sentença SQL como parâmetro para a função do servidor, é isso? ou vc quer passar o objeto TSQLQuery como parâmetro?

[]´s
AASN


GOSTEI 0
Minervasoft

Minervasoft

06/11/2008

No cliente ela seria assim

procedure ComplementoQuery(Tabela: TSQLQuery; Query, Complemento: String);
begin
Tabela.SQL.Text := Query;
Tabela.SQL.Add(Complemento);
end;

onde:
Tabela : é a sqlQuery;
Query : query original;
complemento : condição imposta para buscar o registro

Espero que possa me ajuda

Desde ja agradeço

Silvio Coelho


GOSTEI 0
POSTAR