Ver Mensaje Individual
  #2  
Antiguo 02-10-2006
Ade Ade is offline
Miembro
 
Registrado: jul 2006
Ubicación: Murcia
Posts: 70
Reputación: 18
Ade Va por buen camino
error en mi codigo?

asi realizo la busqueda tras pulsar el boton buscar:
Código Delphi [-]
cadena:='Select cod_proveedores,descripcion_proveedor,tipo_proveedor,telefono from Proveedores where '+PChar(Combo.text)+' Like "%'+PChar(Cadena.Text)+'%" order by '+PChar(Combo.text);
ZQuery1.Sql.Clear;
ZQuery1.Sql.Add(cadena);
y tras mostrarme los datos en el dbgrid y pulsar modificar:
Código Delphi [-]
procedure TProveedores.ModificarClick(Sender: TObject);
begin
     ZTable1.Open;
     ZTable1.Locate('cod_proveedores', ZQuery1.FieldByName('cod_proveedores').AsInteger, []);
     Ztable1.Edit;
end
podria estar ahi mi fallo??
pues el query devuelve varios registros y entonces
Código Delphi [-]
ZQuery1.FieldByName('cod_proveedores').AsInteger
no estaria fijado y por ello no puedo seleccionar la fila en el dbgrid??
si alguien pudiera ayudarme..

Gracias d etodos modos, seguire intentandolo
Saludos
Responder Con Cita