"Error 91: Object Variable...", AFTER INSTALL APPLICATION

[AlexHarley666]

Hi!!!

Please help...

I got this error:

91: Object variable or with block not set, but it' appears after that I did install my application.

I connect to database in direct mode:

'INIT SYSTEM
Public Sub InitSystem()

On Error GoTo Error

DB_NAME = "tns:finan"
DB_CONNECT = "tbk/tbk2001"

If Not G_AbreBase Then
GoTo Error
End
End If

Exit Sub
Error:
MsgBox "No Se Puede Establecer Conexión con Base de Datos", vbCritical, "Error de conexión"
End Sub


'-------------------------------------------------------

and G_AbreBase Function is:


' OPEN DATABASE FUNCTION
Function G_AbreBase%()
'-----
'Abre la conexión a la Base de Datos en ORACLE.
'-----
'Retorna
' True : Si la conexión se concretó con éxito.
'-----
On Error GoTo ErrConnect
Set Sesion_Oracle = CreateObject("OracleInProcServer.XOraSession&quot
Set db_oracle = Sesion_Oracle.OpenDatabase(DB_NAME, DB_CONNECT, 0&)

G_AbreBase = True
Exit Function
ErrConnect:
G_AbreBase = False
Exit Function
End Function

I did define the variables:

Global db_oracle As Object
Global Sesion_Oracle As Object
Global DB_NAME$
Global DB_CONNECT$

'-------------------------------------------------------

PLEASE, I NEED YOUR HELP.

THANK YOU VERY MUCH IN ADVANCE for YOUR VITAL HELP...

I salutes you,

ALEX...

 

[MarkSweetland]

It may be that the client machine that you installed it to does not have the Oracle Client Tools installed. You can also check if the CreateObject() was successfull before opening the database:

Set Sesion_Oracle = CreateObject("OracleInProcServer.XOraSession&quot

If Not Session_Oracle Is Nothing Then
Set db_oracle = Sesion_Oracle.OpenDatabase(DB_NAME, DB_CONNECT, 0&)
G_AbreBase = True
Else
G_AbreBase = False
End If

Mark

"You guys pair up in groups of three, then line up in a circle."
- Bill Peterson, a Florida State football coach

 

[AlexHarley666]

Thanks... I try with your tip...