SQLDataSet com parametros
Boa tarde a todos,
SQLDataSet_SALDOS.CommandType := ctQuery;
SQLDataSet_SALDOS.CommandText := ´SELECT filial, cod, desc, qtD FROM SALDOS WHERE COD = :COD AND FILIAL = :FILIAL´;
SQLDataSet_SALDOS.Params[0].AsString := TEdit_COD.Text;
SQLDataSet_SALDOS.Params[1].AsString := ´01´;
SQLDataSet_SALDOS.ExecSQL;
TEdit_EST_ERE.Text := SQLDataSet_SALDOSQTD.AsString;
Quando eu tento executar da essa seguinte mensagem de erro, alguem sabe o que eu estou fazendo de errado, ja tentei de tudo e nao saio do chao, se alguem tiver uma luz agradeco. :lol:
Erro:
´Cannot perform this operation on a closed dataset.´
SQLDataSet_SALDOS.CommandType := ctQuery;
SQLDataSet_SALDOS.CommandText := ´SELECT filial, cod, desc, qtD FROM SALDOS WHERE COD = :COD AND FILIAL = :FILIAL´;
SQLDataSet_SALDOS.Params[0].AsString := TEdit_COD.Text;
SQLDataSet_SALDOS.Params[1].AsString := ´01´;
SQLDataSet_SALDOS.ExecSQL;
TEdit_EST_ERE.Text := SQLDataSet_SALDOSQTD.AsString;
Quando eu tento executar da essa seguinte mensagem de erro, alguem sabe o que eu estou fazendo de errado, ja tentei de tudo e nao saio do chao, se alguem tiver uma luz agradeco. :lol:
Erro:
´Cannot perform this operation on a closed dataset.´
Claudio_f
Curtidas 0
Respostas
Luciano Pimenta®
28/07/2003
Tente dar um Open ao invés do um ExecSQL.
:)
:)
GOSTEI 0
Claudio_f
28/07/2003
Ja tentei e deu erro tambem!
GOSTEI 0
Fred
28/07/2003
SQLDataSet_SALDOS.close;
SQLDataSet_SALDOS.CommandType := ctQuery;
SQLDataSet_SALDOS.CommandText.Clear;
SQLDataSet_SALDOS.CommandText := ´SELECT filial, cod, desc, qtD FROM SALDOS WHERE COD = :COD AND FILIAL = :FILIAL´;
SQLDataSet_SALDOS.Params[0].AsString := TEdit_COD.Text;
SQLDataSet_SALDOS.Params[1].AsString := ´01´;
SQLDataSet_SALDOS.Open;
Tente Assim; 8)
SQLDataSet_SALDOS.CommandType := ctQuery;
SQLDataSet_SALDOS.CommandText.Clear;
SQLDataSet_SALDOS.CommandText := ´SELECT filial, cod, desc, qtD FROM SALDOS WHERE COD = :COD AND FILIAL = :FILIAL´;
SQLDataSet_SALDOS.Params[0].AsString := TEdit_COD.Text;
SQLDataSet_SALDOS.Params[1].AsString := ´01´;
SQLDataSet_SALDOS.Open;
Tente Assim; 8)
GOSTEI 0