Fórum Adicionar registro #197136
26/11/2003
0
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?
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
Curtir tópico
+ 0
Responder
Posts
26/11/2003
Luineumann
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
=====> 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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)