QTP script problem

[deepjyoti]

Hello to all,

I have a doubt in QTP script. How can we call database in QTP?



Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open"provider=sqloledb.1; server=.??????
uid=sa;pwd=sa;database=testdata"
rs.open"select*from emp",con
Do while not rs.eof
VbWindow("Form1").VbEdit("val1").Set rs.fields("v1")
VbWindow("Form1").VbEdit("val2").Set rs.fields("v2")
VbWindow("Form1").VbButton("ADD").Click
rs.movenext
Loop

Please check above script is there any problem. I could not understand about server option on the 5th line of the script ...Please explain in detail?

[kalyansantosh]

Database Connection


Function Getconnection()
Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adUseClient = 3

Set objCon=CreateObject("ADODB.Connection")

Set objRec=CreateObject("ADODB.Recordset")

objCon.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=120.10.1.215;DATABASE=name;user id=root;password=root; Pooling=True"

objRec.CursorLocation = adUseClient

objRec.Open "Select Max(Productid) as Productid from Products",objCon,adOpenStatic,adLockOptimistic

While(Not objRec.EOF)
val = objRec.Fields.Item("Productid")
MsgBox(val)
objRec.MoveNext
Wend
objRec.Close

objCon.Close

Set objRec=Nothing

Set objCon=Nothing

End Function






Explaination


objCon.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=120.10.1.215;DATABASE=name;user id=root;password=root; Pooling=True"



here we are opening the connection
fst we have to mention driver, Server name,database name, username and password
after identifying the qtp


if any clarifications please mail me kalyansantosh@gmail.com