Inserindo Dados

[Guest - Douglas -]

Seguinte estou começando a programar em delphi... e fiz um programinha simples de cadastro de Nome e E-mail, mais ele não está cadastrando...

os códigos são os seguintes:

procedure TfrmCadastro.btnSalvarClick(Sender: TObject);

var

nome:string;

email:string;

begin

if txtNome.text <> '' then

begin

nome:=txtNome.Text;

email:=txtEmail.text;

Query1.ExecSQL;

txtNome.text:='';

txtEmail.text:='';

txtNome.enabled := false;

txtEmail.Enabled := false;

Salvar1.enabled := false;

Cancelar1.enabled := false;

Lista1.enabled := true;

btnPesquisa.enabled := true;

btnCancela.Enabled:=false;

btnSalvar.enabled:=false;

end;

end;

o Query1 é o seguinte: insert into tblEmail(nome,email) values("'+Nome+'","'+Email+'")

mais não cadastra o que eu digito no campo, ele cadastra assim: '+nome+' e '+ email+'

já tentei tb: insert into tblEmail(nome,email) values("'+txtNome.text+'","'+txtEmail.text+'")

mais ele cadastrar: '+txtNome.text+' e '+txtxEmail.text+'

alguém pode me ajudar...

[Progr'amador]

Ola.

use 4 aspas ''''.

Falow!

[Vivendo&Aprendendo]

Ou então não precisa usar esse código, utiliza o componente TDBEdit que esta na paleta DataControls

É só configurar as propriedades DataSource e DataField.

falou