Ver Mensaje Individual
  #10  
Antiguo 05-10-2010
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 915
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Amigo existen varias formas de realizar consultas parametrizadas, aqui algunas:

Cuando en una consulta escribes un parametro debe ir precedido de dos puntos, como lo indico Caral.

Forma 1:
Código Delphi [-]
begin
       QMovimiento.Close;
       QMovimientos.SQL.Add('Select No from TMovimieno_Contabilidad where No = :TUDato'); 
       {:TUDato es un parametro, ahora debes tener cuidado si el parametro
es Numero o texto}
       //Para Numero     
       QMovimientos.ParamByName('TUDATO').AsInteger:=10;
       //Para Texto
      QMovimientos.ParamByName('TUDATO').AsString:=QuotedStr('Valor');
       QMovimientos.Open;

       {En este caso lo que se requiere es saber si hay registros que cumplan la condicion del filtro y para ello usas el contador de registros de la consulta
RecordCount te devuelve el numero de registros que tiene QMovimientos.}

       If (QMovimientos.RecordCount=0) Then
          ShowMessage('No Existen registros para la consulta')
       else 
          ShowMessage('Si hay registros para la cosulta');
       QMovimientos.Close;

Forma 2:
Código Delphi [-]
begin
       QMovimiento.Close;
       QMovimientos.SQL.Add('Select No from TMovimieno_Contabilidad where No = '+IntToStr(10));
       //Esto quedaria asi:
      //Select No from TMovimieno_Contabilidad where No = 10;

       QMovimientos.Open;

       If (QMovimientos.RecordCount=0) Then
          ShowMessage('No Existen registros para la consulta')
       else 
          ShowMessage('Si hay registros para la cosulta');
       QMovimientos.Close;

Bueno eso por ahora...Espero te aclare un poco la pelicula

Saludos
Responder Con Cita