Como igualar um campo DB
Estou com 2 problemas em para igualar campos:
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...
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
Curtidas 0
Respostas
Programaker
11/01/2004
Falaí cara!
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!
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
Gigatel
11/01/2004
Ptz! não acredito que dei esta mancada...estou Progamando a mais de 6 horas direto, deve ser por isso que dexei passar batido... Mas valeu pelo aviso Obrigadão....
E assim eles ficaram felizes para sempre..... hehehe
E assim eles ficaram felizes para sempre..... hehehe
GOSTEI 0
Gigatel
11/01/2004
Os outros problemas já foram resolvidos
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...
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
Alexdias
11/01/2004
CONFIRA NA ESTRUTURA DAS TABELAS FISICAS POIS 01 DOS 2 CAMPOS ESTA COMO TEXTO ( STRING ) POIS A OUTRA COM CERTEZA E INTEGER POR SE TRATAR DE AUTOINCREMENTO...
MANDE- ME UM E-MAIL ...
MANDE- ME UM E-MAIL ...
GOSTEI 0