How to display the first 3 letters in these "ABCDEFGH" using
qtp script?

Answer Posted / tvs ramakrishna chowdary

'every thing is correct up to query passing
'after that follow below code
rs.open "select column_name1 from table",conn
do while not rs.EOF
msgbox rs.fields(0)'here column count stards form 0
(or)
msgbox rs.fields("column_name1")'instead of column no we
can use column name also
next

Is This Answer Correct ?    0 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Hi, I got error message as "object does not support this property or method: "Test.Actions" when i execute the following line of script on QTP 9.0 Dim qtApp, qtRep Set qtApp = CreateObject("QuickTest.Application") Set qtRep = qtApp.Test.Actions("Action1").ObjectRepositories Can anyone tell me where i am wrong.

1789


I want to know what are QTP functons and what are VB script functions. What is the difference between them.When we have to use these functions.

1498


How to use debug tools?

2432


How do we handle run-time errors?

794


what is description object?

1810


Why is Client side image is preferred over server side image?

1666


what is the difference between IE & Netscape in web testing on a log in page

2029


i have doubt suppose iam purly working in manual, when i will get work to do on sql and performence testing? pls any one clarify doubt?

1751


What is CMMP and CMMH?

911


How can we retrieve the Bug Ids which are open&Reopen in status through QTP scrit?Please find the script which i tried... Dim objBugFactory, objBug Dim BugId Set TDConnection = QCUtil.TDConnection Set objBug = TDConnection.BugFactory If QCUtil.IsConnected then Reporter.ReportEvent 0, "Connected", "Connected to server: " + QCUtil.TDConnection.ServerName + chr (13) +"Project: " + QCUtil.TDConnection.ProjectName + chr (13) + "Domain: " + QCUtil.TDConnection.DomainName Reporter.ReportEvent 0, "Current time on server is","==>" & TDConnection.ServerTime Else Reporter.ReportEvent 1, "Not connected", "Not connected to Quality Center" End If If mybug.Status="Open" Then BugId=mybug.DefectId MsgBox BugId End If 'OR**********************************--------------------- -----********************************** If Bug_Fields("BG_STATUS").Value ="Open" Or "Re Open"Then BugId=Bug_Fields("BG_BUG_ID").Value MsgBox BugId End If

2792


what QTP Options do you know?

3149


Hello, Is there any way to send the test results in html format (or any other) by email using outlook after the test run ends? thank you in advance

1984


How can you close the second opened browser?

1072


Explain in brief about the quicktest professional automation object model?

731


how to write xml output check point bu useing descriptive programing .means without useing output check point

1864