Database connectivity error

[galstar]

Hi,

While doing connectivity to database i am facing an issue..Firstly the script containing connectivity funcn was working.But i transfared that on new system and created the same DSN..
Now while running the script error that "Timeout expire" is getting populated..

connectivity function:

Code:

Function Connect_to_db(Byval mfgprt)

Dim cnn,rss
Set cnn = CreateObject("ADODB.Connection")
Set rss = CreateObject("ADODB.recordset")
cnn.ConnectionString = "DSN=QTPDSN;Description=desc;UID=sa;PWD=Passw0rd;APP=QuickTest Professional;WSID=.....;DATABASE=.....;"
cnn.open
rss = cnn.Execute("select  UnitPrice  from ------where MfPartNumber ='" + mfgprt + "'")
Connect_to_db=rss(0)
End Function

Could anyone suggest me the reason behind this....?

Thanks

[basanth27]

galstar -
You need to debug line by line to get to the bottom of the issue. Well here are a few pointers,

1. Check if the connection is established.
2. Execute the query manually to see if you get the results. Execute with the exact query you are using.

[galstar]

Yeah i got the reason...DB was not started..:-p
noe it is working fine...
Thanks for reply