Erro APPENDRECORD com ADOTABLE

Delphi

15/01/2004

Sou iniciante,
Estou no meu primeiro projeto DELPHI7/ACCESS, para acessar as tabelas uso ADOCONECCTION/ADOTABLE.
Para uma das tabelas, montei uma tela de inclusão usando o COMBOBOX e O EDIT da paleta Standart.
Coloquei um botão salvar e no evento ONCLICK, coloquei a seguinte sintaxe:
-------------------------------
[color=orange:b7f4ad3fa1][/color:b7f4ad3fa1]Var nAliquota : Integer;
begin
nAliquota := StrToInt(EditIPIAliquota.Text);
DataModuleMamy.AdoTableIPI.AppendRecord([ComboBoxIPIGrupo.Text, nAliquota]);
DataModuleMamy.ADOTableIPI.Post;
---------------------------------
E quando aciono, recebo a seguinte mensagem de erro :

[color=red:b7f4ad3fa1][/color:b7f4ad3fa1] ´Project myproj.exe raised exception Clas EDatabaseError with message ´ADOTableIPI: DATASET not in edit or insert mode´ . Process Stoped´

Poderiam me ajudar???


Rs_2001

Rs_2001

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

15/01/2004

FAZ ASSIM:

Var nAliquota : Integer;
begin
nAliquota := StrToInt(EditIPIAliquota.Text);
[color=red:558f7fcae0]If(AdoTableIPI.State In [dsBrowse])Then
AdoTAbleIPI.Insert;[/color:558f7fcae0]
DataModuleMamy.AdoTableIPI.AppendRecord([ComboBoxIPIGrupo.Text, nAliquota]);
[color=red:558f7fcae0]If(AdoTableIPI.State In [dsInsert,dsEdit])Then[/color:558f7fcae0]
DataModuleMamy.ADOTableIPI.Post;


GOSTEI 0
POSTAR