Campo Double No Mdb

[Lello]

Estou com um problema .Tenho uma Tabela com registros Double , Estava Fucionando mas não sei o que aconteceu , os Campos Doubles so estao aceitando 8 digitos Ex. (12345678)

Até já criei outra Tabela mas acontece a mesma coisa .

Muito Obrigado

[kuroi]

e o que acontece se você tentar por mais de 8?

[Lello]

não da nenhum tipo de erro, so não cabe , isto que esta estranho

já tentei reparar o banco de dados , e continua na mesma

até dentro do visual data manager não consigo

[Graymalkin]

Testei aqui e deu certo:

    Dim d As Double
    
    d = 123456789
    
    rs.Fields("Valor").Value = d
    rs.Update

Você está utilizando ADO ou DAO? O exemplo acima é com ADO.

Abraços,

Graymalkin

[Lello]

Ado , a engraçado e que estava funcionando e derrepente deparei que estava faltando numeros no campo , entrei direto no banco de dados fora do meu sistema e acontece a mesma coisa não cabe mais de 8 digitos , teste em outro micro aqui e a mesma coisa

segue abaixo arquivo de banco de dados com problema

Banco de Dados com campos double

[Graymalkin]

Funcionou do mesmo jeito, com o banco que você disponibilizou. Utilizei o campo "Quantidade " (que aliás, tem um "espaço" no final do nome do campo) para armazenar aquele double do outro post e deu certo. Você pode postar como você está fazendo essa atualização/inserção?

Abraços,

Graymalkin

[Lello]

Segue abaixo o codigo da inserção

With TbGzLvs

.AddNew

.Fields("NumeroDoc") = Val(Mid(TEXTLINE, 1, 6))

.Fields("NumeroPedido") = Mid(TEXTLINE, 7, 8)

.Fields("TipoDoc") = Mid(TEXTLINE, 15, 1)

.Fields("TipoRegistro") = Mid(TEXTLINE, 16, 2)

.Fields("CodProduto") = Val(Mid(TEXTLINE, 18, 20))

.Fields("TipoProduto") = Mid(TEXTLINE, 38, 1)

.Fields("Quantidade") = Mid(TEXTLINE, 39, 8)

.Fields("ValorUnitario") = CCur(Mid(TEXTLINE, 47, 9) & "," & Mid(TEXTLINE, 56, 2))

.Fields("ValorTotal") = CCur(Mid(TEXTLINE, 60, 9) & "," & Mid(TEXTLINE, 69, 2))

.Fields("CodVendedor") = CInt(Mid(TEXTLINE, 71, 4))

.Fields("CodEmpresa") = CInt(Mid(TEXTLINE, 75, 3))

.Fields("CodCliente") = Val(Mid(TEXTLINE, 78, 16))

.Fields("TipoCliente") = Mid(TEXTLINE, 94, 1)

.Fields("Loja") = CInt(Mid(TEXTLINE, 95, 3))

.Fields("Caixa") = CInt(Mid(TEXTLINE, 98, 3))

.Fields("Operador") = CInt(Mid(TEXTLINE, 101, 4))

.Fields("Data") = DateValue(Mid(TEXTLINE, 111, 2) & "/" & Mid(TEXTLINE, 109, 2) & "/" & Mid(TEXTLINE, 105, 4))

.Fields("Hora") = Mid(TEXTLINE, 113, 5)

.Fields("CodFinalizadora") = Mid(TEXTLINE, 118, 3)

.Fields("CGC") = Mid(TEXTLINE, 121, 19)

.Fields("Banco") = Mid(TEXTLINE, 140, 3)

.Fields("Agencia") = Mid(TEXTLINE, 143, 7)

.Fields("AntigoContaCorrente") = Mid(TEXTLINE, 150, 9)

.Fields("NumeroCheque") = Mid(TEXTLINE, 159, 6)

If Trim(Mid(TEXTLINE, 165, 8)) <> "" Then .Fields("DataVencimento") = DateValue(Mid(TEXTLINE, 171, 2) & "/" & Mid(TEXTLINE, 169, 2) & "/" & Mid(TEXTLINE, 167, 2))

.Fields("Reservado") = Mid(TEXTLINE, 173, 1)

.Fields("CodTitular") = CInt(Mid(TEXTLINE, 175, 8))

.Fields("Sequencia_Cartao_Rc") = CInt(Mid(TEXTLINE, 183, 1))

.Fields("Via_Cartao_Rc") = CInt(Mid(TEXTLINE, 184, 1))

.Fields("Numero_Boleta_Cartao_Rc") = CInt(Mid(TEXTLINE, 185, 8))

.Fields("Codigo_condicao_Pagamento_Cartao_Rc") = CInt(Mid(TEXTLINE, 193, 4))

.Fields("Condicao_pagamento") = Mid(TEXTLINE, 197, 10)

.Fields("Telefone") = Mid(TEXTLINE, 207, 10)

.Fields("Atual_conta_Corrente") = Mid(TEXTLINE, 217, 10)

.Fields("CMC-7_NumeroDocumento") = Mid(TEXTLINE, 227, 70)

.Fields("Rede_Destino_tef") = CInt(Mid(TEXTLINE, 297, 4))

.Fields("Tipo_Transacao_Tef") = Mid(TEXTLINE, 301, 1)

.Fields("Numero_Cartao") = Mid(TEXTLINE, 302, 40)

.Fields("TipoDocumentoPagamentoConta") = CInt(Mid(TEXTLINE, 342, 3))

.Fields("StatusdaTransacaoTef") = Mid(TEXTLINE, 345, 1)

.Fields("ValorTroco") = CCur(Mid(TEXTLINE, 346, 10) & "," & Mid(TEXTLINE, 356, 2))

.Fields("TabelaPrecoUtilizada") = Mid(TEXTLINE, 358, 1)

.Fields("PontoConcedidosNesteItem") = CInt(Mid(TEXTLINE, 359, 8))

.Fields("Tributacao") = Mid(TEXTLINE, 367, 6)

.Fields("1DocumentoDigitado") = Mid(TEXTLINE, 373, 20)

.Fields("ContadoOrdemOperacao") = Val(Mid(TEXTLINE, 393, 6))

.Fields("NumeroOrdemItemCupom") = CInt(Mid(TEXTLINE, 399, 6))

.Fields("2DocumentoDigitado") = Mid(TEXTLINE, 405, 20)

.Fields("3DocumetoDigitado") = Mid(TEXTLINE, 425, 20)

.Fields("4DocumntoDigitado") = Mid(TEXTLINE, 445, 20)

.Fields("NumeroEcf") = CInt(Mid(TEXTLINE, 465, 3))

.Fields("Arquivo") = Arquivo

.Update

End With

[Graymalkin]

O seu texto (TEXTLINE) está com vírgula ou ponto como separador decimal? O Val() é sensível a isso, veja:

? val("19234,44")
 19234 

? val("19234.44")
 19234,44 

Veja que no caso da vírgula (que é o correto aqui no Brasil), ele "come" as casas decimais porque ele espera que seja o ponto. E, quando se coloca o ponto ele retorna o valor correto, e com a vírgula. Você também pode utilizar CDBl() que tem o comportamento certo com a vírgula e errôneo (do ponto de vista que o resultado não é desejado - porque errado mesmo ela não está) com o ponto:

? cdbl("19234,44")
 19234,44 

? cdbl("19234.44")
 1923444 

Verifique se não é esse o problema.

Abraços,

Graymalkin

[Lello]

Muito obrigado, acho que o problema maior era o windows xp , formatei minhas maquinas e funcionou

não sei dizer exatamente o que era , mas valeu

muito obrigado pela ajuda e dedicação