(Resolvido) Gravando dados do formulario

[Creedence]

Bo, dia !

 

Tenho um formulário com botão gravar e no click desse botão, tenho o código abaixo para inserir novo registro na tabela:

 

   ADOQuery1.Close;

   ADOQuery1.SQL.Add('INSERT INTO tbclientes (cliempresa) VALUES (edtempresacli.text)');

   ADOQuery1.ExecSQL;

   ShowMessage('Registros gravados !!!');

 

Estou testando apenas um campo pra ver se funciona. Dá erro de "Parametros insuficientes. Eram esperados 1".

Se eu coloco aspas no values também dá erro de aspas.

 

Obrigado,

 

Marcos

[Jhonas]

Tente dessas maneiras:

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('insert into tbclientes (cliempresa) values ('+ edtempresacli.text +' ));

ADOQuery1.ExecSQL;

==========================================================================

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(Format('insert into tbclientes (cliempresa) values (%s)',[QuotedStr( edtempresacli.text )]));

ADOQuery1.ExecSQL;

==========================================================================

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('INSERT INTO  tbclientes  (cliempresa) VALUES (:a)');

ADOQuery1.Parameters.ParamByName('a').Value :=  edtempresacli.text ;

ADOQuery1.ExecSQL;

 

abraço

 

[Creedence]

Jhonas, boa tarde !

Testei a primeira e deu erro.
Não cheguei a testar a segunda opção, como a terceira opção eu já tinha visto em pesquisas que fiz, testei ela e funcionou.
Gravou de boa.

Muito obrigado pelo apoio.

Marcos