Insert into com Select no ACCESS

[Rusley Kader Cruz 0]

Ola amigos, estou tendo muito dificuldade nesta operação, dá erro de sintaxe. Segue o 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;

 

[Motta 645]

Se nenhum dado inserido vem do SELECT bastaria um INSERT simples.

[Rusley Kader Cruz 0]

Se nenhum dado inserido vem do SELECT bastaria um INSERT simples.

Na verdade estou tentando inserir o valor da pesquisa do texto do combobox, o cod do registro. Inserir na tabela janeiro, campo cod_conta.

[Chrnos 30]

Uma questãop simples: qual é o erro que está retornando? Tentou pegar o texto que seu código está gerando e executar diretamente no BD para ver se o problema não está na montagem do seu sql? Outra coisa: porque não usa o QuotedStr(Texto) para por a informação entre aspas simples?