VB, MDAC and progress database problem

• Previous message: Kate: "Re: problem with reading text content in textbox"
• Messages sorted by: [ date ] [ thread ]

Date: Fri, 7 Jan 2005 14:42:11 +0100

Hy!

I've a strange problem when reading an integer value from a table in a
progress database.
If the field contains a value ending with a zero, (ex.: 24580) the value
that my VB code returns to me is without the significant zero (ex. 2458).
I've tried the same things with a C++ program, without this strange problem
(thanks C++ :-) ).

Here is my VB Code
------------------------
Sub Test_Compteur()
'
Dim Compteur As Object
Dim Connection As Object
Dim Record As Object

Dim connString As String
Dim ID As Long

' I know that the result is 248150
'
sqlStr = "select MAX(Volgnummer) from Prive_Persoon where Firma_Code =
'ana'"

Set Connection = CreateObject("ADODB.Connection")

Connection.Properties("Password") = "pby"
Connection.Properties("User ID") = "PBY"
Connection.Properties("Data Source") = "dima_test"

Results = Connection.Open

Set Record = CreateObject("ADODB.Recordset")
Results = Record.Open(sqlStr, Connection)

If Not Record.EOF Then
    Value = Record.Fields(0).Value
End If

'I received 24815 as Value
Results = MsgBox(Value, vbOKOnly)

'Set Compteur = CreateObject("DimasysDal.Compteur")
'idAdress = Compteur.NextIdPersonne
'Set Compteur = Nothing

Set Record = Nothing
Set Connection = Nothing

End Sub

• Previous message: Kate: "Re: problem with reading text content in textbox"
• Messages sorted by: [ date ] [ thread ]