DB2 Database testing

[QTP5659]

Can anybody tell how to test
1) DB2 database at background.
2) Other databases at background.
3) How to connect to SQL database.

[Jackomcnabb]

try http://www.connectionstrings.com/

[Ankur]

Hey Jackomcnabb, that's pretty useful site. Thanks.

[papu]

Below function will help to connect oracle data base.for SQL data base we have to provide required provider name.correct me if am wrong.


Public function openDatabase( byval userID, byval passwd, byval dataBase, byval sql, byref conn,byref rs)

Code:

set conn=createobject("adodb. connection")
        set rs=createobject("adodb.recordset")
        conn.open= "Provider=OraOLEDB.Oracle.1;Password=" & passwd & ";Persist Security Info=True;User ID=" &_
                                                        userID & ";Data Source=" & dataBase & ";"
    rs.open sql,conn
    
End Function

[swatid]

Hi Every one
I am new to Qtp. I can not connect mysql database with qtp since there is no drivers for mysql in QTP.Please telll me how to connect with database since I am working in mysql only.
mysql version is 5.0
Thanks
swati

[niranjan]

Install MySQL ODBC driver in your computer first.
And then use connection string.
Example:

Code:

' To Connect to MySQL Database
' Before using this function, make sure MySQL ODBC 5.1 Driver is installed
    Public Function MySQLConnect(Login)
                  Dim Connection, Recordset, SQL, ConnectionString, SQL1, SQL2
                SQL1 = "UPDATE wuser SET password = 'password' where login = '"
                SQL2 = "';"
                SQL = SQL1 + Login + SQL2
                        Set Connection = CreateObject( "ADODB.Connection")
                        Set Recordset = CreateObject( "ADODB.Recordset")
                        'Connection.Open "DSN=mysql"
                        ConnectionString="DRIVER= {MySQL ODBC 5.1 Driver}; SERVER= Server Name; PORT=3306;DATABASE=Database Name; USER=user id; PASSWORD=password; OPTION=3;"
                        Connection.Open ConnectionString
                        Recordset.Open SQL,Connection
                        'If Recordset.EOF Then
                        ' msgbox "No records returned."
                        'Else
                                    'Do While NOT Recordset.Eof
                                    'msgbox Recordset("ID")
                                    'msgbox Recordset("LOGIN")
                                    'msgbox Recordset("PASSWORD")
                                    'Recordset.MoveNext
                         'End If
                         'Recordset.Close
                         Set Recordset=nothing
                         Connection.Close
                         Set Connection=nothing
    End Function