Fórum Copiando campo autoinc para um edit #152763
07/04/2003
0
Tenho os campos:
Cod
Numero
Preciso copiar o numero autoinc do campo cod no campo numero, mostrando num edit normal
Tipo, nao quero mostrar o autoinco num dbedit, quero copiar o numero autoinc para o edit comum
[]´s
Cod
Numero
Preciso copiar o numero autoinc do campo cod no campo numero, mostrando num edit normal
Tipo, nao quero mostrar o autoinco num dbedit, quero copiar o numero autoinc para o edit comum
[]´s
Anonymous
Curtir tópico
+ 0
Responder
Posts
07/04/2003
Anonymous
Amigo uso edit..não gosto de dbedit
uso o Seguinte codigo para pegar o ultimo codigo
With QCidade do Begin
SQL.Clear;
SQL.Add (´Select Max(Codigo) as Autonumero from Cidades´);
open;
end;
if QCidade [´Autonumero´] > 0 then
editCodigo.Text :=IntToStr(StrToInt(QCidade[´Autonumero´])+ 1 );
Espero ter ajudo.fui
uso o Seguinte codigo para pegar o ultimo codigo
With QCidade do Begin
SQL.Clear;
SQL.Add (´Select Max(Codigo) as Autonumero from Cidades´);
open;
end;
if QCidade [´Autonumero´] > 0 then
editCodigo.Text :=IntToStr(StrToInt(QCidade[´Autonumero´])+ 1 );
Espero ter ajudo.fui
Responder
Gostei + 0
08/04/2003
Anonymous
Amigo uso edit..não gosto de dbedit
uso o Seguinte codigo para pegar o ultimo codigo
With QCidade do Begin
SQL.Clear;
SQL.Add (´Select Max(Codigo) as Autonumero from Cidades´);
open;
end;
if QCidade [´Autonumero´] > 0 then
editCodigo.Text :=IntToStr(StrToInt(QCidade[´Autonumero´])+ 1 );
Espero ter ajudo.fui
No meu caso ID eh autoinc e Codigo eh tipo texto
Da erro: edit1.Text:= IntToStr(StrToInt(codigo[´ID´])+ 1 );
[]´s
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)