Problemas al insertar en una tabla

[roman]

Visto por encima hay algo raro: tanto en Form9 como en Form23 tienes una componente llamada Tabla_clientes. Cuando abres Form23 el Tabla_clientes es el del Form9 mientras que el Post que haces en Form23 es el de su propia Tabla_clientes. Esto no está bien, tienes que usar la misma componente.

Si este es el error, y creo que así es, te recomiendo el uso de módulos de datos (DataModule) para colocar tus componentes TTable que vayas a usar desde distintos formularios.

// Saludos

[vhirginia]

Hemos cambiado una cosa, y es que teníamos declaradas en cada Form la tabla y el datasource, y ahora suponemos que hay que usar siempre el mismo. De todas formas, al ejecutar, nos ha dado el siguiente error:
Proyect Proyecto.exe raised exception class EDatabaseError with message "Tablaclientes:dataset not in edit or insert mode". Process stopped.

[jachguate]

Empezado por vhirginia

ahora suponemos que hay que usar siempre el mismo.

Bueno... esa suposición es correcta y lógica, no te parece??

El error que te está dando, indica que al hacer post, la tabla no está en modo de inserción/edición.

Si mantenes algo de la estructura anterior, te valdria con:

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
  Form23.Visible:=true;
  Form9.Visible:=False;
  Form23.Tabla_clientes.Insert;
end;

Hasta luego.

[roman]

Empezado por vhirginia

Hemos cambiado una cosa, y es que teníamos declaradas en cada Form la tabla y el datasource, y ahora suponemos que hay que usar siempre el mismo. De todas formas, al ejecutar, nos ha dado el siguiente error:
Proyect Proyecto.exe raised exception class EDatabaseError with message "Tablaclientes:dataset not in edit or insert mode". Process stopped.

Bueno, pero ahora la cosa ha cambiado y las descripciones anteriores quizá no sean suficientes. ¿Cómo quedó el código luego del cambio? No publiques todo, basta lo referente a Form9 y Form23 (es decir no todos los eventos Click) y si agregaste un DataModule o no.

El error lo manda cuando intentas modificar los campos de una tabla que no está ni en modo de edición (luego del Edit) ni en modo de inserción (luego de Append o Insert).

// Saludos

[vhirginia]

Ahora es este nuestro nuevo código, en la unidad que tiene todo:

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
Form23.Visible:=true;
Form9.Visible:=False;
Tabla_clientes.Insert;
end;

procedure TForm9.Tabla_clientesAfterPost(DataSet: TDataSet);
begin
Tabla_clientes.FlushBuffers;
end;

y en la unidad de insertar :

procedure TForm23.Button1Click(Sender: TObject);
begin
Form9.Tabla_clientes.Post;
Form23.Visible:=false;
Form24.Visible:=true;
end;

[roman]

¿Y en qué línea te marca el error?

// Saludos

[vhirginia]

No nos da la línea del error,sólo nos dice que la tabla de clientes no esta en insert o edit mode.
Muchas gracias

[vhirginia]

Ya hemos solucionado nuestros problemas con las tablas, muchas gracias.Le queríamos comentar a jachguate :
-Todavía no tenemos tu nivel de conocimientos de delphi,pero muchas gracias por el recochineo de tus comentarios

[guillotmarc]

Empezado por vhirginia

No nos da la línea del error,sólo nos dice que la tabla de clientes no esta en insert o edit mode.

Pues lo dice muy claro. En esa tabla no has hecho el Insert. O el Insert lo has hecho en otra tabla (quizá con el mismo nombre pero en otro formulario), o bien no has ejecutado el código que debería hacer el Insert.

Saludos.

[guillotmarc]

Hola.

Solo un consejo, este código es muy dificil de mantener y entender. Ponle nombres a los componentes, y evita el acceder a los componentes de otros formularios.

En lugar de Form9 y Form23, llámalos frmClientes y frmProductos, y en lugar de BitBtn1 y Button1 llámalos btnInsertar y btnGuardar. O algo parecido, verás como entonces el código se entiende mucho mejor.

Además accedes directamente a las propiedades y componentes de un Formulario desde otros. Esto puede ser un gran problema cuando el programa sea muy grande, puesto que cuando debas modificar un formulario, no sabes en cuantos otros sitios te va a afectar. Para eso se inventó la modularidad, lo que hay dentro de un formulario solo lo debe tocar él mismo. Si otros formularios necesitan algo, declara un función pública para que la llamen, y programa el código en esa función (que estará en el mismo formulario).

O sea donde pones :

procedure TForm23.Button1Click(Sender: TObject);
begin
Form9.Tabla_clientes.Post;
Form23.Visible:=false;
Form24.Visible:=true;
end;

Seria mejor algo como :

procedure frmProductos.btnGuardarClick(Sender: TObject);
begin
  frmClientes.Guardar;
  Visible := false;
  frmPrincipal.Mostrar;
end;
/* La próxima función estará definida publicamente en frmClientes (antes Form9) */
procedure frmClientes.Guardar;
begin
  TablaClientes.Post;
end;
/* La próxima función estará definida publicamente en frmPrincipal (antes Form24) */
procedure frmPrincipal.Mostrar;
begin
  Visible := True;
end;