Preciso usar o insert into (Firebird1.5) utilizando o TQuery

Delphi

18/01/2005

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

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

18/01/2005

[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].


GOSTEI 0
Marcio.theis

Marcio.theis

18/01/2005

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´´)´);


GOSTEI 0
Bfbraz

Bfbraz

18/01/2005

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

[]´s Bruno


GOSTEI 0
Marcio.theis

Marcio.theis

18/01/2005

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.


GOSTEI 0
Isabelct

Isabelct

18/01/2005

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.


GOSTEI 0
Dopi

Dopi

18/01/2005

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 ;



GOSTEI 0
POSTAR