ADO Dataset

[gabriela.nunes 0]

Olá galera, estou desenvolvendo uma aplicação utilizando os componentes da aba ADO, na minha aplicação, tenho um botão de pesquisar onde é feita a seguinte sixtaxe:

 

with dstPesquisar do

begin

try

Close;

Connection := dtmPrincipal.connPrincipal;

CommandText := vSQL;

Open;

habilita := RecordCount > 0;

end;

 

Porém, se pressionarmos o botão pela primeira vez, ele realiza os comandos corretamente, mas ao pressionar pela segunda vez, ele exibe o sqguinte erro:::

 

'Project Principal.exe raised exception class AEaccesViolation with message 'Acces violation ar address 00402A71 in module 'Principal.exe'. Read of address 01B765FC'. Process stopped. Use step or run to continue.'

 

Alguém sabe o que pode estar ocorrendo??

Muito orbigada desde já.

[marcio.theis 3]

Tente da seguinte forma:

 

with dstPesquisar do
	begin
	try
		Close;
		SQL.Clear;
		Connection := dtmPrincipal.connPrincipal;
		SQL.Add(vSQL);
		Open;
		habilita := RecordCount > 0;
	except;
		end;
	end;