Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

can't connect to ORACLE by ms access application

Status
Not open for further replies.

lvf

Technical User
Sep 16, 2002
10
NL
Hi,

I migrated an Access DB to Oracle DB. If i try to start the Access application and i gave the right credentials, I got the "fout 3146 tijdens uitvoering" "ODBC: de oproep is mislukt"

This is the VB code:
Private Sub WachtwoordVeld_AfterUpdate()

Dim rs1 As DAO.Recordset, waarde1 As String, criteria As Integer
Set rs1 = CurrentDb.OpenRecordset("WACHTWOORD", dbOpenDynaset)

With rs1

.MoveFirst

If ![GEBRUIKERSNAAM] = GebruikersnaamVeld And ![WACHTWOORD] = WachtwoordVeld Then
If ![MENU ACTIE] = "Medewerkermenu" Then
DoCmd.OpenForm "Hoofdmenu medewerker 3:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Managementmenu" Then
DoCmd.OpenForm "Hoofdmenu management 4:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Swiftmenu" Then
DoCmd.Close acForm, "Startmenu 1:0"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
Exit Sub
End If

Do Until .NoMatch
.FindNext "Gebruikersnaam = " & Chr(34) & Me.GebruikersnaamVeld & Chr(34)
If ![GEBRUIKERSNAAM] = GebruikersnaamVeld And ![WACHTWOORD] = WachtwoordVeld Then
If ![MENU ACTIE] = "Medewerkermenu" Then
DoCmd.OpenForm "Hoofdmenu medewerker 3:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Managementmenu" Then
DoCmd.OpenForm "Hoofdmenu management 4:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Swiftmenu" Then
DoCmd.Close acForm, "Startmenu 1:0"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
MsgBox "Druk op F11 om het Databasevenster te tonen"
End If
Exit Sub
End If
Loop

End With

DoCmd.Beep
MsgBox "De ingevoerde gebruikersnaam en/of wachtwoord zijn onjuist.", , "Inloggen mislukt"
GebruikersnaamVeld.Value = ""
WachtwoordVeld.Value = ""
GebruikersnaamVeld.SetFocus

End Sub

Anybody idea's??

Thanx

 
Please translate this error to english:

ODBC: de oproep is mislukt



----------------------------------------------------------------------------
The person who says it can't be done should not interrupt the person doing it. -- Chinese proverb
 
Hope to spell it correct

Error 3146 while executing
ODBC: The call is failed

Greetz
 
First thing is to check the entry in your TNSNAMES.ORA.
If this looks OK, use tnsping <alias>, this might be called tnsping80 or something else depending on your Oracle version.

Next setup your ODBC connection using the correct driver from the list. You might need to download the latest version of MDAC from Microsoft.

If this works use the Microsoft ODBC test to test your ODBC connection.

If you try these steps, and you still can't get it to work. Reply with the error messages.

Steve
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top