You can use this function as well. This will return Array of values of
connection state and connection properties which you can pass to other
functions as well if required.
conValues = ConnectDatabase("Mapping Template
Connection","MappingTemplate_DSN","SHALABHDIXIT-PC","EPM","sa","12")
conState = conValues(0)
conProp = conValues(1)
''<Function>
''******************************Function
Details***************************
''<Name>ConnectDatabase</Name>
''<Description>
''This function is used to connect to any database. Also it returns
an Array of values containing Connection State and Connection properties.
''</Description>
''<Input Paramters>
''<Parameter Name="strConName" Type = "In">Contains Sample
connection name</Parameter>
''<Parameter Name="strDSNName" Type = "In">Contains Name of Data
source for a particular Database</Parameter>
''<Parameter Name="strServerName" Type = "In">Contains of Server
name to connect with</Parameter>
''<Parameter Name="strDataBaseName" Type = "In">Contains name of
database needs to be accessed</Parameter>
''<Parameter Name="strUserID" Type = "In">Contains userID of the
database</Parameter>
''<Parameter Name="strPassword" Type = "In">Contains Password of the
database</Parameter>
''</Input Paramters>
''<Output Paramters>
''<Parameter Name="conState" Type = "Out">Returns the connection
state of database. Possible values for this parameter are :
'' conState = 0 => Database Connection NOT Established Succefully
'' conState = 1 => Database Connection Established Succefully
''</Parameter>
''<Parameter Name="conProp" Type = "Out">Returns the Database
connection properties</Parameter>
''</Output Paramters>
''<Returns>
'' Array containing Connection State and Connection properties
''</Returns>
''<Example>
'' conValues = ConnectDatabase("Datamaker
Connection","DataMaker_DSN","192.168.14.198","Datamaker","gtrep","gtrep")
'' conState = conValues(0)
'' conProp = conValues(1)
''</Example>
''******************************Author, Creation & Modification
Details***************************
''* Created By : Shalabh Dixit
''* Date Created : 25-June-2011
''* Called From (Action Name) : <Action Name Comes Here>
''* Last Updated By : Shalabh
Dixit
''* Last Date Updated : 25th June 2011
''<Changelog>
''-------------------------------------------------------------------------------------------------------------------------
''S.No. Date Author
Changes/Notes
''-------------------------------------------------------------------------------------------------------------------------
'' 1. 25-June-2011 Shalabh Dixit
1.Added Logic For Database Connection and
''
Retrieving Data From Database Table.
''-------------------------------------------------------------------------------------------------------------------------
''</Changelog>
''</Function>
'''''*************************************************************************************************************************************************************************************************************
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)
'conn.Open
"DSN=EPM_DSN;Server=192.168.14.198;UID=EPM;Password=EPM;DATABASE=EPM"
Set conn = CreateObject("Adodb.Connection")
'Open Database Connection
conn.Open conString
'Verify the Successful Database Connection Establishment
If conn.State=1 Then
Reporter.ReportEvent micDone,"Database Connection Success","
Database connection for "&DatabaseName_DB &"Database has been established
Successfully"
'MsgBox "Connection Estblished Successfully"
Else
Reporter.ReportEvent micDone,"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
'Releasing Memory Allocated to Arrays
'<Code comes here>
End Function
Regards
Shalabh Dixit
On Thu, Jul 21, 2011 at 3:37 PM, Bhuvan Sundar <[email protected]>wrote:
> Before connect to DB, shoul follow below points.
> 1. update the TNS names file with HOSTname,Address,PORT number and Service
> name at location c:\app\product\Network\admin\TNSnames.ORA(file)
> 2. Check the DB connection in Control Panel.
> Thanks,
> Bhuvan
>
> On Thu, Jul 21, 2011 at 3:12 AM, Kiran Ogeti <[email protected]> wrote:
>
>> I am having hard time to connect database .. it gives numerous errors
>> through the code,, also I tried using connection string wizard on QTP, but
>> interestingly the text box "Connection string" show blank , does not tell me
>> what the prob was
>>
>> could you suggest connection string with the following info what I have
>>
>> Host name
>> Port
>> Service
>> Database
>> Uid
>> Pwd
>>
>> Thanks
>>
>> --
>> 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
>
--
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
