Automatische ODBC connectie

Status
Niet open voor verdere reacties.

Realmy

Gebruiker
Lid geworden
24 jun 2010
Berichten
8
Hoi

Ik zit met voor mij toch een raar probleem.
Wij hebben verschillende dtb's draaien met sql-server
Als we een dtb opendoen krijg je een popup scherm waar je je userid en pw moet ingeven voor connectie te maken.
Wij werken niet met integrated security. Dus voorafgemaakt userid en pw.

Ik heb een stukje code gevonden voor een automatische connectie te maken en dit werkt voor 80% :)

Dit is een vb. van waar het wel werkt:

Function Establish_Connection()
Dim db As Database, dbcurr As Database
Dim ds As Recordset
Set dbcurr = CurrentDb()
Set db = OpenDatabase("mailroom", False, False, _
"ODBC;DSN=mailroom;" & _
"UID=mailroom;PWD=mailroom;DATABASE=" & _
"mailroom;")
'Set ds = db.OpenRecordset("<any table existing in the
' database defined by DATABASE above>")
End Function

En hier een vb van waar het niet werkt: (dus krijg nog steeds popup voor pw in te geven)

Function Establish_Connection()
Dim db As Database, dbcurr As Database
Dim ds As Recordset
Set dbcurr = CurrentDb()
Set db = OpenDatabase("regis", False, False, _
"ODBC;DSN=regis;" & _
"UID=regis;PWD=regis;DATABASE=" & _
"Regis;")
' Set ds = db.OpenRecordset("<any table existing in the
database defined by DATABASE above>")

End Function

Dit is mijn odbc scherm:
odbc.jpg


Iemand een antwoord waarom het in het 1ste geval wel werkt en in het 2de niet, of meer info nodig?

Alvast bedankt.

Mvg
 
Ik neem aan dat je al gecontroleerd hebt op de SQL databases dat de betreffende users toegang hebben tot de juiste databases?
 
Ik neem aan als we hetzelfde invullen in het popupscherm als in het stukje code dit geen probleem mag zijn vooral omdat de andere 8 met dezelfde rechten geen probleem geven en 2 wel.

Maar ga het in ieder geval verder uitdiepen
 
Het gaat in dit geval om de Users in de SQL databases. Het kan zijn, dat je gebruiker daar niet (goed) als user is toegevoegd.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan