Sain,
You can use the code below... I have created a generic Database utility
library for day to day operations on database below are some sample
functions from the same.
''========================================================================================
'(1.) Function to Connect to the Database
''========================================================================================
Function ConnectDatabase(Byval strConName,Byval strDSNName,Byval
strServerName,Byval strDataBaseName,Byval strUserID,Byval strPassword)
'Assign Database Connection Information to the DB Variables
DataSource = strDSNName
Server = strServerName
UserID_DB = strUserID
Password_DB = strPassword
DatabaseName_DB = strDataBaseName
con=strConName
Dim connItems(2)
Dim connState
'Declare Database Recordset variable
conString =
cstr("DSN="&DataSource&chr(59)&"Server="&Server&chr(59)&"UID="&UserID_DB&chr(59)&"Password="&Password_DB&chr(59)&"DATABASE="&DatabaseName_DB)
'Create Database Connection Object
Set conn = CreateObject("Adodb.Connection")
'Open Database Connection
conn.Open conString
'Verify the Successful Database Connection Establishment
If conn.State=1 Then
Reporter.ReportEvent micPass,"Database Connection Success","
Database connection for "&DatabaseName_DB &"Database has been established
Successfully"
'MsgBox "Connection Estblished Successfully"
Else
Reporter.ReportEvent micFail,"Database Connection Failure","
Database connection for "&DatabaseName_DB &"Database is not been established
successfully"
'MsgBox "Connection Not Estblished"
End If
connItems(0) = conn.State
connItems(1) = conn
ConnectDatabase = connItems
End Function
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
''========================================================================================
'(2.) Function to Execute Any SQL Query
''========================================================================================
Function ExecuteSQLQuery(ByVal DBConnectionState,ByVal
DBConnectionProperty,Query)
If DBConnectionState = 1 Then
Set rst = createobject("adodb.recordset")
rst.Open Query,DBConnectionProperty
index = 0
Dim arrResultSet()
While rst.EOF <> True
ReDim Preserve arrResultSet(index)
arrResultSet(index) = rst.Fields(0).Value
rst.MoveNext
index = index + 1
Wend
End If
ExecuteQuery = arrResultSet
End Function
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Regards
Shalabh Dixit
On Wed, Aug 31, 2011 at 12:47 AM, Anish Pillai
<[email protected]>wrote:
> Hi Sain,
>
> To make your object global, you can declare/define it in your function
> library. That way all the test cases that you associate with your function
> library will have access to the object.
>
> But what I personally feel is that DB connections should not be kept open
> for longer durations. Its better to close the connections as soon as your
> work is done. One can always reopen the connection whenever they want. But
> I'm not sure how other people think about this point.
>
> Hope this helps..
>
> --
> Regards,
> Anish Pillai
> My QTP Blog <http://automationrepository.blogspot.com>
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
