connecting to oracle using vbscript

connecting to oracle using vbscript - Printable Version

+- 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: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: connecting to oracle using vbscript (/Thread-connecting-to-oracle-using-vbscript)

connecting to oracle using vbscript - snandini - 01-27-2009

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"

RE: connecting to oracle using vbscript - VENKATAREDDY_M - 03-04-2009

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

RE: connecting to oracle using vbscript - guocnc - 03-06-2009

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"

RE: connecting to oracle using vbscript - bfakruddin - 03-12-2009

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

RE: connecting to oracle using vbscript - ritesh - 07-06-2009

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