[firebase-br] Fw: erro sql === SOLUCIONADO

[Josué]

Achei o erro.

Era o comando open, antes do ExecSQL,
agora tá normal.
obrigado.

Josué D. Silva
Telecomunicações Curupira Ltda
SCM - Ouroeste - SP
017 - 38431606
----- Original Message ----- 
From: Josué 
To: FireBase 
Sent: Thursday, May 14, 2009 5:01 PM
Subject: erro sql


Companheiros, estou tendo um erro na execução de uma Query ja pesquisei várias soluçoes e nao resolveu.

Seguinte
Delphi 7
Firebird 2.1
InterXpress
SqLquery.

Erro : SqlQuery:Cursor not returned from Query

Ela atualiza o registro beleza, inclusive com o codigo sendo inserido por um generator.


Form2.SQLQuery1.Close;
    Form2.SQLQuery1.SQL.Clear;
    Form2.SQLQuery1.SQL.Add('INSERT INTO PESSOA(CADASTRO,RESPONSAVEL,NOME,');
    Form2.SQLQuery1.SQL.Add('SEXO,PARENTESCO,NASCIMENTO,ESTADOCIVIL,');
    Form2.SQLQuery1.SQL.Add('PROFISSAO,PREVIDENCIASOCIAL,OCUPACAOATUAL,');
    Form2.SQLQuery1.SQL.Add('CONTRIBUINARENDAFAMILIAR,ESCOLARIDADE,ESTUDANDO,');
    Form2.SQLQuery1.SQL.Add('CNH,CPF) VALUES (:CAD,:RESP,:NOM,:SEX,:PAR,:NASCI,');
    Form2.SQLQuery1.SQL.Add(':ECIVIL,:PROF,:PREVI,:OCUPA,:CONTRIB,:ESCOLAR,:ESTUD,');
    Form2.SQLQuery1.SQL.Add(':MCNH,:MCPF)');
    Form2.SQLQuery1.ParamByName('CAD').AsInteger  := Cad;
    Form2.SQLQuery1.ParamByName('RESP').AsString := RESP;
    Form2.SQLQuery1.ParamByName('NOM').AsString := NOM;
    Form2.SQLQuery1.ParamByName('SEX').AsString := SEX;
    Form2.SQLQuery1.ParamByName('PAR').AsString := PAR;
    Form2.SQLQuery1.ParamByName('NASCI').AsDate  := NASCI;
    Form2.SQLQuery1.ParamByName('ECIVIL').AsString := ECIVIL;
    Form2.SQLQuery1.ParamByName('PROF').AsString := PROF;
    Form2.SQLQuery1.ParamByName('PREVI').AsString := PREVI;
    Form2.SQLQuery1.ParamByName('OCUPA').AsString := OCUPA;
    Form2.SQLQuery1.ParamByName('CONTRIB').AsString := CONTRIB;
    Form2.SQLQuery1.ParamByName('ESCOLAR').AsString := ESCOLAR;
    Form2.SQLQuery1.ParamByName('ESTUD').AsString := ESTUD;
    Form2.SQLQuery1.ParamByName('MCNH').AsString := MCNH;
    Form2.SQLQuery1.ParamByName('MCPF').AsString := MCPF;
    Form2.SQLQuery1.Open ;
    Form2.SQLQuery1.PrepareStatement ;
    Form2.SQLQuery1.ExecSQL ;

_______________________________________________

obrigado.

Josué D. Silva
Telecomunicações Curupira Ltda
SCM - Ouroeste - SP
017 - 38431606