ODBC connect VBA mot Oracle

[Wolverin]

Hei.

Jobber med en access base som "skall" mot en oracle 8i database.

Ønsker å oppdatere en tabell med informasjon pålogget som en bruker som har tilgang til å oppdatere denne ene tabellen, så skal det byttes bruker, og jeg skal være pålogget med en bruker som bare kan lese fra databasen. Det er samme database, men forskjellige brukere.

 

Funksjon for å koble til databasen i VBA kode er

 

   Function OracleConnect() As Boolean

       Dim ws As Workspace
       Dim db As Database
       Dim LConnect As String

       On Error GoTo Err_Execute

       LConnect = "ODBC;DSN=test;UID=test;PWD=test1;SERVER=test"

       Set ws = DBEngine.Workspaces(0)

       Set db = ws.OpenDatabase("", False, True, LConnect)

       db.Close

       OracleConnect = True

       Exit Function

   Err_Execute:
       MsgBox "Misslykket tilkobling."
       OracleConnect = False

   End Function

 

For å kalle denne i en knapp i skjema, så skriver jeg bare OracleConnect, så kjøres funksjonen og jeg er pålogget.

Problemet er når jeg skal logge på en annen bruker.

Vet det går ann å ha multiple workspaces, men vet ikke åssen dette skrives, jeg vet heller ikke åssen jeg skal få fortalt hvilket workspace som skal benyttes når de ulike SQLene skal kjøres.

DoCmd.RunSQL ("UPDATE ......" ) benyttes for å oppdatere mot tabellen det er snakk om.

 

Håper noen kan dette og kan hjelpe.

Endret 12. desember 2007 av Wolverin

[Wolverin]

ingen som har kjennskap til dette?