Answer Posted / ravi_kanakam
Check this............
Function db_connect( byRef curSession ,connection_string)
dim connection
on error resume next
' Opening connection
set connection = CreateObject("ADODB.Connection")
If Err.Number <> 0 then
db_connect= "Error # " & CStr(Err.Number) & " " &
Err.Description
err.clear
Exit Function
End If
connection.Open connection_string
If Err.Number <> 0 then
db_connect= "Error # " & CStr(Err.Number) & " " &
Err.Description
err.clear
Exit Function
End If
set curSession=connection
db_connect=0
End Function
| Is This Answer Correct ? | 9 Yes | 1 No |
Post New Answer View All Answers
How many types of recording modes in the qtp?
why should we give deliver good quality software?
How to add synchronisation points in qtp?
how to know no.of mails in our g mail by using vb-script
why you have standardized functions? plzzz guys with real time exp. do answer
How will you report the bug and explain the defect tracking sheet you handled?
How the exception handling can be done using quicktest professional?
How to execute a winrunner script in quicktest professional?
How does you test a weblink which is changing dynamically?
How many types of recording facility are available in quicktest professional (qtp)?
When Recovery scenario actually starts while testing the application?
What are the views available in quicktest professional?
Name the different types of recording modes?
How many number of actions possible in qtp?
How to get Traceability matrix from TD?