QTP Database conenction and parameterization of the values

[somisays]

hi,
It seems problem with the connection string.
Try using the DSN conn string..

Code:

Conn.Open("DSN=devmitg;username=xxx;password=yyy;")

And let me know the result.

[siri]

Hi sridhar ,

I modified the code just trying to get the meanings of the table .

Here the loop got no ending it is showing the !st values as America .It is an unending loop.

I have 5 values Americas,Europe etc but it is showing me Americas only all the time and it is an unending loop .

I believe the record count is not working

Please do help me by viewing the code

Code:

Set conn=CreateObject("ADODB.Connection")
    conn.Open("DRIVER={Oracle in OraHome92};SERVER=DEVMITG;UID=ITL_ASSET;PWD=ITL_ASSET;DBQ=DEVMITG")

   Set rs = CreateObject("ADODB.recordset")
sql = "Select Code, Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' "

      rs.Open sql,conn
  
'            Recordcount = rs.Recordcount

                  While(NOT Rs.EOF)
                Msgbox rs.Fields("Meaning")

                    For i=1 to Recordcount
'                     rs.MoveNext
'    

              Next
wend

   conn.close
  rs.close

[somisays]

Dear Siri,

You commented Rs.MoveNext ...
So that's why it is on only first record.
So take that out it is going to workout.

[siri]

I have removed

this is my modified script
still it is showing me as americas only whe n i catch the meaning it is nto showing me the next meanin g

Code:

Set conn=CreateObject("ADODB.Connection")
                                      conn.Open("DRIVER={Oracle in OraHome92};SERVER=DEVMITG;UID=ITL_ASSET;PWD=ITL_ASSET;DBQ=DEVMITG")

           Set rs = CreateObject("ADODB.recordset")
           sql = "Select Code, Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' "

                      rs.Open sql,conn
  
                             Recordcount = rs.Recordcount

                                                            While(NOT Rs.EOF)
                                                            Msgbox rs.Fields("Meaning")
                                                            For i=1 to Recordcount

                                                                rs.MoveNext


                                                                

                                                            Next
                                                            Wend

                                                            rs.Close
                                                            conn.Close

[somisays]

Dear Siri,
do couple of things for me..

1)Please check the record count ? how many records ?
2) Please go to SQLPLUS and do the following query
see how many records comes. and lete me know...

Code:

sql = "Select Code, Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' "

[siri]

There are 5 records

SQL> Select Code, Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' ;

CODE
--------------------
MEANING
--------------------------------------------------------------------------------
1
Americas

2
Europe

3
Asia


CODE
--------------------
MEANING
--------------------------------------------------------------------------------
4
Global

5
Unknown

[siri]

but i am specifying only the meaning

SQL> Select Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' ;

MEANING
--------------------------------------------------------------------------------
Americas
Europe
Asia
Global
Unknown

[somisays]

Hi,
That is fine..
But what is the recordcount in QTP message box you are getting.

[siri]

Hi
I am getting as Americas in an infinite loop.
The next meaning is not populating

As i am taking the Meaning i am getting Americas and the next too americas instead of Europe
Msgbox rs.Fields("Meaning")

[siri]

I believe the loop is not closed properly