QTP Database Script Examples

QTP Database Script Examples 1) Data Driven Testing for Login Operation by Fetching Test Data directly From a Database Option Explicit Dim objConnection, objRecordSet 'Creating an Automation Object in Database Connection Class, that can be used to connect to Databases Set objConnection=CreateObject("Adodb.Connection") 'Creating an Automation Object in Database RecordSet Class, that can be used to Perform Operations on Database Tables (Records) Set objRecordSet=CreateObject("Adodb.RecordSet") 'Establishing Connection String for MS Access Database objConnection.Provider=("Microsoft.Jet.OLEDB.4.0") objConnection.Open "C:\Documents and Settings\bannu\Desktop\gcreddy.mdb" 'Fetching Test Data using RecordSet Object objRecordSet.Open "Select * From Login",objConnection Do Until objRecordSet.EOF=True SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe" Dialog("text:=Login").Activate Dialog("text:=Login").Winedit("attached text:=Agent Name:").Set objRecordSet.Fields("Agent") Dialog("text:=Login").Winedit("attached text:=Password:").Set objRecordSet.Fields("Password") Wait 2 Dialog("text:=Login").Winbutton("text:=OK","width:=60").Click Window("text:=Flight Reservation").Close objRecordSet.MoveNext Loop objRecordSet.Close objConnection.Close Set objRecordSet=Nothing Set objConnection=Nothing 2) Write Data to a Database Table Dim objConnection, objCommandSet objConnection=CreateObject("Adodb.Connection")Set objCommand=CreateObject("Adodb.Command")objConnection.Provider=("Microsoft.ACE.OLEDB.12.0")objConnection.Open "C:\Documents and Settings\Test class\Desktop\Flights.mdb"objCommand.ActiveConnection=objConnectionobjCommand.CommandText ="Insert into Login values (8,'Chennai','Mercury')"objCommand.ExecuteobjConnection.CloseSet objCommand=NothingSet objConnection=Nothing-----------------------------------------------------3) Write Multiple Sets of Data to a Database Table Dim objConnection, objCommandDim objExcel, objWorkBook, objWorksheetSet objExcel=CreateObject("Excel.Application")Set objWorkBook=objExcel.Workbooks.Open ("C:\Documents and Settings\Test class\Desktop\data1.xls")Set objWorkSheet=objWorkBook.Worksheets("Sheet1")Set objConnection=CreateObject("Adodb.Connection")Set objCommand=CreateObject("Adodb.Command")objConnection.Provider=("Microsoft.ACE.OLEDB.12.0")objConnection.Open "C:\Documents and Settings\Test class\Desktop\Flights.mdb"objCommand.ActiveConnection=objConnectionRows_Count=objWorkSheet.Usedrange.Rows.CountFor i= 2 To Rows_Count Step 1SNO=objWorkSheet.Cells(i,"A")Agent=objWorkSheet.Cells(i,"B")Password=objWorkSheet.Cells(i,"C")objCommand.CommandText ="Insert into Login values ('"&SNO&"','"&Agent&"','"&Password&"')"objCommand.ExecuteNextobjWorkBook.CloseobjExcel.QuitSet objExcel=NothingobjConnection.CloseSet objCommand=NothingSet objConnection=Nothing---------------------------------------------------------4) Export Data from a Database Table to an Excel file (2nd Sheet) Option ExplicitDim objConnection, objRecordsetDim objExcel, objWorkbook, objWorksheet, i Set objConnection = Createobject ("Adodb.Connection")Set objRecordset = Createobject ("Adodb.Recordset")Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Documents and Settings\Test class\Desktop\data1.xls")Set objWorksheet = objWorkbook.Worksheets("Sheet2")objWorksheet.cells(1,"A") = "Agents"objWorksheet.cells(1,"B") = "Password"objConnection.Provider = ("Microsoft.ACE.OLEDB.12.0")objConnection.Open "C:\Documents and Settings\Test class\Desktop\Flights.mdb"objRecordset.Open "Select Agent, Password from Login", objConnectioni = 2 'RowsDo Until objRecordset.EOF objWorksheet.cells(i, "A") = objRecordset.Fields("Agent")objWorksheet.cells(i, "B") = objRecordset.Fields("Password")i = i + 1objRecordset.MoveNextLoopobjWorkbook.SaveobjWorkbook.CloseobjExcel.QuitSet objExcel = NothingobjRecordset.CloseobjConnection.Close Set objRecordset = NothingSet objConnection = Nothing----------------------------------------------------5) Export Data from a Database Table to a Text file  Option ExplicitDim objConnection, objRecordsetDim objFso,myFileSet objConnection = Createobject ("Adodb.Connection")Set objRecordset = Createobject ("Adodb.Recordset")Set objFso = CreateObject("Scripting.Filesystemobject") Set myFile=objFso.OpenTextFile("C:\Documents and Settings\Test class\Desktop\data1.txt",2)myFile.WriteLine "Agent  "&" Password"myFile.WriteLine "--------------------"objConnection.Provider = ("Microsoft.ACE.OLEDB.12.0")objConnection.Open "C:\Documents and Settings\Test class\Desktop\Flights.mdb"objRecordset.Open "Select Agent, Password from Login", objConnectionDo Until objRecordset.EOF myFile.WriteLine objRecordset.Fields("Agent")&" ," & objRecordset.Fields("Password")objRecordset.MoveNextLoopmyFile.CloseSet objFso=NothingobjRecordset.CloseobjConnection.Close Set objRecordset = NothingSet objConnection = Nothing------------------------------------------------6) Export Data from a Text File to a Database Table  Option ExplicitDim objConnection, objCommandDim objFso,myFile,myLine,myField,SNO,Agent,PasswordSet objConnection = Createobject ("Adodb.Connection")Set objCommand = Createobject ("Adodb.Command")Set objFso = CreateObject("Scripting.Filesystemobject") Set myFile=objFso.OpenTextFile("C:\Documents and Settings\Test class\Desktop\dat1.txt",1)objConnection.Provider = ("Microsoft.ACE.OLEDB.12.0")objConnection.Open "C:\Documents and Settings\Test class\Desktop\Flights.mdb"myFile.SkipLinemyFile.SkipLineDo While myFile.AtEndOfStream = FALSEmyLine = myFile.ReadLinemyField = Split(myLine,",")SNO = myField(0)Agent = myField(1)Password = myField(2)objCommand.ActiveConnection = objConnectionobjCommand.CommandText = "Insert into Login2 values('"&SNO&"','"&Agent&"','"&Password&"')"objCommand.ExecuteLoopmyFile.CloseSet objFso=NothingSet  objCommand = NothingobjConnection.Close Set objConnection = Nothing www.gcreddy.com www.gcreddy.net