Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   No visualizo registros insertados por codigo (https://www.clubdelphi.com/foros/showthread.php?t=61821)

j_flores3000 23-11-2008 22:19:59

No visualizo registros insertados por codigo
 
Resulta que estoy insertando en un dbgrid registros por codigo, osea su valor. El registro se agrega pero en el bdgrid no se visualiza ninguno de los valores que le coloque.
[delphi]
With DataModule2 do Begin
QVentas.Open;
QVentas.Insert;
QVentas.FieldByName('IDPRODUCTOS').AsString := DBEdit4.Text;
QVentas.FieldByName('IDCLIENTE').AsString := DbEdit1.Text;
QVentas.FieldByName('IMPORTETOTAL').AsFloat := StrToFloat (DBEDit3.Text);
QVentas.FieldByName('ATENDIDO').AsString := DBedit5.Text;
QVentas.Post;
end;[
/DELPHI]
Esta bien pasarle los valores asi?

Caral 23-11-2008 22:29:21

Hola
Supongo que el dbgrid esta enlazado a un datasource que esta enlazado a QVentas, que parece un table?.
Supongo que los dbedit estan enlazados a otro table?.
Me gustaria saber que base de datos usas y con que componentes la enlazas?.
Saludos

j_flores3000 23-11-2008 22:31:39

Uso componentes TQuery, y si estan todos enlazados, uso base de datos paradox, BDE.

Caral 23-11-2008 22:35:14

Hola
Bueno, sigo sin saber.
Los DBedit estan enlazados a una tabla y QVentas a otra?.
Son dos tablas diferentes?.
Saludos

j_flores3000 23-11-2008 22:38:36

No esta todo enlazado a QVentas, pero los datos si los toma de otra tabla. Qventas esta enlazado a la tabla ventas, y los componentes tambien. Ahora el unico dato que si se puede visualizar es el de Atendido (donde aparece un nombre del empleado.)

Caral 23-11-2008 23:20:06

Hola
Sigo sin entender:
Código Delphi [-]
With DataModule2 do Begin
QVentas.Open;
QVentas.Insert;
QVentas.FieldByName('IDPRODUCTOS').AsString := DBEdit4.Text;
QVentas.FieldByName('IDCLIENTE').AsString := DbEdit1.Text;
QVentas.FieldByName('IMPORTETOTAL').AsFloat := StrToFloat (DBEDit3.Text);
QVentas.FieldByName('ATENDIDO').AsString := DBedit5.Text;
QVentas.Post;
QVentas.Close;
QVentas.Open;
end;
Saludos


La franja horaria es GMT +2. Ahora son las 06:21:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi