connecting to oracle using vbscript

[snandini]

I am getting the error when running the below code.
'The connection can't be used to perform this operation. It is either closed or invalid in this context'.

Please help with the below code.

Code:

'Connecting to Oracle Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set Conn_Obj = CreateObject("ADODB.Connection") Set Rec_Obj = CreateObject("ADODB.Recordset") Conn_Obj.Open "DRIVER= Oracle in OraClient10g_home1;SERVER = oracle_server;Data Source = FITN;UID= user1;PWD= passwd" Rec_Obj.CursorLocation = adUseClient Rec_Obj.Open "select ir.cusip from market.instrument ir where ir.cusip ='20172KC78' adOpenStatic,adLockOptimistic" While not(Rec_Obj.EOF) Msgbox "Result " & Rec_Obj.Fields.Item("cusip")&vbCrLf Rec_Obj.MoveNext Wend Rec_Obj.Close Conn_Obj.Close Set Rec_Obj = Nothing Set Conn_Obj = Nothing Msgbox "It is a success"

[VENKATAREDDY_M]

May I know at which line you are getting this error..?

[guocnc]

Maybe something wrong in configuration in

Code:

Conn_Obj.Open "DRIVER= Oracle in OraClient10g_home1;SERVER = oracle_server;Data Source = FITN;UID= user1;PWD= passwd"

[bfakruddin]

I think you miss [,conn_obj] at last of below code

Code:

Rec_Obj.Open "select ir.cusip from market.instrument ir where ir.cusip ='20172KC78' adOpenStatic,adLockOptimistic"

Try this...!

Code:

Rec_Obj.Open "select ir.cusip from market.instrument ir where ir.cusip ='20172KC78' adOpenStatic,adLockOptimistic",conn_obj

thanks & regards,
Baba fakruddin.D
baba.fakru@gmail.com

[ritesh]

Try this out:

Code:

Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set ObjCon=createobject("adodb.connection") Set ObjRec=createobject("adodb.recordset") ObjCon.open "Data Source=FITN;server=oracle_server;uid=user1;pwd=passwd;db=yourDBName" ObjRec.CursorLocation = adUseClient ObjRec.CursorType = adOpenStatic ObjRec.LockType = adLockOptimistic ObjRec.Source="select ir.cusip from market.instrument ir where ir.cusip ='20172KC78' adOpenStatic,adLockOptimistic" While not(ObjRec.EOF) ObjRec.ActiveConnection=ObjCon ObjRec.Open Msgbox "Result " & ObjRec.Fields.Item("cusip")&vbCrLf ObjRec.MoveNext ObjRec.Close

Copy paste the whole thing.. Just u have to enter db value(delete yourDBname and pass the actual dbname)

Hope this works...

Regards,
Ritesh