(Resolvido) Como inserir em um banco de dados uma variável do delphi

[tanure]

olá boa noite

sou iniciante em delphi e gostaria de saber como enviar pelo delphi 7 uma variável para o firebird 2.1, uso o IBEXPERT

segue a parte do codigo:

for linContador := low(larLoop) to high(larLoop) do

begin

DataModule1.SQLQuery1.Close;

DataModule1.SQLQuery1.SQL.Clear;

DataModule1.SQLQuery1.SQL.Add('insert into loopfor(VALOR) values (larLoop[linContador])');

DataModule1.SQLQuery1.ExecSQL;

end;

Edited November 8, 2011 by tanure

[Jhonas]

vamos a um exemplo

CREATE TABLE tab_nota_fiscal
(num_nota INTEGER);

INSERT INTO tab_nota_fiscal VALUES (1);
INSERT INTO tab_nota_fiscal VALUES (2);
INSERT INTO tab_nota_fiscal VALUES (3);
INSERT INTO tab_nota_fiscal VALUES (4);
INSERT INTO tab_nota_fiscal VALUES (6);
INSERT INTO tab_nota_fiscal VALUES (7);
INSERT INTO tab_nota_fiscal VALUES (8);
INSERT INTO tab_nota_fiscal VALUES (9);

seria o mesmo que

var a : integer;
begin
   for a := 1 to 9 do
      begin
         SQLQuery1.Close;
         SQLQuery1.SQL.Clear;
         SQLQuery1.SQL.Add('INSERT INTO tab_nota_fiscal VALUES ('+a+')');
         SQLQuery1.ExecSQL;
      end;
end;

abraço

[tanure]

vamos a um exemplo

CREATE TABLE tab_nota_fiscal
(num_nota INTEGER);

INSERT INTO tab_nota_fiscal VALUES (1);
INSERT INTO tab_nota_fiscal VALUES (2);
INSERT INTO tab_nota_fiscal VALUES (3);
INSERT INTO tab_nota_fiscal VALUES (4);
INSERT INTO tab_nota_fiscal VALUES (6);
INSERT INTO tab_nota_fiscal VALUES (7);
INSERT INTO tab_nota_fiscal VALUES (8);
INSERT INTO tab_nota_fiscal VALUES (9);

seria o mesmo que

var a : integer;
begin
   for a := 1 to 9 do
      begin
         SQLQuery1.Close;
         SQLQuery1.SQL.Clear;
         SQLQuery1.SQL.Add('INSERT INTO tab_nota_fiscal VALUES ('+a+')');
         SQLQuery1.ExecSQL;
      end;
end;

abraço

Grande jonas, obrigado pela atenção meu camarada

mas o que eu precisava mesmo fazer era inserir em um banco de dados elementos,

mas estes devem ser variaves do delphi

consegui aki depois de muitas dificuldades hehe

ai vai o código pois alguém pode ter a mesma duvida que eu...

DataModule1.SQLQuery1.Close;

DataModule1.SQLQuery1.SQL.Clear;

DataModule1.SQLQuery1.SQL.Add('insert into loopfor(VALOR) values (:Valor)');

DataModule1.SQLQuery1.Prepared := true;

for linContador := low(larLoop) to high(larLoop) do

begin

DataModule1.SQLQuery1.ParamByName('Valor').Value := larLoop[linContador];

DataModule1.SQLQuery1.ExecSQL;

end;