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:

Iemand een antwoord waarom het in het 1ste geval wel werkt en in het 2de niet, of meer info nodig?
Alvast bedankt.
Mvg
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:

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