TransferDatabase : Linking tables from Oracle produces error 2507

G

Guest

My app linking tables from Oracle using TransferDatabase. It works when
running on W98 SE Eng.

When I tried to run it on W XP SP2 Hun, the same code produces error 2507.

By the way, I managed to link tables manually, so my ODBC, Oracle client
settings must be ok.

The code I used:
Public Function LinkNeptunTables(Optional NptTables As String = "") As Long
Dim ODBCDSNname As String
Dim TablNames() As String 'Csatolandó Táblanevek
Dim I As Long





On Error GoTo Err_Trap
'Input param vizsgalat. Ha input ures, az alábbi tablakat csatolja
'a NEPTUNBÓL By Default
'1.EGYEN_TORZSADATLAP
'2.KEPZES_HALLGATOI_ADATLAP
'3.KEPZES
'4.KAR
'5.INDEKSZ
'6.INDEX_ARCHIV
'7.TARGY
'
If Len(NptTables) = 0 Then
'Ha egy tábla sincs megadva, betolti a Defaultokat
ReDim TablNames(6) '0,1,2,3,4,5,6 (7db default tábla van)
TablNames(0) = "EGYEN_TORZSADATLAP"
TablNames(1) = "KAR"
TablNames(2) = "KEPZES"
TablNames(3) = "KEPZES_HALLGATOI_ADATLAP"
TablNames(4) = "INDEKSZ"
TablNames(5) = "INDEX_ARCHIV"
TablNames(6) = "TARGY"
Else
'Táblanevek betöltése az input argumentumból
TablNames = Split(NptTables, ",")
End If

'Vizsgalja hogy a Registryben létezik e az ODBC DSN-t tartalmazó bejegyzés
'Ha nem, csinál egyet "ConnectToNeptun" értékkel
' HKEY_CURRENT_USER (Windows csinalta)
' SOFTWARE (Windows csinalta)
' VB and VBA program Setting (Windows csinalta)
'
SOTE_INFORMATIKA----------------------------->(SaveSetting.appname)
'
AOK_SZAKORVOS_KEPZES_AokSzOKep------------>(SaveSetting.section)
' NeptODBCDSN---------------------------->(SaveSetting.Key)
'
ConnectToNeptun--------------------->(SaveSetting.Setting)

ODBCDSNname = GetSetting(appName:="SOTE_INFORMATIKA", _
section:="AOK_SZAKORVOS_KEPZES_AokSzOKep", _
Key:="NeptODBCDSN", Default:="NINCS")

If ODBCDSNname = "NINCS" Then 'Létrehozza az ODBC DSNre mutato
Bejegyzést a registryben
SaveSetting appName:="SOTE_INFORMATIKA", _
section:="AOK_SZAKORVOS_KEPZES_AokSzOKep", _
Key:="NeptODBCDSN", _
Setting:="ConnectToNeptun"
ODBCDSNname = GetSetting(appName:="SOTE_INFORMATIKA", _
section:="AOK_SZAKORVOS_KEPZES_AokSzOKep", _
Key:="NeptODBCDSN", Default:="NINCS")
End If

'Neptun táblák bekapcsolása
For I = 0 To UBound(TablNames)
'*****Ez a
jó*******************************************************************************
DoCmd.TransferDatabase acLink, "ODBC Database", _
"ODBC;DSN=" & ODBCDSNname &
";DATABASE=NEPTUN.SOTE.HU;UID=Olvaso;PWD=olvaso", _
acTable, "BESZ." & TablNames(I), "BESZ_" & TablNames(I), , True
'*******************************************************************************************
Next I

LinkNeptunTables = 0
Exit Function


Err_Trap:
Dim Cnn1 As New ADODB.Connection
Dim ErrLoop As Error, intInErrors As Integer

MsgBox "Hiba történt a Neptun elérésekor. Részletek az Immediate paneon!",
vbCritical
Set Cnn1 = CurrentProject.Connection
intInErrors = 0
Debug.Print "************** NEPTUN:HI...,HI....,HIBA Neptun Tabla
csatolás *******************"
For Each ErrLoop In Cnn1.Errors
Debug.Print Date & ": " & Time
Debug.Print ErrLoop.Number, ErrLoop.Description
intInErrors = intInErrors + 1
Next ErrLoop
If intInErrors = 0 Then
Debug.Print Date & ": " & Time, Err.Number, Err.Description
End If
LinkNeptunTables = -1 'Hiba történt
Set Cnn1 = Nothing
End Function

What can be the problem?

Regards,
FLOGYU
 
Top