Re: VB5 with Oracle. Hangs because of transactions

If you're limited to using ODBC then I haven't a solution for you.

I use Oracle objects running over SQLNET which gets around these problems because you're not limited to the MS model.

Contact Oracle support for info on this - Oracle Objects is included on most Oracle tool set CD's - DEV2000 etc.

--
----------------------------------------------------------------------------
-----------
Reply to elliot_at_spnc.demon.co.uknospam
(remove nospam to reply)

Homepage http://www.spnc.demon.co.uk
(VB, REXX, X86ASM, Oracle, SQL)
----------------------------------------------------------------------------
-----------



Domingues wrote in message <01bd69cf$0d7db1d0$320281ac_at_pdo8brg>...


>Hello

>  I'm trying to use a Oracle database for my VB5 programs, but I just found

>a nice problem:

>  I tested the program at the end of this message with a Microsoft ODBC

>driver for Oracle

>v2.00.006325 and a Oracle73 v 2.05.0301, but

>with both, the process just hangs when it tries to execute the

>"OpenRecordset" instruction at the end.

>If I remove the BeginTrans /Commit Trans it works, but I need it because I

>have in the real aplication more instructions inside them.

>  Does anyone have any idea how to workaround this?

>

>Thanks in advance,

>P.Domingues      mailto:Paulo.Domingues_at_pcm.bosch.de

>

>

>Option Explicit

>Const odbcWinCP = "ODBC;DSN=ORANT_32;UID=prodata;PWD=prodata"

>Dim Wks As Workspace, Conn As Connection

>

>Private Sub Form_Load()

>   Dim rs As Recordset

>

>   Set Wks = CreateWorkspace("ManutWorkspace", "prodata", "prodata",

>dbUseODBC)

>   Set Conn = Wks.OpenConnection("ManutConnection", dbDriverNoPrompt,

>False, odbcWinCP + ";")

>

>   Wks.BeginTrans

>      Conn.Execute "DELETE FROM TURNOSLINHA WHERE IDSECCAO=' 5510' AND

>IDLINHA='7777'", dbExecDirect

>   Wks.CommitTrans

>

>   Set rs = Conn.OpenRecordset("SELECT * FROM TURNOSLINHA",

>dbOpenForwardOnly, dbExecDirect)

>   rs.Close

>End Sub

>

>

>

>