[firebase-br] erro sql

Zottis zottissistemas em brturbo.com.br
Qui Maio 14 17:13:01 -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