Fórum Preciso usar o insert into (Firebird1.5) utilizando o TQuery #265848

18/01/2005

0

Delphi

Preciso usar o insert into (Firebird1.5) utilizando o TQuery com o Delphi 5.
Necessariamente eu preciso fazer utilizando o TQuery + Delphi5.

Exemplo da minha necessidade:

With Qry Do Begin
Close;
SQL.Clear;
SQL.Add( ´INSERT INTO Cliente ( ´ + ´´´´ + ´01´ + ´´´´ + ´);´ );
SQL.Add( ´INSERT INTO Cliente ( ´ + ´´´´ + ´02´ + ´´´´ + ´);´ );
ExecSQL;
End;

Minha estrutura de Criação da Tabela Cliente :

CREATE TABLE Cliente (
Codigo VARCHAR(2)
);

Desde já
Grato
Bruno Figueira[color=red:18cf1dfb24][/color:18cf1dfb24]


Bfbraz

Bfbraz

Responder

Posts

18/01/2005

Gandalf.nho

[b:11956dfbf2][color=red:11956dfbf2]Notificação de Infração às Regras de Conduta :[/color:11956dfbf2][/b:11956dfbf2]

Duplicidade
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?p=181435[/url]

Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].


Responder

Gostei + 0

18/01/2005

Marcio.theis

você não havia colocado a cláusula ´values´ e havia aspas a mais, então
tente o seguinte:

qry.SQL.Add(´INSERT INTO Cliente values (´´04´´)´);


Responder

Gostei + 0

19/01/2005

Bfbraz

realmente esqueci apenas na duvida, nos meus fontes estão com value,
mesmo assim nao funciona

[]´s Bruno


Responder

Gostei + 0

19/01/2005

Marcio.theis

Você terá que fazer o insert um a um, pois se colocar o ´;´ no final, ele não irá conseguir executar o próximo comando.


Responder

Gostei + 0

19/01/2005

Isabelct

Qual é a mensagem de erro retornada?

Como alternativa, você pode tentar colocar apenas uma instrução INSERT INTO na query, e então executar. Desta forma, acredito que funcione.

Qry.Close; 
Qry.SQL.Clear; 
Qry.SQL.Add( ´INSERT INTO Cliente ( ´ + ´´´´ + ´01´ + ´´´´ + ´);´ ); 
Qry.ExecSQL;


Espero que ajude.


Responder

Gostei + 0

19/01/2005

Dopi

SQL.Add( ´INSERT INTO Cliente ( ´ + ´´´´ + ´01´ + ´´´´ + ´);´ );


Usar aspas desse jeito é meio complicado.... Experimente usando a função
QuotedStr()

SQL.Add( ´INSERT INTO Cliente ( ´ + QuotedStr(´01´) + ´)´ );

Entretanto acho que a sintaxe do comando SQL INSERT está errada... veja um exemplo:

           Close ;
           CommandText := ´INSERT INTO "LOJA" ´+
                          ´( CODLOJA, NOMELOJA) ´+
                   ´values (:CODLOJA,:NOMELOJA)´ ;

           Params.FindParam(´CODLOJA´).AsInteger := 1 ;
           Params.FindParam(´NOMELOJA´).AsString := ´MATRIZ´ ;
           Execute ;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar