Delphi 7 + MSSQL 2005

[masternet 0]

Desculpem -me se estou inserindo algum tópico repetido.

Mas estou com um problema na busca e exibiçao utilizando Banco de dados SQL SERVER Express 2005.

No access utilizo o seguinte código

**************************************

 

var

x: tlocateOptions;

begin

 

AdoQuery1.active := false;

Adoquery1.sql.clear;

Adoquery1.sql.add('select * from clientes where nome="' + edit1.Text + '"');

Adoquery1.active:= true;

 

ListBox1.Clear;

ADOQuery1.first;

x := [loCaseInsensitive, lopartialkey];

if not AdoQuery1.locate('Nome', Edit1.Text, [loCaseInsensitive,lopartialkey]) then begin

Showmessage ('Arquivo nao encontrado!!');

Label15.Caption :='Favor Refazer sua Busca';

end;

while NOT AdoQuery1.eof =true do

 

begin

 

Label15.Caption:=AdoQuery1.FieldList[1].AsString;

ListBox1.Items.Add(ADOQuery1.FieldList[4].AsString);

Label12.Caption:='Total de contatos: ' + IntToStr(AdoQuery1.RecordCount);

 

ADOQuery1.Next;

Edit1.Clear;

 

 

end;

 

*************************************

 

Com o SQL Server express 2005

me retorna esse erro

 

************************

AdoQuery1:Cannot perform this operation on a closed dataset

************************

 

Se alguém puder me ajudar agradeço, sendo por algum exemplo ou mesmo algum site mais específico

 

 

Grato:

Fabiano Moraes

http://www.fabianomoraes.com

moraes_18@hotmail.com

[Hugo Slepicka 0]

VocÊ já debugou com o F8 pra ver onde da o erro realmente???em algum momento a Query ou o Connection estão fechando...

[marcio.theis 3]

Ou pode fazer um outro teste, que seria:

 

No lugar de AdoQuery1.active := false; coloque AdoQuery1.Close; e Adoquery1.active:= true; mudar para AdoQuery1.Open;

[masternet 0]

Ok farei os testes e reportarei os erros OK!!!