valores diferente sql

[Fkarol 0]

Bom dia

Gostaria de pedir ajuda para um problema que eu nem sei porque esta acontecendo

Estou fazendo um programinha aqui e tenho que busca as informações em um banco

 

faço uso da mesma query SQL no vb6 e no IB Expert 2.0

sql = "SELECT valor FROM TICKETS t1 where t1.codigo = 6217 and t1.emissao = '07/04/2009'"

Entretanto

Os resultados são diferentes veja abaixo:

 

Vb6

18.20

32.47

80.38

 

Expert 2.0

18.20

32.48 valor diferente

80.38

 

Alguém poderia me ajudar já que eu não consigo compriender o porque da mesma consulta retorna valores diferente em um memso banco de dados

 

Desde já agradeço.

[scorpio 7]

Os valores do VB6 você mostra aonde? grid ? (onde viu que tádiferente)

 

Como está fazendo a conexão???

[Fkarol 0]

Private firebirdConexao As ADODB.Connection
Private firebirdrs As ADODB.Recordset
 Set firebirdConexao = New ADODB.Connection
 firebirdConexao.Open ("DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA;PWD=masterkey; DBNAME=XXX.XXX.XXX.XXX:/home/banco/banco.fdb")

o x representa o ip

 

sql = "SELECT valor FROM TICKETS t1 where t1.codigo = 6217 and t1.emissao = '07/04/2009'"
        Set firebirdrs = New ADODB.Recordset
        firebirdrs.Open sql, firebirdConexao, adOpenKeyset, adLockPessimistic
        Do While Not firebirdrs.EOF            
             MsgBox firebirdrs.Fields(0).Value
            firebirdrs.MoveNext
        Loop

eu usei o MsgBox so para verificar os valores

[scorpio 7]

Que triste cara :(.

 

Outro dia eu tava com um problema parecido, me retornava nomes com ç,ã,õ,í com outros caracteres. Daí fui ver era problema no DSN que eu tinha criado, eu tive que muda o charset do banco (sybase).

No firebird não tem nada que o cast ou o convert do sql? Você pode tentar converter para string. Daí elimina a possibilidade do banco ou qualquer outra coisa estar tentando arredondar.