Ver Mensaje Individual
  #1  
Antiguo 26-12-2014
Luigui59 Luigui59 is offline
Miembro
NULL
 
Registrado: nov 2014
Posts: 13
Reputación: 0
Luigui59 Va por buen camino
Unhappy Ayuda con Error en Query

Que tal buenas tardes, pido su ayuda con un problema al correr un Query, ya que al hacer la búsqueda la primera vez lo hace bien, pero al querer generar una nueva búsqueda me marca error "exception class EOleException with message Óbjeto Parameter mal definido. Se proporcionó información incompleta o incoherente'

Pongo la parte del código donde se realiza el Query, ojala me puedan ayudar, soy principiante en la programación con Delphi.

De antemano Gracias¡¡¡
Código Delphi [-]
        bSql := 'SELECT clave, concepto, ' +
                'unidad FROM CATALOGO WHERE CATALOGO.clave = :Clave';
        ADOQuery2.Close;
        ADOQuery2.SQL.Add(bSql);
        ADOQuery2.Parameters[0].DataType := ftstring;
        ADOQuery2.parameters.ParamByName('Clave').value := tclaves;
        ADOQuery2.Open;
        if ADOQuery2.IsEmpty then
          begin
           if ADOQuery2.active then
               ADOQuery2.Close;
//               ADOQuery2 := ADOQuery2.Create(nil);
               bSql      := ' ';
               tclaves   := ' ';
               showmessage('CLAVE NO ENCONTRADA');
               tclave.SetFocus;
           end
        else IF ADOquery2.Fields[1].asstring <> '' THEN
          begin
            descripcion.Text := ADOquery2.Fields[1].asstring;
            unidad.Text      := ADOquery2.Fields[2].asstring;
            ADOQuery2.Close;
            memo1.SetFocus;
          end;

Última edición por nlsgarcia fecha: 26-12-2014 a las 21:14:51. Razón: Sintaxis Delphi
Responder Con Cita