Ver Mensaje Individual
  #1  
Antiguo 06-01-2006
JOTAAB JOTAAB is offline
Registrado
 
Registrado: dic 2005
Posts: 9
Reputación: 0
JOTAAB Va por buen camino
Question Como Utilizar La Funcion Desc Para Hacerla Parte De Un Query

SI ALGUIEN PUDIERA AYUDARME EN LO SIGUIENTE SE LO AGRADECERE MUCHO.

LO QUE NECESITO ES UTILIZAR LA FUNCION DESC DE ORACLE COMO PARTE DE UN QRY PARA CONDICIONAR EL TAMAÑO DEL CAMPO EN DELPHI , PARA QUE EL USUARIO NO ESCRIBA MAS CARACTERES DE LO PERMITIDO Y PARA FACILITAR EL MANTENIMIENTO DE LA APLICACION SIN NECESIDAD DE MODIFICAR LA PANTALLA DE CAPTURA Y PARA HACER LAS COSAS MAS RAPIDO

INTENTE LO SIGUIENTE PERO NO FUNCIONA

procedure TFORM1.FormShow(Sender: TObject);
var QryConsulta:TSQLQuery;
begin
QryConsulta:=TSQLQuery.Create(nil);
with QryConsulta do
Begin
SQLConnection:=DATAMOD.CONEXION;
sql.Clear;
sql.Add('desc ESQUEMA1.TABLAPRUEBAS');
Open;
//SI EL CAMPO BUSCADO SE LLAMA OBSERVACIONES ENTONCES
if trim(Fieldbyname('Nombre').AsString)='OBSERVACIONES' then
Begin
//COPIA EL TAMAÑO DEL CAMPO
Memobservacion.MaxLength:=strtoint(copy(trim(Fieldbyname ('Nombre').AsString),10,4));
End
Else
next;
End;
QryConsulta.free;
end;

AGRADECERE MUCHO SUS COMENTARIOS.
PD. GRACIAS A TODO EL FORO
Responder Con Cita