Insert into com select no ACCESS

Delphi

19/10/2013

Ola amigos, já tentei de todas as formas fazer essa operação, mas não consegui, segue código abaixo:
    with DataModule1.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('INSERT INTO janeiro(valor_real, data, desc, cod_conta) SELECT '+
      ' '+ Edit1.Text +', '''+ FormatDateTime('dd/mm/yyyy', DateTimePicker1.Date) +''', '+
      ' '''+ Memo1.Text +''', cod FROM principal WHERE nome = '''+ ComboBox3.Text +''' ');
      ExecSQL;
    end;


DELPHI
Rusley Cruz

Rusley Cruz

Curtidas 0

Respostas

Deivison Melo

Deivison Melo

19/10/2013

Qual o erro que está sendo apresentado?
GOSTEI 0
Rusley Cruz

Rusley Cruz

19/10/2013

Qual o erro que está sendo apresentado?


Erro de sintaxe.
GOSTEI 0
Paulo Andrade

Paulo Andrade

19/10/2013

Eu não entendi muito bem o que está tentando incluir na tabela mas deixo uma dica, faça o código no próprio Access e quando ele estiver montado e funcionando, faça os ajustes para os campos no Delphi.

Eu acredito também, que esse seu código não irá funcionar já que está usando SELECT e colocando valores manual. A solução poderia ser um loop verificando o select e caso encontre, acrescentar ou então utilizar parâmetros.

Para melhor entendimento e facilitar ajuda, seria interessante descrever mais detalhes como por exemplo, quais os tipos de dados dos campos, quais informações pretende incluir na tabela daí podem surgir outras soluções mais práticas com os amigos aqui da DevMedia.

espero ter ajudado.
GOSTEI 0
Lucas Garcia

Lucas Garcia

19/10/2013

Ola amigo, quem vai dar o valor ao cod_conta ? é automático ?
GOSTEI 0
POSTAR