RE: Oracle Objects for OLE hangs machine

From: Juan Miranda <jmirandavigo_at_hotmail.com>
Date: 2000/06/29
Message-ID: <8jfm34$7n81_at_cesio.mundo-r.com>#1/1


I use the following:

Public OraSession As Object
Public OraDatabase As Object
Public EmpDynaset As Object
Public EmpDynaset1 As Object
'connect to Oracle
Set OraSession = CreateObject("OracleInProcServer.XOraSession") Set OraDatabase = OraSession.OpenDatabase(Instancia, Usuario & "/" & Contraseña, 0&)
'make query
Set EmpDynaset1 = OraDatabase.CreateDynaset("SELECT V_CATALOGO.NOME, PROGETTI.TECNICA_LB, PROGETTI.DES_PROG, O_AMPLIFIER.NODO,

O_AMPLIFIER.MSLINK, O_AMPLIFIER.NOMBRE, O_AMPLIFIER.DIRECCION,
O_AMPLIFIER.N_CIVICO FROM O_AMPLIFIER O_AMPLIFIER, PROGETTI PROGETTI,
V_CATALOGO V_CATALOGO WHERE V_CATALOGO.ID_A_CATALOGO =
O_AMPLIFIER.ID_A_CATALOGO And O_AMPLIFIER.ID_PROGETTI = PROGETTI.ID_PROGETTI
And (O_AMPLIFIER.MSLINK = '" & mslink & "')", &H4&) 'Give data from the query
For icols = 1 To 5 'Valores de señal

    Select Case EmpDynaset.Fields("DESCRIZIONE").Value 'selecciona segun el valor de la frecuencia

        Case "Rev L"  '5
            InRevL = (IIf(IsNull(EmpDynaset.Fields("VALORE_SEGNALE").Value),
0, EmpDynaset.Fields("VALORE_SEGNALE").Value))
        Case "Rev H"  '65
            InRevH = (IIf(IsNull(EmpDynaset.Fields("VALORE_SEGNALE").Value),
0, EmpDynaset.Fields("VALORE_SEGNALE").Value))
        Case "Fwd L"  'baja
            InFwdL = (IIf(IsNull(EmpDynaset.Fields("VALORE_SEGNALE").Value),
0, EmpDynaset.Fields("VALORE_SEGNALE").Value))
        Case "Fwd M"  'media
            InFwdM = (IIf(IsNull(EmpDynaset.Fields("VALORE_SEGNALE").Value),
0, EmpDynaset.Fields("VALORE_SEGNALE").Value))
        Case "Fwd H"  'alta
            InFwdH = (IIf(IsNull(EmpDynaset.Fields("VALORE_SEGNALE").Value),
0, EmpDynaset.Fields("VALORE_SEGNALE").Value))

    End Select
    EmpDynaset.DbMoveNext
Next icols

It works for me in NT.... try it in W95. Good Luck

Fraser Boswell <fraser.boswell_at_ed.ac.uk> escribió en el mensaje de noticias 395B4AAD.E06A8D3C_at_ed.ac.uk...
> We have a problem that has started recently where a Windows 95 machine
> running a VB program with oo4o just hangs when trying to retrieve data
> from the oracle database.
> Anybody had any similar experiences?
> How do you resolve it?
>
> Fraser
>
Received on Thu Jun 29 2000 - 00:00:00 CEST

Original text of this message