Adicionar registro

Delphi

26/11/2003

Quando escrevo este código:
dmCondominio.qryCondominio.open;
dmCondominio.qryCondominio.SQL.Clear;
dmCondominio.qryCondominio.SQL.Add(´select * from Quarto´);
dmCondominio.qryCondominio.SQL.Add(´insert into Quarto(And_Quar, Num_Quar,´+
´Des_Quar) values(Edit1.txt, Edit2.txt, Edit3.txt, TRUE)´);

ShowMessage(´Cadastro efetudado com sucesso´);
o delphi compila sem problemas, mas não adiciona nenhum registro na tabela.

Alguem poderia me ajudar nisso?


Douglasf

Douglasf

Curtidas 0

Respostas

Luineumann

Luineumann

26/11/2003

experimente fazer

=====> dmCondominio.qryCondominio.close; // e não .open

dmCondominio.qryCondominio.SQL.Clear; // aqui vc deve ter fechado a query
dmCondominio.qryCondominio.SQL.Add(´select * from Quarto´); // acredito que este comando seja desnecessário
dmCondominio.qryCondominio.SQL.Add(´insert into Quarto(And_Quar, Num_Quar,´+
´Des_Quar) values(Edit1.txt, Edit2.txt, Edit3.txt, TRUE)´);
dmCondominio.qryCondominio.ExecSql; // executa o insert


GOSTEI 0
POSTAR