Ver Mensaje Individual
  #3  
Antiguo 23-02-2008
schaka schaka is offline
Miembro
 
Registrado: feb 2008
Posts: 30
Reputación: 0
schaka Va por buen camino
hola que tal , bueno soy nuevo en delphi , tengo un problema , tengo un DBgrid donde muestro la informacion de una tabla y despues de realizar una busqueda me gustaria que la fila que fue seleccionada como resultado de la busqueda poder insertarla en una tabla en mysql,pero no se como recuperar la informacion de la fila seleccionada para poder insertarla en una nueva tabla, he dado un vistazo por la internet y no he encontrado nada aun, espero me puedas ayudar gracias, a continuacion muestro mi codigo de busqueda

Código Delphi [-]
procedure TFMain.Edit1Change(Sender: TObject);
var i:integer;
    palabras: TStringList;
    consulta: String;

begin
  if Edit1.Text = '' then
  begin
    consulta:='Select * from productos';
    ZQuery.close;
    ZQuery.sql.clear;
    ZQuery.sql.add(consulta);
    ZQuery.open;
  end
  else begin
    palabras := TStringList.Create;
    palabras.CommaText := Edit1.Text;
    ZQuery.close;
    ZQuery.sql.clear;
      for i:=0 to palabras.Count-1 do
      begin
      consulta:=consulta+'and Producto like "%'+palabras.Strings[i]+'%"';
      end;
    Delete(consulta,1,3);
    consulta:='Select * from productos where'+consulta;
    ZQuery.SQL.Add(consulta);
    ZQuery.Open;
  end;//else
end;
Responder Con Cita