AlexHarley666
Programmer
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"
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...
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"
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...