[firebase-br] Fw: erro sql

Zottis zottissistemas em brturbo.com.br
Qui Maio 14 17:15:46 -03 2009


> eu só faço o .ExecSQL
> tente assim:
>   with Form2.SQLQuery1 do
>      Begin
>          close;
>         SQL.Clear;
>         SQL.Add('INSERT INTO PESSOA(CADASTRO,RESPONSAVEL,NOME,');
>        SQL.Add('SEXO,PARENTESCO,NASCIMENTO,ESTADOCIVIL,');
>        SQL.Add('PROFISSAO,PREVIDENCIASOCIAL,OCUPACAOATUAL,');
>        SQL.Add('CONTRIBUINARENDAFAMILIAR,ESCOLARIDADE,ESTUDANDO,');
>        SQL.Add('CNH,CPF) VALUES (:CAD,:RESP,:NOM,:SEX,:PAR,:NASCI,');
>        SQL.Add(':ECIVIL,:PROF,:PREVI,:OCUPA,:CONTRIB,:ESCOLAR,:ESTUD,');
>        SQL.Add(':MCNH,:MCPF)');
>        ParamByName('CAD').AsInteger  := Cad;
>        ParamByName('RESP').AsString := RESP;
>        ParamByName('NOM').AsString := NOM;
>        ParamByName('SEX').AsString := SEX;
>        ParamByName('PAR').AsString := PAR;
>        ParamByName('NASCI').AsDate  := NASCI;
>        ParamByName('ECIVIL').AsString := ECIVIL;
>        ParamByName('PROF').AsString := PROF;
>        ParamByName('PREVI').AsString := PREVI;
>        ParamByName('OCUPA').AsString := OCUPA;
>        ParamByName('CONTRIB').AsString := CONTRIB;
>        ParamByName('ESCOLAR').AsString := ESCOLAR;
>        ParamByName('ESTUD').AsString := ESTUD;
>        ParamByName('MCNH').AsString := MCNH;
>        ParamByName('MCPF').AsString := MCPF;
>        ExecSQL ;
>      end;
>
>
>
>
>
> Zottis(TeamFB Users)
>
> Zottis Sistemas - 2009 Ano XII
> Programação Delphi/PHP/Firebird/MySQL
>
> "Um homem só tem o direito de olhar
>  a um outro de cima para baixo, quando
>  vai ajuda-lo a levantar-se".
>                   Gabriel Garcia Marquez
> ----- Original Message ----- 
> From: "Josué" <josue em ciberpoint.com.br>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Thursday, May 14, 2009 5:01 PM
> Subject: [firebase-br] 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
> ______________________________________________
> 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 





Mais detalhes sobre a lista de discussão lista