oracle 10g db connection

[tirumal]

hi
below coding is executing but no result.
I m using qtp10.00 version and oracle 10g enterprise version

Code:

On error resume next
Dim cn,rs
Set cn= createobject("ADODB.Connection")
Set rs= createobject("ADODB.Recordset")
cn.Open "provider= ORAOLEDB ; server= orcl ; database=ORCL ; userid = scott ; password = tiger"
rs.Open "select * from emp " , cn

While rs.EOF <> True
print rs("empname")
rs.MoveNext
Wend
rs.Close
cn.Close

[manishbhalshankar]

Hi Tirumal,

Try:

Code:

While Not rs.EOF

[Rekhapramod]

Hi,

Use this below code to get the records and save it in excel file

Code:

var_Schema="QADB"
SchemaUserNme="GHA09"
SchemaPswd="GHA09"

Set conn=CreateObject("ADODB.Connection")
Set Rec=CreateObject("ADODB.Recordset")
Set obj=CreateObject("Excel.Application")
Set wrk=obj.Workbooks.Open("C:\Book1.xls")


conn.open "Driver={Microsoft ODBC for Oracle};Server="&var_Schema&";UID="&SchemaUserNme&";Password="&SchemaPswd&";"
SQL="Select * from  user_mas where role_id='FC'"
Rec.Open SQL,conn
R=1

Do until Rec.EOF
var1=Rec.Fields ("User_id")
Rec.MoveNext    
obj.Sheets(1).Cells(R,1).value=var1
'obj.Sheets(1).Cells(rowcount, 1).Value = var_user_id
R=R+1
Loop

Rec.Close
Set Rec=Nothing
conn.Close
Set conn=Nothing

obj.Application.activeworkbook.Save
obj.Application.activeworkbook.Close
obj.Application.Quit
Set wrk=Nothing
Set obj=Nothing

[surya_7mar]

Try this...

Code:

Dim sDataSource
    sDataSource = envDBInstance
  
    Dim strConnection, oDbConn, rs, strSQL
    
    strConnection = "Provider=OraOLEDB.Oracle;Data Source=Oracle;User Id=SCOTT;Password=TIGER;"

    On Error Resume Next

    Set oDbConn = CreateObject("ADODB.Connection")
    oDbConn.Open strConnection
    
   Set oResultSet = CreateObject("ADODB.recordset")
    oResultSet.open sQuery, oDbConn, 3,3
    
    oResultSet.MoveFirst
    Dim arrOutput()
    Dim iIter, sDBRow,i
    iIter = 0
    Do Until oResultSet.EOF
            
        For i = 0 to oResultSet.Fields.Count - 1
            print(oResultSet.Fields(i) )
            
        Next
        oResultSet.MoveNext
    Loop
    oResultSet.close
    Set oResultSet = Nothing
    
    oDbConn.Close
    Set oDbConn = Nothing
    GetDBQueryData_Fun = arrOutput