Obrigado Galera, consegui resolver...e era uma coisa
simples...abraços!!!
--- Em delphi-br@yahoogrupos.com.br, Andre Luis Silveria
<[EMAIL PROTECTED]> escreveu
>
> Vc não está limpando o sql anterior, por isso está ficando com duas
instruções:
>
> Query1.Close;
>
> Query1.SQL.Clear; <-- Coloque esta linha aqui.
>
> query1.SQL.Add( 'insert into CEP(CEP, LOGRADOURO, ENDERECO,
>
> ----- Mensagem original ----
> De: rafaelpinto19 <[EMAIL PROTECTED]>
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Quarta-feira, 21 de Novembro de 2007 11:51:48
> Assunto: [delphi-br] Erro com Instrução SQL!!!
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Sempre quando faço os procedimentos para gravar os Registro no
>
> banco funciona, mas quando vou cadastrar outro resgistro logo em
>
> seguida dá o Seguinte Erro "Dynamic SQL Error.SQL Error code = -104
>
> Token unknown - line 3, char -1 insert.". Faço quando vou cadastrar um
>
> CEP. Ou seja, eu cadastro um registro, q no outro seguida quando vou
>
> gravar dá esse erro. aí eu tenho q fechar e gtravar de novo. E tbm dá
>
> esse tipo de erro nas consultas mas é com outras palavras "Dynamic SQL
>
> Error.SQL Error code = -104 Token unknown - line 3, char -1 select.".
>
>
>
> taí o meu código:
>
>
>
> if Edit1.Text<> '' then
>
> begin
>
> Query1.Close;
>
> query1.SQL.Add( 'insert into CEP(CEP, LOGRADOURO, ENDERECO,
>
> BAIRRO, CIDADE, UF)');
>
> Query1.SQL.Add( 'values (:CEP, :LOGRADOURO, :ENDERECO, :BAIRRO,
>
> :CIDADE, :UF)');
>
> Query1.ParamByName( 'CEP').AsString := Edit1.Text;
>
> Query1.ParamByName( 'LOGRADOURO' ).AsString := ComboBox1.Text;
>
> Query1.ParamByName( 'ENDERECO' ).AsString := Edit2.Text;
>
> Query1.ParamByName( 'BAIRRO') .AsString := Edit3.Text;
>
> Query1.ParamByName( 'CIDADE') .AsString := Edit4.Text;
>
> Query1.ParamByName( 'UF').AsString := Edit5.Text;
>
> Query1.ExecSQL;
>
> Query1.Transaction. Commit;
>
> Query1.Transaction. Active := TRUE;
>
> ShowMessage( 'C.E.P Registrado em Nossa basse de Dados!');
>
> if MessageDlg(' Deseja Cadastrar outro
>
> C.E.P!',mtConfirmat ion,[mbYES, mbNO],0)= mrYES then
>
> begin
>
> limpaedit;
>
> ComboBox1.Text: = '';
>
> Edit1.SetFocus;
>
> end
>
> else
>
> close;
>
> end
>
> else
>
> ShowMessage( 'Precisa Informar o C.E.P!');
>
> Edit1.SetFocus;
>
>
>
> será que alguém pode tirar essa dúvida pra min e me dizer por que
>
> que ocorre esse erro?
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> <!--
>
> #ygrp-mkp{
> border:1px solid #d8d8d8;font-family:Arial;margin:14px
0px;padding:0px 14px;}
> #ygrp-mkp hr{
> border:1px solid #d8d8d8;}
> #ygrp-mkp #hd{
>
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px
0px;}
> #ygrp-mkp #ads{
> margin-bottom:10px;}
> #ygrp-mkp .ad{
> padding:0 0;}
> #ygrp-mkp .ad a{
> color:#0000ff;text-decoration:none;}
> -->
>
>
>
> <!--
>
> #ygrp-sponsor #ygrp-lc{
> font-family:Arial;}
> #ygrp-sponsor #ygrp-lc #hd{
> margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
> #ygrp-sponsor #ygrp-lc .ad{
> margin-bottom:10px;padding:0 0;}
> -->
>
>
>
> <!--
>
> #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean,
sans-serif;}
> #ygrp-mlmsg table {font-size:inherit;font:100%;}
> #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica,
clean, sans-serif;}
> #ygrp-mlmsg pre, code {font:115% monospace;}
> #ygrp-mlmsg * {line-height:1.22em;}
> #ygrp-text{
> font-family:Georgia;
> }
> #ygrp-text p{
> margin:0 0 1em 0;}
> #ygrp-tpmsgs{
> font-family:Arial;
> clear:both;}
> #ygrp-vitnav{
> padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
> #ygrp-vitnav a{
> padding:0 1px;}
> #ygrp-actbar{
> clear:both;margin:25px
0;white-space:nowrap;color:#666;text-align:right;}
> #ygrp-actbar .left{
> float:left;white-space:nowrap;}
> .bld{font-weight:bold;}
> #ygrp-grft{
> font-family:Verdana;font-size:77%;padding:15px 0;}
> #ygrp-ft{
> font-family:verdana;font-size:77%;border-top:1px solid #666;
> padding:5px 0;
> }
> #ygrp-mlmsg #logo{
> padding-bottom:10px;}
>
> #ygrp-vital{
> background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
> #ygrp-vital #vithd{
>
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
> #ygrp-vital ul{
> padding:0;margin:2px 0;}
> #ygrp-vital ul li{
> list-style-type:none;clear:both;border:1px solid #e0ecee;
> }
> #ygrp-vital ul li .ct{
>
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
> #ygrp-vital ul li .cat{
> font-weight:bold;}
> #ygrp-vital a{
> text-decoration:none;}
>
> #ygrp-vital a:hover{
> text-decoration:underline;}
>
> #ygrp-sponsor #hd{
> color:#999;font-size:77%;}
> #ygrp-sponsor #ov{
> padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
> #ygrp-sponsor #ov ul{
> padding:0 0 0 8px;margin:0;}
> #ygrp-sponsor #ov li{
> list-style-type:square;padding:6px 0;font-size:77%;}
> #ygrp-sponsor #ov li a{
> text-decoration:none;font-size:130%;}
> #ygrp-sponsor #nc{
> background-color:#eee;margin-bottom:20px;padding:0 8px;}
> #ygrp-sponsor .ad{
> padding:8px 0;}
> #ygrp-sponsor .ad #hd1{
>
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
> #ygrp-sponsor .ad a{
> text-decoration:none;}
> #ygrp-sponsor .ad a:hover{
> text-decoration:underline;}
> #ygrp-sponsor .ad p{
> margin:0;}
> o{font-size:0;}
> .MsoNormal{
> margin:0 0 0 0;}
> #ygrp-text tt{
> font-size:120%;}
> blockquote{margin:0 0 0 4px;}
> .replbq{margin:4;}
> -->
>
>
>
>
>
>
>
>
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço
para armazenamento!
> http://br.mail.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
