Solved

Problem in reading records of Oracle  in VB

Posted on 2002-07-17
3
135 Views
Last Modified: 2010-05-02
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
0
Comment
Question by:a_padwal
3 Comments
 
LVL 14

Expert Comment

by:ajexpert
ID: 7159279
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
 
LVL 142

Accepted Solution

by:
Guy Hengel [angelIII / a3] earned 100 total points
ID: 7159294
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
 

Author Comment

by:a_padwal
ID: 7161289
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

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

25 Experts available now in Live!

Get 1:1 Help Now