Problem in reading records of Oracle in VB

I have one table in my oracle database (version 8.1.7) ProductClassification
 which has following fields
 
 Name                Null?    Type
 ------------------ -------- --------------------------
 ID                           NUMBER(38)
 DESCRIPTION                  VARCHAR2(555)
 
 data in those fields is
 id Description
 -- -----------
 1   aaa
 2   bbb
 3   ccc
 
 I want to read those values in my program.For that I opend recordset as follows
 
 Dim con As New ADODB.Connection
 Dim rs As New ADODB.Recordset

 con.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=test;Password=test;Data Source=vbi"
 rs.Open "select * from ProductClassification", con, 1, 2

If rs.EOF = True Then
    MsgBox "Failed"
Else

    Do While Not rs.EOF
     MsgBox rs.Filelds(0)  
     MsgBox rs.Filelds(1)
     rs.MoveNext
    Loop
End If



rs.Close
con.Close
Set rs = Nothing
Set con = Nothing


for description field it is showing correct values like aaa,bbb,ccc. but for id field it is showing 0 for all rows insted of actual values.
I tried
MsgBox rs("ID")
but it is showing same 0 instead of actual values

any suggetion,whether there is any problem in code or database
a_padwalAsked:
Who is Participating?
 
Guy Hengel [angelIII / a3]Billing EngineerCommented:
ID NUMBER(38)

is the ID field actually NUMBER or NUMBER(38). This is the same for the size, but ADO has a problem with NUMBER. Try changing the ID to NUMBER(37) or NUMBER(38), which should help.

CHeers
0
 
ajexpertCommented:
Hi,
    say rs.fields(0).value instead of rs.fields  

    Do While Not rs.EOF
        MsgBox rs.Fields(0).value  
        MsgBox rs.Fields(1).value
        rs.MoveNext
    Loop
0
 
a_padwalAuthor Commented:
thanks for answer it worked.
but other way also ,Priviously I was using "Provider=MSDASQL.1" for opening connection.But after using "Provider=MSDAORA.1" problem is solved.

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.