[Resolvido] Listbox (Zeros a esquerda)

[CezarCattani 0]

Ola..

 

Estou fazendo um select para apresentar informações em um ListBox.

 

o problema é que:

lst_Selecionado.DataValueField = "EXAMECOD"

o Campo EXAMECOD é = "000115284"

 

E quando faço o INSERT a informação no banco de dados

INSERT INTO XXXXXXXXXXXX (EXAMECOD) VALUES (" & lst_Selecionado.Items(I).Value & ")"

Ele está retirando os primeiros zeros: "115284", alguém sabe como resolver.

 

Pensei em formatar a quantidade de caracteres colocando zeros antes, mas o tamanho varia de acordo com o cadastro do cliente.

 

Obrigado,

 

No aguardo,

 

Cattani

[Danimar 0]

Se o campo no banco de dados for do tipo int ou numeric nao tera como deixar os zeros a esquerda,

a solucao seria deixar o campo do tipo varchar.

e no insert o seu valor do listbox tambem tem que ser do tipo string, pois na conversão o vb pode achar que esse campo é do tipo integer e remover os '0's da frente.

Não sei se era essa sua duvida.

Ate mais.

[quintelab 91]

Para ter os zeros a esquerda, primeiramente o campo ter que ser do tipo texto. E outra coisa é passar aspas simples no seu insert.

Desta forma:

INSERT INTO XXXXXXXXXXXX (EXAMECOD) VALUES ('" & lst_Selecionado.Items(I).Value & "')"

Abraços...

[CezarCattani 0]

Opa..

 

Obrigado pela resposta, a sua resposta junto com a do Danimar, acredito que o problema estará solucionado..

 

Estou aplicando e fazendo os teste, depois eu informo os resultados.

 

Obrigado,

 

Cattani

[CezarCattani 0]

:rolleyes:

 

Isso mesmo, problema resolvido, no INSERT estava tratando como campo numerico e coloquei um Dim xxxxx as string

 

Obrigado.