clear

[leoprofessor 0]

NO CÓDIGO A SEGUIR DÁ O ERRO 'QRYSQL: CANNOT PERFORM THIS OPERATION ON AN OPEN DATA SET' O QUE HA DE ERRADO NO MEU CÓDIGO:

 

procedure TFrmPricipal.Button1Click(Sender: TObject);

var f : System.text;

r,i : integer;

localarq, delimi, T, espaco : string;

begin

ShowMessage('Aguarde Exportando.... ');

 

localarq := Edit2.Text;

delimi := Edit3.Text;

espaco := Edit1.Text;

 

 

AssignFile(f,localarq);

Rewrite(f);

 

For r := 1 to QrySQL.RecordCount do

Begin

 

for i:=0 to QrySQL.Fields.Count-1 do

begin

 

T := T + QrySQL.Fields.Text + delimi ;

 

end;

 

Writeln(f, T);

 

 

 

QrySQL.next;

T:='';

 

End;

 

Closefile(f);

end;

 

procedure TFrmPricipal.Button2Click(Sender: TObject);

begin

SaveDialog1.Execute;

Edit2.Text := SaveDialog1.FileName;

end;

 

procedure TFrmPricipal.Button3Click(Sender: TObject);

begin

ADOConnection1.DefaultDatabase := DataBase.Text;

//QrySQL.SQL.Clear;

QrySQL.SQL.Text := memoSQL.Text;

 

TRY

QrySQL.Open;

except

ShowMessage('Erro ao executar SQL');

end;

 

end;

 

end.

 

AGUARDO RESPOSTA E DESDE JÁ AGRADEÇO

 

Leonardo Di Praga

 

[]'s

[Angelo Gomes 0]

Olhando rapidamente achei algo que pode ser o erro:QrySQL.SQL.Text := memoSQL.Text;você tem que fechar primeir a query pra depois atribuir uma nova SQL para ela.

[leoprofessor 0]

EU COLOQUEI QrySQL.CLOSE;QrySQL.SQL.Text := memoSQL.Text;E AGORA ESTA DANDO O ERRO 'Either BOF or EOF is true, or current has ben deleted.Requested operation requires a current record.'AGUARDO E JÁ AGRADEÇOLeonardo Di Praga[]'s

[Angelo Gomes 0]

Em qual linha dá esse erro???

[leoprofessor 0]

NA LINHA 46 E 47 DO CÓDIGO ACIMA. ONDE ESTAprocedure TFrmPricipal.Button3Click(Sender: TObject);beginADOConnection1.DefaultDatabase := DataBase.Text;//QrySQL.SQL.Clear;QrySQL.SQL.Text := memoSQL.Text;FICOUprocedure TFrmPricipal.Button3Click(Sender: TObject);beginADOConnection1.DefaultDatabase := DataBase.Text;QrySQL.CLOSE;QrySQL.SQL.Text := memoSQL.Text;NO AGUARDO E DESDE JÁ AGRADECENDOLeonardo Di Praga[]'s

[Angelo Gomes 0]

Num entendi em qual linha q tá dando o erro, mas o q se deduz pela msg é que você ta tentando fazer alguma operação em um query vazia (to chutando, num tenho certeza..)

[leoprofessor 0]

eu so quero limpar a query qdo utiliza-la pra ela ficar livre e eu poder consultar novamente.