Fórum Problemas com ClientDataset #289176
22/07/2005
0
Gostaria de saber o porque disto:
Estou usando Delphi 7 com Firebird 1.5 e DbExpress.
Qdo executo a query abaixo no RecordCount me retorna 0:
CDSBanco.Close;
QyBanco.SQL.Clear;
QyBanco.SQL.Add(´Select * From ´BANCO´ Where CONTA = :mConta Order by DATA,SEQ´);
QyBanco.ParamByName(´mConta´).AsString := ´TESTE´;
CDSBanco.Open;
Ela deveria me retornar 10 registros.
Daí eu faço da seguinte maneira:
CDSBanco.Open; //Se não mandar este open não traz nenhum registro
CDSBanco.Close;
QyBanco.SQL.Clear;
QyBanco.SQL.Add(´Select * From ´BANCO´ Where CONTA = :mConta Order by DATA,SEQ´);
QyBanco.ParamByName(´mConta´).AsString := ´TESTE´;
CDSBanco.Open;
E o recordCount me traz corretamente 10.
Porque eu preciso colocar aquele CDSBanco.Open para dar certo ?
Obrigado,
Marcello.
Estou usando Delphi 7 com Firebird 1.5 e DbExpress.
Qdo executo a query abaixo no RecordCount me retorna 0:
CDSBanco.Close;
QyBanco.SQL.Clear;
QyBanco.SQL.Add(´Select * From ´BANCO´ Where CONTA = :mConta Order by DATA,SEQ´);
QyBanco.ParamByName(´mConta´).AsString := ´TESTE´;
CDSBanco.Open;
Ela deveria me retornar 10 registros.
Daí eu faço da seguinte maneira:
CDSBanco.Open; //Se não mandar este open não traz nenhum registro
CDSBanco.Close;
QyBanco.SQL.Clear;
QyBanco.SQL.Add(´Select * From ´BANCO´ Where CONTA = :mConta Order by DATA,SEQ´);
QyBanco.ParamByName(´mConta´).AsString := ´TESTE´;
CDSBanco.Open;
E o recordCount me traz corretamente 10.
Porque eu preciso colocar aquele CDSBanco.Open para dar certo ?
Obrigado,
Marcello.
Marcello
Curtir tópico
+ 0
Responder
Posts
22/07/2005
Khundalini
Sugiro que vc execute a sua consulta pelo próprio ClientDataSet, via propriedade CommandText.
[]s
Rubem Rocha
Manaus, AM
[]s
Rubem Rocha
Manaus, AM
Responder
Gostei + 0
29/07/2005
Host
mande um email alexgpedroso@ibest.com.br, este tbem é meu msn.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)