Answer Posted / hari

'-----------------------------------------------------------
--------Create the Connection String -----------------------
------------------------------------------------------------
---------
Function fgGetConnection( )
'****
'Purpose: Get
connection to Excel Workbook
'****
Dim objConnection

Set objConnection = CreateObject
("ADODB.Connection")

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0
;Data Source='D:\Test Data\Test_Data.xls' ;Extended
Properties=Excel 8.0;"
Set fgGetConnection = objConnection

End Function
'-----------------------------------------------------------
--------Close the excel connection -------------------------
------------------------------------------------------------
-------
Function fgCloseConnection ( objConnection )
'****
'Purpose: Close connection to
Excel Workbook
'****
objConnection.Close

End Function
'-----------------------------------------------------------
--------Fetch the test data from the excel -----------------
------------------------------------------------------------
---------------

Function fgGetData (objConnection, strColumnName, Sheet,
intPageNumber, TestSetName)
'****
'Purpose: Queries the Excel Workbook
for one field in the particular Sheet
' - Can also take a string
with comma separated values to get all the columns and give
it back as an array.
'****
'MsgBox strColumnName
'MsgBox Sheet
'MsgBox intPageNumber
'MsgBox TestSetName
Dim objRecordSet,
strQuery
Dim strScenarioID
Set objRecordSet =
CreateObject("ADODB.recordset")

objRecordSet.CursorType = 3 'set CursorType to be
able to do a RecordCount
strQuery
= "SELECT " & strColumnName & " FROM ["&Sheet& "$] WHERE
Test_Set = '" & TestSetName & "' AND Step_Number =" &
intPageNumber & " AND TestStatus='Y'"
objRecordSet.open
strQuery, objConnection
Select Case
objRecordSet.RecordCount

Case 0

fgGetData = ""

Case Else

If InStr(objRecordSet(0),
Chr(10)) > 0 Then

fgGetData = Replace
( objRecordSet(0), Chr(10), vbNewLine )

Else

fgGetData =
objRecordSet(0)

' msgbox fgGetData

End If

End Select
objRecordSet.Close
End Function



'***********************************************DB
Connection Start
Function****************************************************
****************************

Public Function CreateruntimeObject(Sheetname,ObName)
' msgbox ObName
set
conn=createobject("ADODB.CONNECTION")
set
recset=createobject("ADODB.RECORDSET")

conn.provider="MICROSOFT.JET.OLEDB.4.0"

conn.open "data source='D:\Object
Repository\Object.xls'; Extended properties=EXCEL 8.0"
qry="Select
Properties from [" & Sheetname& "$] where ObjName='"
&ObName& "'"
recset.open qry,
conn, 1, 1

props= recset.Fields(0)


'Create object description
for the data fetched from the excel sheet.
Set obj=description.create()
arrprops=split(props, "|")
For i=0 to UBOUND
(arrprops)

arrprop=split(arrprops(i), "=")

propname=arrprop(0)

propvalue=arrprop(1)
obj
(propname).value=propvalue
Next

Set CreateruntimeObject=obj

'if object not present????

End Function

'-----------------------------------------------------------
-------- Functional Result update in the testData Excel-----
------------------------------------------------------------
----------------------------
Public Function Resultupdate(objConnection,
Sheet,TestSetName, intPageNumber, Result, Status)

objConnection.Execute "update ["&Sheet&"$]
set TestResult ='" & Result & "', TestStatus ='" & Status
& "', Execution_Date =Now where Test_Set = '" &
TestSetName & "' and Step_Number =" & intPageNumber & ""

End Function

'-----------------------------------------------------------
--------GUI Result update in the testData Excel-----------
------------------------------------------------------------
----------------------

Public Function ResultupdateGUI(objConnection,
Sheet,TestSetName, Result, Status,objVal,objroPty)

objConnection.Execute "update
["&Sheet&"$] set TestResult ='" & Result & "', TestStatus
='" & Status & "', Execution_Date =Now where Test_Set
= '" & TestSetName & "' AND TestStatus='Y' AND
Objval='"&objVal&"' AND Objroproperty='"&objroPty &"' "

End Function

'-----------------------------------------------------------
--------Function for Close Application --------------------
------------------------------------------------------------
-------------
Function CloseApplication(Application)
dim strcompname,
strprocesstokill, objwmiservice, compname
dim colprocess
Set WshNetwork =CreateObject
("WScript.Network")

compname=WshNetwork.computername 'Get the computer
name

Set objwmiservice=Getobject
("Winmgmts:\\" &compname & "\root\cimv2") 'Get the task
manager
set
colprocess=objwmiservice.execquery("Select * from
win32_process where name='"&Application&"'")
' Get all the
processes in an arrary and terminate the required process
from the task manager.
For each process in
colprocess
msg=process.name

reporter.ReportEvent micDone, msg, msg & " this has been
terminated"
process.terminate()
Next
End Function

'-----------------------------------------------------------
--------Invoke outlook Folder Function ---------------------
------------------------------------------------------------
-----------

Function InvokeOutlookFedex()

Const olFolderInbox = 6

Set objOutlook =
CreateObject("Outlook.Application")
'
'If Dialog
("regexpwndclass:=#32770", "regexpwndtitle:=Personal
Folders Password").Exist(1) Then
' pass=Input("Enter
your Password")
' Dialog
("regexpwndclass:=#32770", "regexpwndtitle:=Personal
Folders Password").WinEdit("attached text:=Type the
password for.*").Set pass
'End If
Set objNamespace =
objOutlook.GetNamespace("MAPI")

Set objInbox =
objNamespace.GetDefaultFolder(olFolderInbox)

'msgbox objInbox

strFolderName =
objInbox.Parent

'msgbox strFolderName

Set objMailbox =
objNamespace.Folders(strFolderName)

Set objFolder =
objMailbox.Folders("FedEx QuickShip")

'msgbox objFolder
wait(5)
objFolder.display
wait(3)
Window(MainPage).maximize
End Function


Public Function Alternateobject(Sheetname,ObName)
' msgbox ObName
set conn=createobject("ADODB.CONNECTION")
set recset=createobject("ADODB.RECORDSET")
conn.provider="MICROSOFT.JET.OLEDB.4.0"
'conn.open "Provider=MS.Remote;" & "Remote
Server=\\Wm6103rbw-1331;" & "Remote Provider =
MICROSOFT.JET.OLEDB.4.0;" & "data source='\\Wm6103rbw-1331
\Object Repository\Object.xls'; Extended properties=EXCEL
8.0"
conn.open "data source='D:\Object
Repository\Object.xls'; Extended properties=EXCEL 8.0"
qry="Select Alternate_Prop from [" & Sheetname& "$]
where ObjName='" &ObName& "'"
recset.open qry, conn, 1, 1

props= recset.Fields(0)


''Gets the value into an array
' Do Until recset.eof
' For each val in recset.fields
' props=val.value
' msgbox props
' Next
' recset.movenext
' Loop

'Create object description for the data fetched from the
excel sheet.
Set obj=description.create()
arrprops=split(props, "|")
For i=0 to UBOUND(arrprops)
' msgbox arrprops(i)
arrprop=split(arrprops(i), "=")
propname=arrprop(0)
propvalue=arrprop(1)
' msgbox propname
' msgbox propvalue
obj(propname).value=propvalue

Next

Set Alternateobject=obj

'if object not present????

End Function

Explain some uses of vb script?

556

---

PLz send me the VB scripts which is having more examples my email id : hareen_11@yahoo.com

1667

---

Explain sga memory structures?

583

---

What is the difference between vb debugger and the script debugger?

599

---

What is the technology used by vb script?

544

---

---

How are values assigned to string type and numeric type variables?

542

---

Mention what is variant in vbscript?

561

---

how to write codings in QTP using vb script. please help me. i am new to QTP. it is easy or very much tough. please tell me

12907

---

Differentiate javascript and vbscript?

570

---

What is the output of a + b in vbscript if a = 5 and b = 10?

2130

---

1. How do declare public variable in vb scripts?

1579

---

What is the use of the formatdatetime function in the vbscript language?

556

---

What is the difference between VBScript and JavaScript?

2071

---

Mention what are the rules to name variable in vbscript?

540

---

Which respective symbols are used to separate a line and to break the lengthy statement into multiple statements in the vbscript language?

807

---