Publicado em 25 de mai.

Unknown column in 'field list''.

#delphi

Boa noite,

Estou fazendo um trabalho pra facul, e estou tento esse problema ao tentar inserir os dados na tabela.

segue o codigo

procedure TFRM_pais.BTN_salvarClick(Sender: TObject);

var

sigla,desc:string;

begin

with DTM.ADOQuery1 do

begin

sigla:= EDT_sigla.Text;

desc:= EDT_desc.Text;

sql.Clear;

DTM.ADOQuery1.Close;

sql.Add('insert into pais (Sigla, Descricao) values('+ sigla+','+desc+')');

DTM.ADOQuery1.ExecSQL;

end;

Sei que ta estranho mas só "funciona" assim, mas na hora de salvar da este erro: Unknown column 'dado que informei no campo' in 'field list''.

Alguém pode me ajudar, pq a professora nao soube o que era... e tb nao tava nem ai pra me ajudar!!!

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

bdexterholland· 25 de mai.

faz assim:

procedure TFRM_pais.BTN_salvarClick(Sender: TObject);
var
sigla,desc:string;
begin
with DTM.ADOQuery1 do
begin

 sigla:= EDT_sigla.Text;
 desc:= EDT_desc.Text;
 sql.Clear;
 DTM.ADOQuery1.Close;
 sql.Add('insert into pais (Sigla, Descricao) values(' + QuotedStr(sigla) + ',' + QuotedStr(desc) + ')');
 DTM.ADOQuery1.ExecSQL;
 end;

Se você fizer um ShowMessage(adoQuery1.SQL.Text) irá observar que sua query ficará assim:

insert into pais (Sigla, Descricao) values(BR, Brasil)

Os valores não foram passados entre aspas, fazendo o banco de dados trata-los como identificadores, ou seja, o nome de um campo ou uma constante e que não existem, por isto a mensagem de erro. Passe os dados entre aspas (por isto o QuotedStr, mas é possível fazer de outras formas) para que sejam tratados como texto.