[firebase-br] erro sql

[Edson Marco]

Por causa do Open...

Deixa só o ExecSQL

2009/5/14 Josué <josue em ciberpoint.com.br>

> 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
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
/*
* Edson Marco Ferrari Junior
* edmafer em edmafer.com.br
* http://www.edmafer.com.br
*/