Fórum Como igualar um campo DB #205653
11/01/2004
0
1º ) Campos que tem mascaras no banco de dados não copia: veja exemplo:
Table2Nome.Value := ComboBox1.text; Funciona
Table2Endereco.Value := Table1Endereco.Value; Funciona
Table2Complemento := Table1Complemento; não funciona
Table2Bairro.value := Table1Bairro.value; Funciona
Table2Cidade.Value := Table1Cidade.value; Funciona
Table2Uf.value := Table1Uf.value; Funciona
Table2Telefone01 := Table1TelRes01; Não funciona
Table2Telefone02 := Table1TelRes02; Não funciona
Table2Telefone03 := Table1TelCom01; Não funciona
Table2Telefone04 := Table1TelCom02; Não funciona
2º Tento igualar o campo código ( auto incremento ) num outro campo de outra tabela ( CodigoAcess ) dá um erro :
comando:
Table2CodAcess := Table1Codigo.value;
erro:
[Error] Unit13.pas(238): Incompatible types: ´TStringField´ and ´Integer´
E aí alguém tem alguma idéia ?////
Obrigado pela atenção...
Gigatel
Curtir tópico
+ 0Posts
11/01/2004
Programaker
Seguinte: o erro 2 no código ´Table2CodAcess := Table1Codigo.value;´
ocorreu porque você tá atribuindo um variant num TStringField. Por isso ele reclamou de Incompatible types. è só fazer
Table2CodAcess.Value := Table1Codigo.value; que deve resolver seu problema.
No problema 1, acho que a treta acontece por um motivo parecido. ao invés de atribuir um campo no outro do jeito que você tá fazendo, porque você não atribui os ´Values´ como nos outros? Assim você efetivamente vai atribuir o VALOR de um field no valor do outro field, ao invés de fazer um TField receber a referência de outro TField o que eu acredito que não tem nada a ver com o que você realmente quer fazer
Bom, já vou indo... tenho um exótico programa que fecha sozinho pra tratar (sabe como que arruma isso?). Espero que eu tenha podido te ajudar!
Gostei + 0
11/01/2004
Gigatel
E assim eles ficaram felizes para sempre..... hehehe
Gostei + 0
11/01/2004
Gigatel
más o codigo ainda está dando erro..
função
Table2CodAcess.Value := Table1Codigo.value
erro gerado
[Error] Unit13.pas(240): Incompatible types: ´String´ and ´Integer´
agora fiz tudo certinho...
Gostei + 0
11/01/2004
Alexdias
MANDE- ME UM E-MAIL ...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)