Problemas con Dataset

[alegarreta]

Hola a todos, de antemano gracias a los que amablemente brinden su ayuda. tengo el siguiente codigo en Delphi 6...
procedure TFrmHab.BtnEmpleadoClick(Sender: TObject);
begin
TblImprime.Open;
TblImprime.Edit;
TblImprime.Insert;
TblImprimeNumero.Value:=Edit1.Text;
TblImprime.Post;
TblImprime.Close;
RptContlstBempl.run //Ejecuta un reporte que se hace en Report Smith
end;

al ejecutar el programa y dar click sobre el boton me aparece un mensage de error que dice...
Table1: Dataset not in edit or insert mode

*Lo que deberia de pasar es que hace una consulta a una tabla TblImprime para sacer un reporte de determinado empleado por medio de su Numero de empleado.

a que se debe esto??...

[[Caral]]

Hola
Que es lo que quieres hacer, insertar o editar?.
Editar:

Código Delphi [-]
procedure TFrmHab.BtnEmpleadoClick(Sender: TObject);
begin
TblImprime.Open;
TblImprime.Edit;
TblImprime.FilebyName('Numero').Value:= Edit1.Text;
TblImprime.Post;
TblImprime.Close;
// RptContlstBempl.run  // no se que es esto
end;

Insertar:

Código Delphi [-]
procedure TFrmHab.BtnEmpleadoClick(Sender: TObject);
begin
TblImprime.Open;
TblImprime.Insert;
TblImprime.FilebyName('Numero').Value:= Edit1.Text;
TblImprime.Post;
TblImprime.Close;
// RptContlstBempl.run  // no se que es esto
end;

Saludos

[alegarreta]

TblImprime.FilebyName('Numero').Value:= Edit1.Text; //FilebyName no es una propiedad aceptada

[*Caro*]

Empezado por alegarreta

TblImprime.FilebyName('Numero').Value:= Edit1.Text; //FilebyName no es una propiedad aceptada

Hola alegarreta, FieldByName si es una propiedad que tiene el componenete Table, en tu codigo como te dice Caral debes poner o solo Insert (para añadir) o solo Edit(para modificar).

Saluditos

[*Caro*]

Empezado por alegarreta

.............Lo que deberia de pasar es que hace una consulta a una tabla TblImprime para sacer un reporte de determinado empleado por medio de su Numero de empleado.

Hola de nuevo, tu código no esta haciendo ninguna consulta, debes utilizar la propiedad Filter de tu Table:

Código Delphi [-]
  TblImprime.Open;
  TblImprime.Filter := 'Numero =' +Edit1.Text;
  TblImprime.Filtered := True;

Saluditos

[[Caral]]

Hola
Buena observación Caro, no lo vi.
Saludos

[alegarreta]

Es decir que deberia de ser algo asi?....

procedure TFrmHab.BtnEmpleadoClick(Sender: TObject);
begin
TblImprime.Open;
TblImprime.Insert;
TblImprime.Filter := 'Numero =' +Edit1.Text;
TblImprime.Filtered := True;
TblImprime.FilebyName('Numero').Value:=Edit1.Text;
TblImprime.Post;
TblImprime.Close;
RptContlstempl.run
end;

end

lo ejecuto con F8 y cuando me sale el error antes mencionado me pone una pflecha verde en la linea TblImprime.Post;

[[Caral]]

Hola
Creo que estas cometiendo varios errores.
El primero es saber que es lo que quieres hacer.
En principio muestras un codigo que inserta o edita.
Posteriormente indicas que quieres hacer una busqueda de un empleado.
Pregunto:
Que es EXACTAMENTE lo que quieres hacer?.
Ya que Caro te hizo un codigo para filtrar y yo para insertar o edtir.
Saludos

[alegarreta]

orale pues, tengo un formato hecho en Report Smith, y en el programa tengo una caja de texto donde se captura el numero del empleado (ej 4001) al precionar el boton imprimir debe salir el reporte con la informacion del empleado consultado, perdonen la confucion soy nuevo en Delphi