Celebrate National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Hide server password

Posted on 2009-04-06
4
Medium Priority
?
294 Views
Last Modified: 2013-11-28
Due to a recent 'crackdown' in IT security all Access databases which connect to company servers must not have server passwords embedded in the connection string of attached tabledefs and stored querydefs.  With regard to tabledefs this is straightforward as the tables can simply be re-attached without dbAttachSavePWD as part of the attributes property.

However, since querydefs don't have an attributes property this appears to be more problematic.  For stored querydefs it seems that the only solution is to set the connection string to the DSN (or at least leave out the password) and then open one querydef
to force the default Login prompt to appear.  Once the user has successfully applied the password Access caches it and then subsequent querydefs opened on the same DSN automatically have the password applied.

This raises a problem of automation control, because it would be nice to capture the password in an Access form and then supply it to the dialogue box automatically, however this raises the prospect of the dreaded sendkeys and what to do if the user supplies the wrong password.  Can anyone suggest either a neat solution or an unequivecal statement that only temporary querydefs can be used in this situation.
0
Comment
Question by:Natchiket
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 17

Author Comment

by:Natchiket
ID: 24077270
I should qualify that, my reference to stored querydefs applies to stored passthrough querydefs
0
 
LVL 17

Author Comment

by:Natchiket
ID: 24077822
OK here's my working so far ... which *seems* to work for sybase with a DSN

Create a temporary querydef and open a recordset to validate the password.  If the password is valid then
instantiate any stored passthrough querydef (a nice simple one to be quick!)
use sendkeys to pass the password and an {enter} keystroke to the keyboard buffer
Open a recordset based on the querydef .... the ODBC password prompt briefly appears and autocompletes
voila ... all passthough querydefs work

a bit clunky ... any better ideas , anyone ?





0
 
LVL 16

Expert Comment

by:Chuck Wood
ID: 24108628
What I do is create an ADODB connection to the server, using the password, and then run queries. Each server database type requires a different connection string. The example in the snippet connects to an Access 2007 database but will not work with Access 2007. You will have to test it with Access 2003 as I do not have that version to validate the code.

Public Sub PasswordConnect()
'==========================================================
'  requires a reference to:
'    Microsoft ActiveX Data Objects 2.5(or later) Library
'==========================================================
    Dim cnn As ADODB.Connection
    Dim strDB As String, strDbPassword As String
    strDB = "\\Server\DB\myDatabase.mdb"
    strDbPassword = "myPassword"
    ' use an appropriate connection string
    ' for other connection strings see:
    ' http://www.connectionstrings.com/
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & strDB & ";Jet OLEDB:Database Password=" & strDbPassword
    ' open the connection to the server
    cnn.Open
    ' run a query
    DoCmd.OpenQuery "myQuery"
    ' close the server connection
    cnn.Close
    ' clean up
    Set cnn = Nothing
End Sub

Open in new window

0
 
LVL 16

Accepted Solution

by:
Chuck Wood earned 1500 total points
ID: 24108645
Oops. The phrase "will not work with Access 2007" should have been "will not work with Access 2000."
0

Featured Post

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
Instead of error trapping or hard-coding for non-updateable fields when using QODBC, let VBA automatically disable them when forms open. This way, users can view but not change the data. Part 1 explained how to use schema tables to do this. Part 2 h…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question