Trailing zeroes in numeric fields being truncated in ADO recordset

Install MDAC 2.7 Refresh and change the OLE DB drivers for Try using default MDASQL drivers. If the result is correct then  there is some problem with OLEDB drivers you are using.

wat query u using?

In answer to your comments:

supunr:  The database is on a different computer.  It is running sybase on a unix machine.  I am not using cursors.

Sethi:  I tried installing MDAC 2.7 Refresh.  No luck.  I still get the same result.  I am not sure what you mean by using the default MDASQL drivers.  How do I do that?

Asif_Saadat:  Here is the code I am using.  The query really doesn't matter.  I will just show you a very simple example that fails.

Private Sub Command1_Click()
Dim strQuery As String
Dim mobjSybaseConnector As libEFTSybase.EFTSybaseConnect
Dim madconDB As ADODB.Connection ' Database Connection

Set mobjSybaseConnector = New libEFTSybase.EFTSybaseConnect
Set madconDB = mobjSybaseConnector.adconGetConnection
   

strQuery = "SELECT amount from teft"

    Dim objCmd As ADODB.Command
    Dim objRS As ADODB.Recordset
    Set objCmd = New ADODB.Command
    With objCmd
        Set .ActiveConnection = madconDB
        .CommandType = adCmdText
        'Input Parameters
        .CommandText = strQuery
        Set objRS = .Execute
    End With
   
    While Not objRS.EOF
        objRS.MoveNext
    Wend

End Sub

When you create a DSN specify provider other than Sybase. Try OLEDB for ODBC. Although this is not a permanent solution but it will help in determining the source of error.

I do not have anything called OLEDB for ODBC or any default driver close to that on my PC.   Is there a web site that I can download such driver from?

When you install MDAC these drivers are installed on your machine. How are you creating your DSN?

I am reading the values from the Registry.  Here is the code that creates the connection:

'   get connection variables from the registry
    strUserId = objRegistry.ReadDataWithDefault(HKEY_LOCAL_MACHINE, _
                                mstrREG_ROOTKEY, _
                                mstrREG_USERID_KEY, _
                                mstrREG_DEFAULT_USID)
   
    Set objEnv = New libEnvironment.Environment
   
    strEncryptedPwd = objRegistry.ReadDataWithDefault(HKEY_LOCAL_MACHINE, _
                        mstrREG_ROOTKEY, _
                        mstrREG_PASSWORD_KEY, _
                        objEnv.Encrypt(mstrREG_DEFAULT_PASSWORD, mstrREG_DECRYPTION_KEY))
                               
    strDriver = objRegistry.ReadDataWithDefault(HKEY_LOCAL_MACHINE, _
                                mstrREG_ROOTKEY, _
                                mstrREG_DRIVER_KEY, _
                                mstrREG_DEFAULT_DRIVER)
                               
    strLibraryName = objRegistry.ReadDataWithDefault(HKEY_LOCAL_MACHINE, _
                                 mstrREG_ROOTKEY, _
                                 mstrREG_LIBRARY_KEY, _
                                 mstrREG_DEFAULT_LIBRARY)
                               
    strOther = objRegistry.ReadDataWithDefault(HKEY_LOCAL_MACHINE, _
                                mstrREG_ROOTKEY, _
                                mstrREG_OTHER_KEY, _
                                mstrREG_DEFAULT_OTHER)
                               
    Set objRegistry = Nothing

'   the password in the registry is encrypted so decrypt it

    strPassword = objEnv.Decrypt(strEncryptedPwd, mstrREG_DECRYPTION_KEY)
    Set objEnv = Nothing
    Set adconThis = New ADODB.Connection
    With adconThis
       
'   build dsnless connection string
        .ConnectionString = "Driver=" & strDriver & ";" & _
                    "UID=" & strUserId & ";" & _
                    "PWD=" & strPassword & ";" & _
                    "SRVR=" & strLibraryName & ";" & _
                    strOther
 
        .Open
     End With