Fórum Problemas para gravar no banco #183239
20/09/2003
0
Ola, estou usando a seguinte rotina para gravar as informações digitadas no banco(interbase):
DmlPrincipal.TBFUNCIONARIOS.Insert;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[1]:= EdNome.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[2]:= EdEndereco.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[3]:= EdBairro.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[4]:= EdCidade.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[5]:= EdCEP.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[6]:= EdUF.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[7]:= EdTelefone.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[8]:= EdNascimento.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[9]:= EdCargo.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[10]:= EdSalario.Text;
DmlPrincipal.TBFUNCIONARIOS.Post;
mas o delphi retorna o seguinte erro para todos os campos:
[Error] UFrmCadFunc.pas(72): Incompatible types: ´TFieldDef´ and ´TCaption´
O que estou fazendo de errado??
DmlPrincipal.TBFUNCIONARIOS.Insert;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[1]:= EdNome.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[2]:= EdEndereco.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[3]:= EdBairro.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[4]:= EdCidade.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[5]:= EdCEP.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[6]:= EdUF.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[7]:= EdTelefone.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[8]:= EdNascimento.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[9]:= EdCargo.Text;
DmlPrincipal.TBFUNCIONARIOS.FieldDefs[10]:= EdSalario.Text;
DmlPrincipal.TBFUNCIONARIOS.Post;
mas o delphi retorna o seguinte erro para todos os campos:
[Error] UFrmCadFunc.pas(72): Incompatible types: ´TFieldDef´ and ´TCaption´
O que estou fazendo de errado??
Kaniggia
Curtir tópico
+ 0
Responder
Posts
20/09/2003
Marcelo.c
Altere para:
DmlPrincipal.TBFUNCIONARIOS.Insert;
DmlPrincipal.TBFUNCIONARIOS.Fields[1][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdNome.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[2][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdEndereco.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[3][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdBairro.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[4][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdCidade.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[5][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdCEP.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[6][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdUF.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[7][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdTelefone.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[8][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdNascimento.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[9][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdCargo.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[10][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdSalario.Text;
DmlPrincipal.TBFUNCIONARIOS.Post;
DmlPrincipal.TBFUNCIONARIOS.Insert;
DmlPrincipal.TBFUNCIONARIOS.Fields[1][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdNome.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[2][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdEndereco.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[3][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdBairro.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[4][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdCidade.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[5][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdCEP.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[6][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdUF.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[7][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdTelefone.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[8][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdNascimento.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[9][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdCargo.Text;
DmlPrincipal.TBFUNCIONARIOS.Fields[10][b:6317e0aaa7].Value[/b:6317e0aaa7]:= EdSalario.Text;
DmlPrincipal.TBFUNCIONARIOS.Post;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)