Security code for linked tables 1

[abd1311]

Hi,
I am trying to connect to another db using the following code:

Dim db As Database
Dim con As Container
Dim doc As Document
Dim newLink As TableDef

Set db = CurrentDb()
Set newLink = db.CreateTableDef("WebResume")
newLink.Connect = ";DATABASE=" & dbPath & dbName
newLink.SourceTableName = "WebResume"
db.TableDefs.Append newLink

Set con = db.Containers("Tables")
Set doc = con.Documents("WebResume")

doc.Permissions = dbSecRetrieveData
doc.UserName = "Admin"
doc.Permissions = dbSecRetrieveData
doc.UserName = "Users"
doc.Permissions = dbSecRetrieveData
Debug.Print "New AllPermissions: " & doc.AllPermissions

the code works fine if the db is in my computer
but, usually the dbPath is a path for an Access db on a server, which requires a username and a password
sure this code will not work in such case, cos it needs the username and the password, so is there a way to slip (as parameters) the username and password in the above code? i am not that much into vba coding

any help will be appreciated

 

[jrbarnett]

newLink.Connect = "User ID=Username;PWD=Password;DATABASE=" & dbPath & dbName

should do it.

John

 

[abd1311]

Thank you John for your reply
i did exactly what you said, but i got this error message about "Could not find installable ISAM"
i went to the article

http://support.microsoft.com/kb/209805

to find a solution and did exactly what is in the article, but still having the same error message, i got it on the Append line..

 

[jrbarnett]

A slightly different method mentioned in

http://www.vbexplorer.com/VBExplorer/vb_feature/june2000/Database_Beginner_ADO_DAO.asp

is:

newLink.Connect = "UID=Username;PWD=Password;DATABASE=" & dbPath & dbName

I am assuming that the dbPath and dbName variables are declared as input parameters to your code as they are not explicitly declared and set.

John