Inserir valores decimais em uma tabela

[JCORTEZ 0]

Pessoal, voltei... http://forum.imasters.com.br/public/style_emoticons/default/blush.gif Porém o meu problema agora é outro... estou fazendo a carga de um arquivo texto para um tabela num bd Acess, porém os valores não esta sendo inseridos corretamente... esta faltando as casas decimais...eis o codigo de inserção...

Cria = "insert into ImportaTexto(CODIGO, [Descr], Valor)" & "Values(" _              & Val(A(0)) & ",' " & A(1) & " ',  " & CDbl(A(2)) & " )"

este é o resultado deste insert...

insert into ImportaTexto(CODIGO, [Descr], Valor)Values(40150,' ACES DESCANCO DE CABECA IMP HP 840C ',  1500 )

vejam o ultimo valor (1500) este no arquivo como (15.00)e aparece no bd como R$ 1500,00...como acerto isto?? alguem sabe :( Agradeço a ajuda pessoal ... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Luizgrs 0]

Isso daí é por causa das propriedades do próprio campo, olha lá se está com alguma máscara ou tipo moeda

[luiz humberto 0]

Por causa do ".", utilize a função replace e substitua por ",".

[JCORTEZ 0]

sim , quando crio a Tabela o valor esta como moeda (olhei pelo Acess), tb ja substituí o "." por "," mas não adiantou, o q acontece é que se eu tenho um valor , digamos , "1,75" , quando gravo na tabela fica "1,00", ja tentei usar o comando Format mas não adiantou ( tb não sei se utilizei corretamente..)...

 

enfim se alguem tiver mais alguma sugestão....agradeço...

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Luizgrs 0]

tenta inserir entre apostrofos, ou substitui a vírugla por ponto

[luiz humberto 0]

Utilize o FormatNumber.

NewValor=FormatNumber(Valor,2)

[JCORTEZ 0]

Luizgr, tentei substituir virgula por ponto e trabalhar com aprostofo, porém ainda assim não funcionou, utilizei então a dia do Luiz Humberto , e.... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif , FUNCIONOU!!!! ....

 

Uma ultima coisa antes de encerrar este tópico, tem como eu verificar se a tabela ja existe (eu havia copiado uma codificação de uma dica, porém não funcionou... http://forum.imasters.com.br/public/style_emoticons/default/blush.gif )???

 

 

Valeu pela ajuda !!!!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[luiz humberto 0]

Precisando estamos ae...

Relacionado a sua dúvida, veja este link.

Verifica se Existe a Tabela

[Luizgrs 0]

Também da pra você fazer de uma outra mandeira, faz um select usando a tabela que você quer saber se existe, mas antes você usa o on error se der erro a tabela não existe, senão...

[JCORTEZ 0]

ok valeu Luiz, vou tentar esta solçução tb..

 

Brigadu a vb e a Todos que ajudaram... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif