Issue related to DB connectivity..

[galstar]

Hi,
Plz find below the code for DB connectivity and help me to resolve the issue...

-----------------------------
'-----------------------* Function to get Price by Mfg part no. *----------------------

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=;PWD=;APP=QuickTest Professional;WSID=;DATABASE=;"

cnn.open
rss = cnn.Execute("select  UnitPrice  from dbo.ProductProfilePrices ppp inner join priceprofiles pp on ppp.priceprofileID = pp.priceprofileID and isdefaultprofile = 1 inner join products p on ppp.productID = p.productID where MfPartNumber ='" + mfgprt + "'")
Connect_to_db=rss(0)
End Function

'--------------------------* End Function*--------------------------------------------------------------------------

'------------*GET VALUE OF MFG PART# FROM G.SHEET & SET PRICE OUTPUT VALUE in G.SHEET*-------------

Code:

row_cnt=datatable.getrowcount
for i=1 to row_cnt                                 ' For each row , do following
datatable.getsheet(i)                              ' Read Sheet 1 i.e. Global sheet
a=datatable.value("mfg",1)      'Put value of               MfgPart column from global sheet  to variable 'a'

b=Connect_to_db(a)
msgbox(b)

' Pass value of 'a' i.e. Mfgpart to function 'Connect_to_db' and put the value returned by function (i.e. Price) in variable 'b'
-----------------------------

Now what i want to do is that,while reading value from datasheet or saving value to datasheet i want to use local sheet not the global sheet...So what will be the syntax for that..


a=datatable.value("mfg",1)
what will be teh change in this syntax.
mfg col is in the local datasheet..i have 2-3 local datasheet with diff names.....



Thanks