DBGrid en blanco después de consulta SQL.

marcoszorrilla · #1 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 · #2 11-10-2005

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

Saludos

DarkByte · #3 11-10-2005

No tengo ningún componente TTransaction :S

DarkByte · #4 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 · #5 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 · #6 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 · #7 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

vtdeleon · #8 12-10-2005

Saludos

Cita:

¿Cúal es la diferencia? Esa es una manera diferente de poner el código que escribe las miasmas lineas...

Creo que la diferencia es clara.
La tuya evalua "Editar" dos veces, mientras la mía solo una vez.

Con respecto a tu duda, te aseguraste de que te devuelve algún resultado (por otro medio que no sea DBGRID). Puede ser que la consulta que realizas no devuelva registro alguno.

Código Delphi [-]rocedure TfrmDatosClienta.Consultar();
  begin
    dm.VentasSQL.Close;
    dm.VentasSQL.SQL.Clear;
    dm.VentasSQL.SQL.Text := 'SELECT Cantidad, Fecha, Vendedora FROM Ventas WHERE Clienta=:enombre'
    dm.VentasSql.ParamByName('enombre').AsString:=eNombre.Text;

No estoy seguro si es String o Integer el dato, pero ahí va

SUerte

DarkByte · #9 13-10-2005

Cita:

Empezado por vtdeleon

Con respecto a tu duda, te aseguraste de que te devuelve algún resultado (por otro medio que no sea DBGRID). Puede ser que la consulta que realizas no devuelva registro alguno.

5 posts más arriba comento que hago una consulta nada más cargar el form, la cual si me devuelve datos. El problema está después de editar o dar de alta un dato, ya que entonces me deja de mostrar datos por más veces que llame al procedure Consultar.