|
Subject:
|
Logon Form to Oracle quit working
|
|
Posted By:
|
milledj
|
Post Date:
|
12/11/2006 12:32:28 PM
|
I have several applications that connect to Oracle. However, I haven't used them very often. But all of a sudden, they all seem to have stopped working. I am getting a TNSNames error, could not resolve service name error.
If this was a new application, I would think that my app was broken. However, these have worked up until the last few months. I know that the database/TNSNames works, because I use TOAD with several databases all the time. There is only one tnsnames.ora on my PC. I had the Microsoft Access Objects 2.8 in my project, but I backed up to 2.6 for something to try. No change. I am connected to the database now, so I know the database itself is up. TNSPING to the server gets an OK back.
I am stuck, I am hoping that someone has a suggestion of what to try or check. There haven't been any changes to the app or the Oracle setup lately that I know....could MS have changed something (a patch?) that might have screwed up my connection?
TIA,
DJM
Code from form:
Option Explicit
Public OraSession As OraSession
Public connect As String
Public Sub cmd_Click(Index As Integer)
If Index = 0 Then
connect = txtField(0) + "/" + txtField(1)
sUserID = txtField(0)
sDatabase = txtField(2)
GoTo ErrorHandler
Else
If Index = 1 Then
End
End If
End If
ErrorHandler:
If OraSession.LastServerErr = 0 Then
If Err = 0 Then
'
'MsgBox ("connected.") ' as " & Connect)
Set OraSession = CreateObject("OracleInProcServer.xorasession")
Set OraDatabase = OraSession.OpenDatabase(txtField(2), connect, 0&)
sDatabase = txtField(2)
Me.Hide
Unload Me
Reset_Menu
frmMain.Show
Else
MsgBox ("VB=" & Err & " " & Error)
End If
Else
MsgBox (OraSession.LastServerErrText)
End If
End Sub
Public Sub Form_Load()
Set OraSession = CreateObject("Oracleinprocserver.xorasession")
cmd(0).Enabled = False
'txtField(2).text = "PROD"
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
Public Sub lblField_Click(Index As Integer)
Select Case Index
Case 0
If (txtField(0) <> "") And (txtField(1) <> "") And (txtField(2) <> "") Then
cmd(0).Enabled = True
cmd(2).Enabled = True
End If
Case 1
Case 2
End Select
End Sub
Public Sub txtField_GotFocus(Index As Integer)
txtField(Index).SelStart = 0
txtField(Index).SelLength = Len(txtField(Index))
End Sub
Private Sub txtField_LostFocus(Index As Integer)
If Len(Trim(txtField(0))) > 0 And Len(Trim(txtField(1))) > 0 And Len(Trim(txtField(2))) > 0 Then
cmd_Click (0)
End If
End Sub
Public Sub txtField_Validate(Index As Integer, Cancel As Boolean)
If (txtField(0) <> "") And (txtField(1) <> "") And (txtField(2) <> "") Then
cmd(0).Enabled = True
End If
End Sub
|
|
