Fórum Tabela não está em modo de Inserção ou Edição... #165598
19/06/2003
0
Saudações,
estou criando um programinha com delphi5 e Paradox e está acusando o seguinte erro :
´Tabela não está em modo de inserção ou edição´...eu pus o seguinte código:
Botão Inserir:
n := 1;
DM1.TB_RecArqv.Insert;
Botão Salvar:
if n = 1 then
begin
tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);
DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
end
else
if n = 2 then
begin
tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);
DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
Nota: n = 2 significa que foi pressionado o botão Alterar...Muito obrigado
estou criando um programinha com delphi5 e Paradox e está acusando o seguinte erro :
´Tabela não está em modo de inserção ou edição´...eu pus o seguinte código:
Botão Inserir:
n := 1;
DM1.TB_RecArqv.Insert;
Botão Salvar:
if n = 1 then
begin
tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);
DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
end
else
if n = 2 then
begin
tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);
DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
Nota: n = 2 significa que foi pressionado o botão Alterar...Muito obrigado
Elias Jr
Curtir tópico
+ 0
Responder
Posts
19/06/2003
Hebert
Antes do
coloca:
DM1.TB_RecArqv.Post; DM1.TB_RecArqv.Refresh;
coloca:
DM1.TB_RecArqv.Edit;
Responder
Gostei + 0
20/06/2003
Dorivansousa
Botão Salvar:
if n = 1 then
begin
[color=darkred:a57fad5778][b:a57fad5778]tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80); [/b:a57fad5778][/color:a57fad5778]DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
end
else
if n = 2 then
begin
[b:a57fad5778][color=darkred:a57fad5778]tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80); [/color:a57fad5778][/b:a57fad5778]DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
na parte destacada falta aponta o datamodule
Botão Salvar:
dm.tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1)); //acrecentei o ´DM.´ no inicio da linha
dm.tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);
so ocorre da forma que vc descreveu se tive a tabela no formulario em questão.
if n = 1 then
begin
[color=darkred:a57fad5778][b:a57fad5778]tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80); [/b:a57fad5778][/color:a57fad5778]DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
end
else
if n = 2 then
begin
[b:a57fad5778][color=darkred:a57fad5778]tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80); [/color:a57fad5778][/b:a57fad5778]DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
na parte destacada falta aponta o datamodule
Botão Salvar:
dm.tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1)); //acrecentei o ´DM.´ no inicio da linha
dm.tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);
so ocorre da forma que vc descreveu se tive a tabela no formulario em questão.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)