Link to SQL Server via code

B

Bill Sturdevant

I am trying to set up an Access 2002 front end to connect to a SQL Server
backend database. I am successfully able to link a table mannually using
"File==>Get External Data==>Link Tables". I am trying to use the following
code to refresh the links via code. When I do, I get a message:

Run-time error '-2147467259 (80004005)': ODBC - connection to 'CS' failed

What am I doing wrong or not doing?

Call LinkToSQL("TblSales", "Company Sales", "Sales", "CS", "MyUserName",
"12345")


Sub LinkToSQL(strAccessTable, strDBName, strTableName, _
strDataSourceName, strUserID, strPassWord)

'strAccessTable -- name of the table as I want to see it in my front end
'strDBName -- the name of the SQL Server database
'strTableName -- the name of the table in the server
'strDataSourceName -- the name of the File DSN
'strUserID -- the name of the authorized user
'strPassWord -- the authorized user's password

Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table

Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection

Set tbl = New ADOX.Table
tbl.Name = strAccessTable
Set tbl.ParentCatalog = cat

tbl.Properties("Jet OLEDB:Create Link") = True
tbl.Properties("Jet OLEDB:Link Provider String") = "ODBC" & _
";DATABASE=" & strDBName & _
";UID=" & strUserID & _
";PWD=" & strPassWord & _
";DSN=" & strDataSourceName
tbl.Properties("Jet OLEDB:Remote Table Name") = strTableName

cat.Tables.Append tbl
End Sub
 
D

Douglas J. Steele

Check Carl Prothman's http://www.able-consulting.com/ado_conn.htm

You're missing the driver information (i.e.: what tells ADO what sort of
database it's going against):

tbl.Properties("Jet OLEDB:Link Provider String") = _
"Driver={SQL Server}" & _
";DATABASE=" & strDBName & _
";UID=" & strUserID & _
";PWD=" & strPassWord & _
";DSN=" & strDataSourceName
 
D

Douglas J. Steele

Sorry, typo there. You need the ODBC as well:

tbl.Properties("Jet OLEDB:Link Provider String") = "ODBC" & _
";Driver={SQL Server}" & _
";DATABASE=" & strDBName & _
";UID=" & strUserID & _
";PWD=" & strPassWord & _
";DSN=" & strDataSourceName
 
B

Bill Sturdevant

Got it to work by adding some more parameters to the link provider string:

";DRIVER={SQL Server}" & _
";SERVER={LAPTOP-WES}" & _
";WSID={LAPTOP-WES}" & _
";NETWORK={DBMSLPCN}" & _

I found the SERVER, WSID and NETWORK values by looking at the properties of
an already "hand-linked" table.
 
D

david epsom dot com dot au

Since it is the connection that is reported as failing, can you
test the connection? Does the DSN work when tested in the ODBC
setup system? Does it work if you attempt an ADO connection?

(david)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top