Ver Mensaje Individual
  #15  
Antiguo 25-05-2013
Avatar de bulc
bulc bulc is offline
Miembro
 
Registrado: jun 2010
Posts: 416
Reputación: 17
bulc Va por buen camino
IBQuery con parámetro; solucionado

Aprovechando tu tesón hice una prueba creando el Parametro usando la prop. Params en diseño. Después de toquetear con el InputOutput, funcionó.
Así que la pasé a código en runtime. Tenía un error de entrada. La recogida del dato estaba vacía. Puse un InputQuery y ya funciona.
Este es mi código final. Un poco pardillo, pero funciona.
Os quería hacer una pregunta que para mi tiene mucha importancia. Veréis. En la interface de mi tabla es importante que se vea un gráfico con cada registro. Para no consumir recursos uso la selección de los registros por letra inicial. Va bien, pero en el supuesto de muchos registro me gustaría poder
ver los registro de cien en cien o de 50 en 50. ¿Qué sistema es el más usado, el de letra o el de una cantidad x de registros?.
Y por otra parte os pongo un sobresaliente, y os agradezco vuestra paciencia con un latoso como yo.
Código Delphi [-]
procedure TPictures1.BitBtnBusca2Click(Sender: TObject); //Parameter
Var
cINI : String ;
begin
InputQuery('Introduzca la letra inicial: ', 'Letra:', cIni );
//Try to use Parameters:
   IBQuery1.Close;
   cIni:=trim(cINI);
   ShowMessage('Letra  : ' + cINI ); //Control de la entrada. Provisional
   ClientDataSet1.Active:=False; //. Close válido.

   IBQuery1.SQL.Clear;
   IBQuery1.SQL.Add('SELECT * FROM WB WHERE ITEM STARTING WITH :INI  ');
   //IBQuery1.ParamByName('INI').AsString:= cINI ; //Válido
   IBQuery1.Params[0].Value := cINI ;  // Válido

   IBQuery1.Open;
   ClientDataSet1.Active:=True;
 end;

Última edición por bulc fecha: 25-05-2013 a las 19:41:28. Razón: Olvidé el título
Responder Con Cita