Preciso usar o insert into (Firebird1.5) utilizando o TQuery
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
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
Bfbraz
Curtidas 0
Respostas
Gandalf.nho
18/01/2005
Inicialmente, ele não vai aceitar duas consultas executadas de uma só vez. Vai ter que fazer uma de cada vez. O que mais ocorre de errado?
GOSTEI 0
Bfbraz
18/01/2005
eu sei que esqueci a instrução value na duvida, mas nos meus fontes estao ok;
me da o erro na linha 2 , coluna 1 , INSERT ..
não sei como resolver
[]´s Bruno
me da o erro na linha 2 , coluna 1 , INSERT ..
não sei como resolver
[]´s Bruno
GOSTEI 0
Emerson Nascimento
18/01/2005
da forma que você está fazendo, a instrução na query seria:
INSERT INTO CLIENTES VALUES (´01´)
INSERT INTO CLIENTES VALUES (´02´)
ou seja: duas instruções. uma query aceita apenas 1 instrução de cada vez.
você precisaria fazer algo do tipo:
with Qry do
begin
Close;
SQL.Clear;
SQL.Add( ´INSERT INTO Cliente Values( :Valor )´ );
for i := 1 to 3 do
begin
ParamByName(´Valor´).AsString := FormatFloat(´00´,i);
ExecSQL;
end;
end;
assim seriam inseridos os códigos ´01´, ´02´ e ´03´
INSERT INTO CLIENTES VALUES (´01´)
INSERT INTO CLIENTES VALUES (´02´)
ou seja: duas instruções. uma query aceita apenas 1 instrução de cada vez.
você precisaria fazer algo do tipo:
with Qry do
begin
Close;
SQL.Clear;
SQL.Add( ´INSERT INTO Cliente Values( :Valor )´ );
for i := 1 to 3 do
begin
ParamByName(´Valor´).AsString := FormatFloat(´00´,i);
ExecSQL;
end;
end;
assim seriam inseridos os códigos ´01´, ´02´ e ´03´
GOSTEI 0
Bfbraz
18/01/2005
Valeu pela dica, mas com a qntde de insert que preciso dar, vai ficar lento ...
mesmo assim obrigado
[]´ Bruno
mesmo assim obrigado
[]´ Bruno
GOSTEI 0
Afarias
18/01/2005
não acredito q fique lendo.
mas se deseja inserts em lote, use o IBScript
T+
mas se deseja inserts em lote, use o IBScript
T+
GOSTEI 0
Bfbraz
18/01/2005
no delphi 5 não existe IBScript
mesmo assim valeu
mesmo assim valeu
GOSTEI 0
Gandalf.nho
18/01/2005
no delphi 5 não existe IBScript
mesmo assim valeu
Você precisa atualizar seu IBX, pegue-o em [url]http://codecentral.borland.com/codecentral/ccweb.exe/author?authorid=102[/url]
GOSTEI 0