Interested to Buy Any Domain ? << Click Here >> for more details...
How to connect to the Database from QTP?
- 10 Answers
- 113079 Views
- DB, Thatavarti Technologies, Xchanging, I also Faced
- E-Mail Answers
Answer Posted / sandipgami84
Dim ObjCon, ObjResult, ObjSQL
set ObjCon=Createobject("ADODB.Connection")
ObjCon.ConnectionString("DSN= ,UID= ,PWD= ")
ObjSQL="SELECT * FROM Emp"
ObjCon.Open()
ObjResult=ObjCon.Execute(ObjSQL)
ObjCon.Close()
ObjResult=Nothing
whtever ur data stored in ObjResult variable
| Is This Answer Correct ? | 31 Yes | 13 No |
Post New Answer View All Answers
Where is the resultset of a sqlquery (which is fired by rsobj.open sqlquery,xxxx,xxxx) stored ?
Explain the types of object repository?
In qtp, how you can remove the spaces from string?
What are the different kinds of test steps?
What kinds of security (firewalls, encryptions, passwords, etc.) will be required and what is it expected to do? How can it be tested?
What are the key elements available in test result window?
How to get Traceability matrix from TD?
If we put all properties in mandatory and assistive list of Normal Identification, Do we still need Smart?
Dear sir, i want to perform a QTP automated testing for mechancial engineering software like msc adams, msc nastran this softwares will help for mechanical engineering design analysis>> i know oad runner win runner, test director, QTp>> but i dont know how to use for automation
What are advantages of test automation?
how to fetch the values from grid? & qtp recogniges that grid as a webelement? what u do?
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
How to indentify MS-Word objects like Menubar, Toolbar, table/columns/rows/cells etc within Word document, using QTP?
What is the default add-ins in qtp?
Explain features of the latest version of qtp/ uft 12.1?
