RE: Oracle Objects for OLE hangs machine
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_PROGETTIAnd (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