[Resolvido] nuba

[Vinicius Ianni 189]

Boa Tarde !

 

Estou com uma duvida neste ponto:

 

preco = CInt(rs2("precovenda"))

ftdc = rs3("perc")

ftdc1 = ftdc+1

desc = (preco*ftdc)

desc = desc/ftdc1

desc = FormatNumber(desc,2)

 

o campo precovenda é decimal no mysql e quando executo o script dá o erro:

 

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'CInt'

 

acusando a linha :

preco = CInt(rs2("precovenda"))

como sendo a origem do erro, se eu retirar o cint, dá este erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch

 

a linha que acusa o erro sendo:

desc = (preco*ftdc)

 

o rs3("perc") é um campo inteiro.

 

Como posso resolver isso ?

[xanburzum 169]

cocloque como integer no MySQL

ou converta precovenda em cDbl()

[Vinicius Ianni 189]

Com o CDbl, dá o mesmo erro do Cint.

Colocar com integer no mysql vai permitir valores como 23.33 ?

Ao alterar uma propriedade da tabela eu perco dos dados desse campo certo ?

Recadastrar o preço de mais de 1500 itens vai demandar um tempo que além de não ser interessante para o andamento do projeto, ainda causa a interrupção do sistema que já está rodando :/

[jrcardozo 4]

concatene com zero para converter. certamente tem alguma variavel ou valor do recordset que está como null. Null concatenado com 0 é igual a 0 e zero é numero e pode ser forçada uma conversão

preco = CInt("0" & rs2("precovenda"))

[xanburzum 169]

você pode testar a variavel antes com IsNull, que devolve True ou False, a indicar se uma variável não contém dados válidos 'Null'.

Dim MeuVar, MeuCheck MeuCheck = IsNull(MeuVar) ' Devolve True.
MeuVar = Empty ' Fica Empty.
MeuCheck = IsNull(MeuVar) ' Devolve False.

[Vinicius Ianni 189]

Muito Obrigado pelas sugestões.

Resolvi o problema seguindo a dica, que funcionou perfeitamente aqui.

 

Muito obrigado mesmo.

 

Abraços,

Vinicius Ianni

[xanburzum 169]

beleza, kker duvida, posta ae