O Zero não é Adicionado

[Xafam]

bom dia galera ..

to com o seguinte problema ..

eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678), acontece que tem nomes que começão com 0 (zero), e quando ele é importado para o banco de dados Access, o zero é importado ..

eu sei que Zero a direita não tem valor ... porem por ser nomes de arquivos, esse zero tem valor

tipo, o nº 05 é igual á 5, mas o nome 05 é diferente de 5 ..

qual comando eu faço para fazer o 0(zero) ser importado ???

[]s

Xafam

uma correçao , agora que vi ...

Siteção:

"eu tenho nome de arquivos em um TXT (os nomes são 8 numeros - Ex.:12345678), acontece que tem nomes que começão com 0 (zero), e quando ele é importado para o banco de dados Access, o zero é importado .."

na verdade o ZERO não é importado ..

ehehhe :blush: :blush: :blush:

[Xafam]

hhehehhe

mais uma coisa ...

Sitação:

"Eu sei que Zero a direita não tem valor "

quis dizer a ESQUERDA

foi mau, to no trab e nun tive tempo de revisar o que eu escrivi ...

t+

[Duduh_Capixaba]

Cara, se você estiver importando esses dados para um campo numérico, o zero à esquerda não vai aparecer mesmo. De duas uma: ou você formata seu campo numérico para que ele apresente sempre oito dígitos (assim: 00000000) ou você transforma seu campo numérico em campo texto (isso tudo dentro do Access, ok?!).

Lembrando que no caso de você formatar o campo numérico, ele sempre vai apresentar os oito dígitos, no caso, o número 1234, por exemplo, vai ficar assim: 00001234. Abraço!

Editado Agosto 6, 2008 por Duduh_Capixaba

[Xafam]

Lembrando que no caso de você formatar o campo numérico, ele sempre vai apresentar os oito dígitos, no caso, o número 1234, por exemplo, vai ficar assim: 00001234. Abraço!

isso não teria importancia não , porque todos os nomes tem 8 caracteres ...

mas aki, eu achei uma solução

olha o codigo

Memo1.Lines.LoadFromFile('c:\Dm\TXT2MDB\Lista\lista.txt');

for x:=0 to Memo1.Lines.Count - 1 do
    begin

    bloco2:=copy(Memo1.Lines.Strings[x],1,8);

    comando := 'INSERT INTO ARQUIVO(ARQ_NOME) VALUES(' + quotedStr(bloco2) + ')';

    ADOCommand2.CommandText := comando;
    ADOCommand2.Execute;
    
end;

tipo, eu mandava adicionar sem colocar aspas no nome(bloco2), ai usei o comando quotedStr e deu certo

[]s,

Xafam