DBGrid en blanco después de consulta SQL.

DarkByte · #1 11-10-2005

Buenas.

Hago una idea general... tenemos el form Clientas... y uno llamado Ventas. Al pulsar el botón de compra en el form Clienta, sale la ventana Ventas para pedir los datos y tal...

Pues bien, en frmDatosClientas (el form este) tengo un DBGrid.. donde muestro todas las ventas mediante una consulta SQL. Se muestran perfectamentes al cargar el form. El problema está después de dar de alta o modificar algo en la tabla Ventas, que el puñetero TAdoQuery o algo se me desconecta, y el DBGrid no pilla... ¬¬'

El código que uso para la consulta en el OnCreate del frmDatosClientas o después de hacer el post o edit..

Código Delphi [-]procedure TfrmDatosClienta.Consultar();
begin
  dm.VentasSQL.Close;
  dm.VentasSQL.SQL.Clear;
  dm.VentasSQL.SQL.Text := 'SELECT Cantidad, Fecha, Vendedora FROM Ventas WHERE Clienta='+QuotedStr(eNombre.Text);
  dm.VentasSQL.Active := True;
  dm.DVentasSQL.Enabled := True;
  dm.VentasSQL.Open;
  DBGrid1.DataSource := dm.DVentasSQL;
  DBGrid1.Columns.Items[0].Width := 50;
  DBGrid1.Columns.Items[1].Width := 100;
  DBGrid1.Columns.Items[2].Width := 150;
end;

Pego unos cuantos screenshots aclaratorios

DataModule:

frmDatosClienta:

frmVentas:

marcoszorrilla · #2 11-10-2005

Código Delphi [-]procedure TfrmDatosClienta.Consultar();
  begin
    dm.VentasSQL.Close;
    dm.VentasSQL.SQL.Clear;
    dm.VentasSQL.SQL.Text := 'SELECT Cantidad, Fecha, Vendedora FROM Ventas WHERE Clienta='+QuotedStr(eNombre.Text);
    dm.VentasSQL.Active := True;//Aquí abres la consulta
    dm.DVentasSQL.Enabled := True;
    dm.VentasSQL.Open;//Este te sobra
    DBGrid1.DataSource := dm.DVentasSQL;
    DBGrid1.Columns.Items[0].Width := 50;
    DBGrid1.Columns.Items[1].Width := 100;
    DBGrid1.Columns.Items[2].Width := 150;
  end;

En cuanto a que la rejilla esté vacia, has comprobado si realmente devuelve datos la consulta?

Un Saludo.

Fita · #3 11-10-2005

Verifica también el nivel de islamiento de las transacciones (botón derecho sobre el componente Ttransaction).

Saludos

DarkByte · #4 11-10-2005

No tengo ningún componente TTransaction :S

DarkByte · #5 11-10-2005

Cita:

Empezado por marcoszorrilla

En cuanto a que la rejilla esté vacia, has comprobado si realmente devuelve datos la consulta?

Un Saludo.

Claro, mira el evento OnCreate...

Código Delphi [-]procedure TfrmDatosClienta.FormCreate(Sender: TObject);
begin
  Consultar;
end;

Si aquí devuelve datos... significa que funciona, el problema es después de todo

DarkByte · #6 11-10-2005

Por si ayuda...

Código Delphi [-]procedure TfrmVenta.GrabarVenta(Clienta, Vendedora, Modelo, Fecha, Cantidad, Regalo:string);
begin
  dm.Ventas.Open;
  If Editar Then dm.Ventas.Edit;
  If not Editar Then dm.Ventas.Insert;
  dm.VentasClienta.Value := Clienta;
  dm.VentasVendedora.Value := Vendedora;
  dm.VentasModelo.Value := Modelo;
  dm.VentasFecha.Value := Fecha;
  dm.VentasCantidad.Value := Cantidad;
  dm.VentasRegalo.Value := Regalo;
  dm.Ventas.Post;
  dm.Ventas.Refresh;
end;

vtdeleon · #7 11-10-2005

Saludos

Código Delphi [-]procedure TfrmVenta.GrabarVenta(Clienta, Vendedora, Modelo, Fecha, Cantidad, Regalo:string);
begin
with db do begin
  Ventas.Open;
  If Editar Then 
    Ventas.Edit
  else 
    Ventas.Insert;
...
...
...

Qué tal.???

DarkByte · #8 12-10-2005

¿Cúal es la diferencia? Esa es una manera diferente de poner el código que escribe las miasmas lineas... lo que necesito es saber qué cambio puede conseguir que no se me quede en blanco.. no otras maneras diferentes de presentar el código.

Muchas gracias