To odbc koblinger i VBA Access 2000

[Wolverin]

Hei.

 

Jeg har fått et problem server i fanget.

Jeg har en database som er koblet til oracle via ODBC driver.

Oracle basen tas ned for backup i noen timer hver natt, og hver helg er denne fullbackup av og da er det snakk om ganske lang nedetid.

I den forbindelse har jeg laget en kopi av noen svært viktige tabeller som via en PL/SQL flyttes til den kopibasen rett før backup tar ned basen, dette funger utmerket.

Mitt problem er at systemet som kober seg på denne (Access system) må bytte odbc til den nye kopi basen når den første og orginale går ned.

Når orginal base er oppe igjen skal den igjen benyttes, og bruker skal kobles over til denne igjen.

 

Noen som ser en smidig løsning på dette problemet?

Har til nå benyttet en funksjon som kobler til oracle for meg, og legger ved koden for å koble til orginal basen under her.

 

Function Establish_Connection()
        Dim db As Database, dbcurr As Database
        Dim ds As Recordset
        Set dbcurr = CurrentDb()
        Set db = OpenDatabase("", False, False, _
           "ODBC;DSN=Access;" & _
           "UID=XXXXXXX;PWD=XXXXXXX;DATABASE=" & _
           "Oracle1;")
         Set ds = db.OpenRecordset("SQL_HENT_DATA")
End Function