Problema com DataModule (ClientdataSet)

Delphi

21/09/2007

Pessoal,

Estou tendo um problema com as instruções abaixo:


      if not DMServer.cdsID.IsEmpty then 
      begin
        DMServer.cdsID.Close;   
        DMServer.cdsID.Params.ParamByName(´ID´).AsString := parametro;  
        DMServer.cdsID.Open;    

        AThread.Connection.WriteLn(´Sua Senha é: ´+DMServer.cdsIDSENHA.Text);
        memMonitor.Lines.Add(´Comando ID Recebido´);
      end else
      begin
        AThread.Connection.WriteLn(´Banco vazio - Var: ´+parametro);
        memMonitor.Lines.Add(´Banco vazio - Var: ´+parametro);
      end;


Quando faço a pesquisa deste modo, recebo a mensagem que o banco está vazio.

Já quando mudo esta linha:
if not DMServer.cdsID.IsEmpty then


Para esta:
if  DMServer.cdsID.IsEmpty then


Recebo os dados sem problemas...

Estranho, pois 
 if NOT DMServer.cdsID.IsEmpty then
não quer dizer que se [b:743950e1ab]NÃO[/b:743950e1ab] estiver vazio faça...

Se alguem puder ajudar :D

Obrigado

P.S. O FireBird 1.5 está configurado e com dados.[/code]


Rodfernandes

Rodfernandes

Curtidas 0

Respostas

Steve_narancic

Steve_narancic

21/09/2007

provavelmente seu DMServer.cdsID está fechado então ele está vazio, tenta abrir DMServer.cdsID antes de testar, assim:
  DMServer.cdsID.Close;   
  DMServer.cdsID.Params.ParamByName(´ID´).AsString := parametro; 
  DMServer.cdsID.Open;   

if not DMServer.cdsID.IsEmpty then
      begin
      
        AThread.Connection.WriteLn(´Sua Senha é: ´+DMServer.cdsIDSENHA.Text);
        memMonitor.Lines.Add(´Comando ID Recebido´);
      end else
      begin
        AThread.Connection.WriteLn(´Banco vazio - Var: ´+parametro);
        memMonitor.Lines.Add(´Banco vazio - Var: ´+parametro);
      end;



GOSTEI 0
POSTAR