Answer / manjunathareddy

Set oExcel=CreateObject("Excel.Application")
oExcel.Visible=True
Set oBook=oExcel.Workbooks.Add
Set oSheet=oBook.Worksheets(1)

Set Con=CreateObject("ADODB.Connection")
Con.Open("QT_Flight32")
Set RsObj=Con.Execute("Select * From Orders")
total=RsObj.Fields.Count
Do until RsObj.EOF
j=j+1
For i=1 to total - 1
oSheet.Cells(j,i+1).Value=RsObj.Fields(i).Value
Next
RsObj.MoveNext
Loop

Answer / jegan

''Connect to the DataBase
Function getConnection ()
On Error Resume Next
Dim oConnection, oConnectionString
'oConnectionString = "Provider=SQLOLEDB; Data
Source=192.168.10.104; Initial Catalog=UASC; User
Id=developer; Password=tiger!@;"
oConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Program Files\HP\QuickTest
Professional\samples\flight\app\flight32.mdb; User Id=admin;
Password=;"
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Open oConnectionString
Set getConnection = oConnection
End Function

'Check that database connected or not
'Dim MyConnString, MyConnection
'Set MyConnection = getConnection
'If MyConnection.Errors.Count = 0 then
' msgbox "Database Connected"
'Else
' msgbox Err.Description
'End If

''Retrieve DB Records
Function getRecordset (strSQL)
On Error Resume Next
Dim oConnection, oRecordSet
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordSet = CreateObject("ADODB.Recordset")
oConnection = getConnection()
oRecordSet.Open strSQL,oConnection,adOpenStatic
Set getRecordset = oRecordSet
End Function

''Get recordset
Set MyRecordset = getRecordset ("Select * from Orders" )
''Get number of columns in table
nColumns = MyRecordset.Fields.Count
''Add a sheet in your datatable
Datatable.AddSheet ("DBImport")
For n = 0 to nColumns-1
''Get column name
ParamName = MyRecordset.Fields(n).Name
''Add DTParameter
Datatable.GetSheet("DBImport").AddParameter
ParamName, ""
nRow = 1
MyRecordset.MoveFirst
''Retrieve and place data in data table
Do while MyRecordset.EOF <> True
Datatable.SetCurrentRow(nRow)
Datatable(ParamName,"DBImport") =
MyRecordset.Fields(ParamName)
nRow = nRow + 1
MyRecordset.MoveNext
Loop
Next

Hi, I am new to QTP testing and was exploring the frameworks used for automation. I wanted help in writing various scripts and files for keyword driven automation like 1. Control File 2. Test Case File 3. Startup Script 4. Driver Script 5. Utility Script . etc It would be great if someone can give help in this context ... Thanks

0 Answers  

---

I Scheduled a QTP Script on remote desktop. Script is going to failure,when remote desktop connection fails.I have to open my remote desktop untile the scripts exection completes. If I disconnect my remote desktop connection, script is going to fail.?

1 Answers   TCS,

---

in QTP we test web based application at that time what script is run? is support vb script? plz tell me

3 Answers  

---

1. How can we use same object repository and Testscript which is in English flavor to check the application in different languages thru QTP?(Chinese,Dutch,French) - I generated script in english and want to use the same script with different languages? - for windows i used regular expressions - I need for edit box,button and combobox, (English,French,Dutch,Chinese) These are the properties of a button in different languages Properties English Dutuch Chinese French x 400 758 631 601 y 673 603 592 676 windowstyle 1342242816 1342242816 1342242816 1.34E+09 windowid 2 2 2 2 windowextended style 4 4 4 4 width 120 120 120 120 visible TRUE TRUE TRUE TRUE righttoleft reading FALSE FALSE FALSE FALSE righttoleftlayout FALSE FALSE FALSE FALSE rightaligned FALSE FALSE FALSE FALSE regexpwndtitle cancel Loschen Chinese language Annuler regexpwndclass button button button button objectclass button button button button hwnd 132872 657228 656932 656782 height 33 33 33 33 focused FALSE FALSE FALSE FALSE enabled TRUE TRUE TRUE TRUE attached text abs_y 669 599 627 597 abs_x 396 754 588 672 text cancel Loschen Chinese language Annuler nativeclass button Button ordinal Identifier type,Value none none none none smartidentification FALSE FALSE FALSE FALSE comment

1 Answers   TCS,

---

hai friends i already ask this question but when i post the question the alignment goes wrong .....my question is we have a WEB TABLE ....assume that web table having 3 row's and 3 column here in 2nd row 3rd column having VISIT FACEBOOK link...now i want to check the VISIT FACEBOOK link is available or not ..if it's there i want to click the link ...then how to find the web table row or column count ....don't write the excel or data table script here friends .....consider that it's a WEB TABLE do a favour ...thank's

3 Answers  

---

In Keyword driven frame work you have write 30 test case for one scenario,in which 10 test cases are failed while executing.client asked you to execute only the failed test cases. HOw can you execute only failed test cases

2 Answers   IBM,

---

how would you go for testing a web application like any jobsite?(using manual n qtp)..pls frnds its very urgent ..i need realtime answers...thanks in advance

2 Answers   Wipro,

---

iam have done mba(finance)in 2008. in 2008 one reputed consultancy came off campus interview our institution. i got job as "manual test engineer". now iam working as "manual testing engineer". now my problem is when iam going interview the interviewer asking like " ur mba gradute how can u get job in test engineer." this question i have faced every interview. iam explaining how iam getting job. but they are not trust me". pls tell me answer how i am giving relavent ans.. this is my mail id y.ramana84@gmail.com

0 Answers  

---

What is the use of text output value in quicktest professional?

0 Answers  

---

Can launch two instances of qtp on the same machine?

0 Answers  

---

when i am running login page i got test run error? Please give me the script to handle run time exceptions. It's urgent for me.

4 Answers  

---

How does QTP identifies the object in the application

6 Answers   Convergys,

---