Question { Cap Gemini, 7443 }

Hi, how can we retrieve a specific value from Excel Sheet
(Not datatable. for externel file).i mean to say from .xls
file.

and also tell me from xml file and .doc file.

and how can u parameterize ur script from .xls file.(Not
data table).

Answer

Hi I can divide ur question in to 3 parts
1. for xls file
2. for xml file
3. for doc file

1. For xls it is
GetCellData (Row, Column)
2. For XML
XMLFile(description).GetData
3. For Doc file it is
ReadLine( )


Any more querys in this then feel free to mail me to
testingwithshyam@gmail.com

Question { 6020 }

How to handle exception when data table is not available in
local host system or path is not correct(explain statement
with example)

Answer

Dim Dsn_conn,rs

Set objConnection=Createobject("ADODB.Connection")
Dsn_conn= "DSN=QT_Flight32;DBQ=C:\Program Files\Mercury
Interactive\QuickTest
Professional\samples\flight\app\flight32.mdb;Driver=C:\WINNT
\system32\odbcjt32.dll;DriverId=281;FIL=MS
Access;MaxBufferSize=2048;PageTimeout=5;"
objConnection.Open(Dsn_conn)
Set rs=CreateObject("ADODB.RecordSet")


Set rs=objconnection.execute(" select flight_Number from
Flights where flight_Number>20330") (Instead of this
statement search the table u will get it
)


rs.MoveFirst

While Not rs.EOF
Msgbox rs.fields.item("flight_Number")
rs.movenext
Wend

Question { 5674 }

Explain types of exception handling and script for that?

Answer

' Script :: Login
' Date ::
' Input Values :: dtable,text,mydate
'Last Modified ::

Option explicit
Dim dtable,text,mydate,url
url="C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
mydate=(mid(date,1,6)& right(date,2)) 'For Current Date Use
this statement
'mydate=(right(date,2)& mid(date,3,4)& right(date,2))
'datatable.GlobalSheet.AddParameter "Date", mydate
'datatable.Value(1,1)=mydate
datatable.Import("C:\Documents and
Settings\Shyam\Desktop\QTP_Script\User_Login\From.xls")
datatable.Import("C:\Documents and
Settings\Shyam\Desktop\QTP_Script\User_Login\To.xls")
'datatable.Import("C:\Documents and
Settings\Shyam\Desktop\QTP_Script\User_Login\Agent_Name.xls"
)
'datatable.Import("C:\Documents and
Settings\Shyam\Desktop\QTP_Script\User_Login\Password.xls")
' INVOKE The Login

'datatable(2, dtGlobalSheet)= url
SystemUtil.Run(url)

'Check Login exist
if dialog("Login").Exist then
'dialog("Login").WinEdit("Agent Name:").Set DataTable
("Agent_Name", dtLocalSheet)
'dialog("Login").WinEdit("Password:").Set DataTable
("Password", dtLocalSheet)
Dialog("Login").WinEdit("Agent Name:").Set DataTable
("A",dtLocalSheet)
Dialog("Login").WinEdit("Password:").Set datatable("B",
dtLocalSheet)
dialog("Login").WinButton("OK").Click
' Check for invalid user and password
If dialog("Login").Dialog("Flight
Reservations").Exist Then
dialog("Login").Dialog("Flight
Reservations").WinButton("OK").Click
Reporter.ReportEvent
micfail,"Login","Invalid User /Pwd Check"
msgbox "Invalid User /Pwd Check"
ExitRun(0)
End If
'else if
else
Reporter.ReportEvent
micfail,"Login","Login Dialog not exists"
msgbox "Login Dialog not exists"
ExitRun(0)

end if
Reporter.ReportEvent micdone,"Login","Login Sucessfull"

' Enter the order information
window("Flight Reservation").WinButton
("Button_NewOrder").Click
window("Flight Reservation").ActiveX("MaskEdBox").Type
Datatable("Fdate")
window("Flight Reservation").WinComboBox("Fly
From:").Select Datatable



...............
Any more question mail me testingwithshyam@gmail.com

Question { 3413 }

hi this is srinivasa(from blr) i complited my B.tech(e.c.e)
in 2007 im searching job in s/w testing but idont have
freshers resume for s/w testing please send some s/w
testing resume for me(fresfers resumes only) advns thnks
you

Answer

hi
srinivas

I have some resume formates wht is ur e-mail id let me know
or mail to me testingwithshyam@gmail.com