TQuery con parámetro

[ecfisa]

Hola bulc.

Empezado por bulc

Pero, ¿no tengo que ajustar el parámetro en la propiedad Params del Query? Es por donde estaba hurgando...
Quiero decir; ¿ no se deben establecer los Parámetros con antelación (en diseño o en runtime)?

Si por supuesto.

Empezado por bulc

¿Quito el Provider y el ClientDataSet ?

Para lo que deseas hacer no son necesarios.

Como te dijo Casimiro, es muy sencillo de realizar con ambos componentes.

Usando TIBQuery:

Código Delphi [-]
...
begin
  ...
  with IBQuery1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM WB WHERE ITEM STARTING WITH :cInicial'; 
    ParamByName('cInicial').AsString := cIni;
    Open;
  end;
end;

Usando TIBDataSet:

Código Delphi [-]
begin
  ...
  with IBDataSet1 do
  begin
    Close;
    SelectSQL.Text := 'SELECT * FROM WB WHERE ITEM STARTING WITH :cInicial';
    ParamByName('cInicial').AsString := cIni;
    Open;
  end;
end;

La ventaja del TIBDataSet es que dando valor a la propiedad SelectSQL en diseño, te permite usar la herramienta DataSetEditor, con la que podrás generar con muy poca intervención las sentencias para insertar, modificar y borrar datos. Esto no es así para el TIBQuery donde tendrás que definir las sentencias manualmente.

También remarco la sugerencia que te hizo Casimiro en otro mensaje sobre revisar el tutorial del amigo Caral: Tutorial

Saludos.

[bulc]

Gracias, Ecfisa. Realmente ese tutorial no me resulta adecuado. Lo doy por superado. Pero agradezco tu empeño y aclaración.
Estoy dando un repaso a los libros. Ojalá fueran de papel... pero sigo adelante. Más pronto que tarde daré con la solución. Seguro.
Hasta pronto, amigos.
Bulc-anizado

[Casimiro Noteví]

Empezado por bulc

Gracias, Ecfisa. Realmente ese tutorial no me resulta adecuado. Lo doy por superado. Pero agradezco tu empeño y aclaración.

Para nada, amigo, si dices eso es que no has visto el tutorial

[bulc]

Empezado por Casimiro Notevi

Para nada, amigo, si dices eso es que no has visto el tutorial

Exiten dos tipos de acceso a Parámetros, en diseño y con código. Para usarlos en diseño se recurre a la propiedad Params del Query. Se abre su editor y
aparece su ventana. Debemos asignar Type: String; Nombre del Parametro: INI y su valor Unknown. Luego en código podemos hacer referencia a él a
través de QueryX.Params[0] asignandole el valor actual. Previo a esto debemos cerrar el query(Close), limpiarlo Query.Clear, asignar el parámetro Params[0].Value:=cXX, asignar al SQL statement "SELECT campos FROM table WHERE campo = :INI ".
Al abrir de nuevo el query se le asignará es valor del select parametrizado. No debemos olvidar si el valor del Query pasa a un ClientDataset de cerrar y abrir este también para que se renueven los datos que este último envía al DataSource que a su ve los pasa al DBGrid.
Si es por código debemos usar un valor más exacto al parámetro, para ello nos apoyamos en un campo explícito. Para esto usamos la localización del parámetro. Query1.ParamByName('ParamName').AsMoldeador:='ValorActuall';
Pero, y a pesar de la teoría, no funciona. Tampoco da error. En mi caso el Query carga todos los registros con la cual, despues de un momento, el ClientDataSet da el error 'Infufcient Memory for this Operation".
Fíjate en esto. Coloco un TTabControl con todas las letras del alfabeto. Lo uso y se puede acceder 'A TODA LA TABLA' por la letra que se elija.
Tiene que haber algún pequeño (o gran) error que impide usar el parámetro. Usaré el debugger hasta dónde yo sé y luego como plan b. Usaré dos dbGrid
separando uno para el Query y otro para el ClientDataSet. En fin, que ya caeré del burro. Tranquilo, Casimiro. Y deja de poner en duda lo que te digo, por favor. Trabajo en equipo. Excusas si causo un conflicto.
Por cierto, las subpropiedades de la Prop. Params del Query me dejan un poco al pairo. ¿Se pueden explicar aqui?
Gracias por todo.

[Casimiro Noteví]

¿Estás usando el código que te ha puesto ecfisa?

[bulc]

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;

[ecfisa]

Empezado por bulc

Por cierto, las subpropiedades de la Prop. Params del Query me dejan un poco al pairo. ¿Se pueden explicar aqui?

Hola bulc.

A ver si puedo aclarar un poco el asunto...

Los parámetros se definen en la consulta y siempre se escriben precedidos por dos puntos ':'. La consulta se puede asignar en tiempo de diseño o en tiempo de ejecución.

Si en tiempo de diseño, desde el Object Inspector, asignamos a la propiedad SQL el valor:

Código SQL [-]
SELECT * 
FROM TABLA
WHERE NAME = :PNAME

Se habrá creado un parámetro llamado "PNAME", cosa que podes comprobar desde el mismo Object Inspector haciendo click sobre los '...' de la propiedad Params.

Habiendo sido creada la consulta y su parámetro, se puede llamar bién por su propiedad vectorial Params:

Código Delphi [-]
  with IBQuery1 do
  begin
    Close;
    Params[0].AsString := Edit1.Text;
    Open;
  end;

O bién mediante el método ParamByName:

Código Delphi [-]
  with IBQuery1 do
  begin
    Close;
    ParamByName('PNAME').AsString := Edit1.Text;
    Open;
  end;

De otro modo, si consulta y parámetro son creados en tiempo de ejecución, se deben especificar ámbos.

Mediante la propiedad vectorial Params:

Código Delphi [-]
  with IBQuery1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM TABLA WHERE NAME = :PNAME';
    Params[0].AsString := Edit1.Text;
    Open;
  end;

Mediante el método ParamByName:

Código Delphi [-]
  with IBQuery1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM TABLA WHERE NAME = :PNAME';
    ParamByName('PNAME').AsString := Edit1.Text;
    Open;
  end;

Existe un tercer modo de acceso a los parámetros y es mediante la propiedad ParamValue:

Código Delphi [-]
  with IBQuery1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM TABLA WHERE NAME = :PNAME';
    Params.ParamValues['PNAME'] := Edit1.Text;
    Open;
  end;

Por último cabe acotar que si existe una definición de consulta/parámetros en tiempo de diseño, al asignar una nueva definición de consulta/parámetros en tiempo de ejecución, se sobreescribirá lo realizado en tiempo de diseño.

Saludos.

[bulc]

Gracias, Ecfisa por tu explicación. Al final he conseguido que funcione gracias a vuestra ayuda. Opté por usar el parámetro en tiempo de diseño y como
te comento (después de hurgar con el tipo entrada-salida), funcionó.
Posteriormente lo pasé todo a runtime, por código.
Un abrazo,
Bulc