Problemas con Dataset
 

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??...

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

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

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

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

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;

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

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

Hola
Aclaro: No uso, ni se usar, Report Smith.
Para hacer un reporte se necesita enlazarlo.
Ninguna de las formas que te hemos indicado sirve para ese fin, lo que hacen es mostrar el dato.
Saludos

el enlace se hace por medio de un control que se llama TRReport, solamente le das los parametros y lo ejecutas, en el reporte ya estan definidas las relaciones con las tablas pertinentes que al fin son las a las que apunta el Ttable.

Hola
Genericamente:

Código Delphi [-]
procedure TFrmHab.BtnEmpleadoClick(Sender: TObject);
begin
 try
   RReport:=TRReport.Create(self);
   TblImprime.Open;
   TblImprime.Filter := 'Numero =' +Edit1.Text;
   TblImprime.Filtered := True;
    RReport.Preview;
   finally
   RReport.Free;
   end;

Saludos

en ese caso me abriria el reporteador con todos los registros que encuentre la consulta

Hola de nuevo, yo tampoco conocía ReportSmith, pero parece que se utilizaba con las versiones antiguas de delphi, si ya tienes enlazado el reporte con tu table TBLImprime, solo debes hacer el filtro y ejecutar tu reporte:

Código Delphi [-]
procedure TFrmHab.BtnEmpleadoClick(Sender: TObject);
begin
  TblImprime.Open;
   TblImprime.Filter := 'Numero =' +Edit1.Text;
   TblImprime.Filtered := True;
   RptContlstBempl.run;
end;

Saluditos

Si, con todos los que coincidan con Edit1.Text en tu campo Numero.

Saluditos

Bueno ya me abre el reporte pero no cambia la informacion, es decir segun el numero de empleado que ponga en la caja de texto deveria salir en el reporte pero no lo hace, habra alguna manera de pasar el dato de la caja a un registro en una tabla?, es decir tengo la table Cimp.dbf, la utilizao como filtro que tiene el campo numero, como podria pasar el dato a ese registro para que me filtre entonces cualquier numero de empleado que ingrese en la caja?

por ejemplo....

TblImprime.Open;
Tblimprime.Fields.FindField('Numero'):=Edit1.Text; <---
TblImprime.Filter := 'Numero =' + Edit1.Text;
TblImprime.Filtered := True;
RptContlstempl.run;

Hola
Creo que no muchos conocen de este reporteador.
Pregunto?.
Por que no usas QReport que viene con delphi 6.?.
Saludos

bueno es un trabajo que herede del antiguo programador, ademas no cuento con el programa en el cd de instalacion no viene, no se si sea por la licencia o algo mas.

en el reporte puse consultas sql pertinentes para el trabajo, lo que me hace falta es solamente saber como puedo pasar el valor de la caja de texto numero al valor de la tabla cimp en el campo numero, cuando se ejecute el reporte el mismo hara la consulta sobre las tablas que participan usanto a cimp como un filtro.

muchas gracias por su paciencia y su ayuda son muy atentos.

Creo que ya te ha contestado Caral con lo que quieres, mira su respuesta :)