Codigo que produce un error

[aanil]

Hola.

Te presente este codigo que funciona bien en Delphi 7

Código Delphi [-]
procedure TForm5.Edit2Change(Sender: TObject);
begin
with query2 do begin
close;
sql.Clear;
sql.Text := ' select * from tabla1 where matricula like:variable or nombres like:variable';
parameters[0].Value := '%'+edit2.Text +'%';
parameters[1].Value := '%'+edit2.Text +'%';
open;
bitbtn5.Enabled := true;
end;
end;

Este corre bien en delphi 7.

Saludos.

[aanil]

Hola

Sobre la pregunta que componente es Query1.

Es AdoQuery, lo que pasa que los bautizo como Query.

Saludos.

[Casimiro Noteví]

Qué bien, me alegro de que funcione bien

Creo que no has respondido algunas cuestiones que te han preguntado, por cierto, qué base de datos usas?

[[duilioisola]]

Creo que lo que te falta es incluir todo dentro de un with xxx do

Código Delphi [-]
with Query1 do
begin
   Close;
   SQL.Text := 'select CARNET, (NOMBRES+  " "   +APELLIDO1+  " "  +APELLIDO2) AS NOMBRES, 
   +CEDULA, FECHA_NAC AS NACIMIENTO, CLINICA  FROM SEMMA WHERE CARNET like :variable1 
   +or nombre like :variable2 or apellido1 like :variable3 or apellido2 like :variable4 or cedula like :variable5';
   parameters[0].Value := '%'+edit1.Text +'%';
   parameters[1].Value := '%'+edit1.Text +'%';
   parameters[2].Value := '%'+edit1.Text +'%';
   parameters[3].Value := '%'+edit1.Text +'%';
   parameters[4].Value := '%'+edit1.Text +'%';
   Open;
end;

También te recomendaría hacer lo que te he comentado antes.
- espacio entre like y variable.
- nombrar cada parámetro con un nombre distinto.

[aanil]

Hola Duilioisola

Gracias, lo hice asi y esta corriendo bien.

Lo de la variable siempre lo hago asi y funciona tambien.

Saludos.