8 replies to this topic

[ags88]

Hola buen dia tengan todos soy nuevo publicando por aqui, aunque siempre visito sobre algunas dudas delphi pero hoy me encuentro con un problema espero y puedan ayudarme? estoy realizando una pequeña aplicacion donde ise mi coneccion a mi base de datos en SQl server utilizando componenntes TADOconecction, ADOquery,Adodataset y datasource y me funciona perfectamente.
ahora tengo una tabla llamada empleados mi intencion es manipular mi tabla con la aplicacion, insertaR, modificar, eliminar, etc.
ya logre insertar registros, estoy utilizando un bdgrid para mostrar mis datos que inserto en la tabla ahora lo que quiero es buscar un registro mediante un boton y que me lo muestre en el dbgrid por ejemplo:
 
si busco en mi tabla empleados el nombre: pedro perez alegria me debe mostrar en el dbgrid 1 registro con ese nombre o los nombres que ayan en la tabla que coincidan con lo que yo estoy escribiendo. repito sea mediate un boton. ya intente de todo tengo este condigo funciona pero no me muestra nada en el dbgrid. porfavor les agradeceria su ayuda. gracias

delphi

//esto esta dentro de un edit.text
procedure TForm2.Edit2Change(Sender: TObject);
begin
     if Edit2.Text<>'' then
  with ADOQuery1 do
  begin
     SQL.Text:='select * from a_empleado where nombre like'+QuotedStr('%'+Edit2.Text+'%')+' ; ' ;
     Open;
 
  end;
end;

[edorantes]

Supongo que se lo puedes mandar como parametro el edit
prueba asi

delphi

if Edit2.Text<>'' then
  with ADOQuery1 do
  begin
   //pondremos un parametro llamado nombre
     SQL.Text:='select * from a_empleado where nombre like :nombre ' ;
     ParamByName('nombre').AsString := '%'+Edit2.Text+'%';
     Open;
  end;

[ags88]

Muy amable de tu parte //edorantes  boy a probar espero que ya encuentre resultados gracias.

[ags88]

no e podido resolver mi problema con el codigo me presenta un error por que antes de parambyname va un componente y ya probe con
adoqery y con adodataset ninguno de los dos acepta.

[poliburro]

Un par de preguntas amigo,

ya ligaste el Dbgrid al Adoquery?

¿Podrías pegar el código que estás usando ahora?

[ags88]

este codigo estoy utilizando no me muestra ningun error pero no me sale ningun resultado, va dentro de un edit.text
en la casa de texto si escribo la letra j en teoria me deveria mostrar todos los nombres con esa letra pero no sale nada

delphi

procedure TForm2.Edit2Change(Sender: TObject);
begin
 if Edit2.Text<>'' then
 
   with ADOQuery1 do
   begin
   Close;
   SQL.Text:='select * from a_empleado where id_empleado like'+quotedstr('%'+Edit1.Text+'%')+' ; ';
   Open;
 end;
 
 
 
 
 
 
end;

[poliburro]

Ok vamos por pasos.

Agrega a tu formulario un TDataSource y en su propiedad DataSet ligalo al Adoquery, luego coloca un dbgrid y en su propiedad datasource ligalo al Datasource.

Hecho  lo anterior da click en tu botón y dinos que sucede.

[ags88]

Poliburro Muchas gracias por tu solucion me funciona bien mi aplicacion ya va agarrando forma me faltan agregar mas botones y mas funciones apenas estoy programando y sobre todo en delphi me a costado mucho pero hay boy espero en alguna otra duda que tenga puedan asesorarme les agradesco saludos desde Ocozocoautla, chiapas, mexico.

[poliburro]

Poliburro Muchas gracias por tu solucion me funciona bien mi aplicacion ya va agarrando forma me faltan agregar mas botones y mas funciones apenas estoy programando y sobre todo en delphi me a costado mucho pero hay boy espero en alguna otra duda que tenga puedan asesorarme les agradesco saludos desde Ocozocoautla, chiapas, mexico.

Mi estimado amigo, cuenta con nosotros en todas las dudas que tengas. Un saludo desde el DF. Je