+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Others (https://www.learnqtp.com/forums/Forum-UFT-QTP-Others)
+--- Thread: DB2 Database testing (/Thread-DB2-Database-testing)
DB2 Database testing - QTP5659 - 02-24-2009
Can anybody tell how to test
1) DB2 database at background.
2) Other databases at background.
3) How to connect to SQL database.
RE: DB2 Database testing - Jackomcnabb - 02-25-2009
try http://www.connectionstrings.com/
RE: DB2 Database testing - Ankur - 02-26-2009
Hey Jackomcnabb, that's pretty useful site. Thanks.
RE: DB2 Database testing - papu - 02-26-2009
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 FunctionRE: DB2 Database testing - swatid - 03-30-2009
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
RE: DB2 Database testing - niranjan - 04-11-2009
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