ADODB Connection String - Prompt for Password?

[Tim Marshall]

I'm starting to work with connection strings and Oracle. The connection
string syntax is pretty much the same as MS SQL (based on one of Lyle's
posts in response to a question I had about a jmonth or more ago), but
now I'm wondering how to get a procedure using a connection string to
prompt the user for a password. For example, the standard connect
string might be:

Driver={Microsoft ODBC for Oracle};Server=Timmy;Uid=tmar;Pwd=rtma

In my DAO methods for passthrough queries, I would always have the DAO
connection string saved as a constant in a standard module.

But in an app I might have two user names - one would a read only user,
the other has full access. I would want the connection string for the
ful access user to NOT have the password. When I did something similar
in DAO methods, the app would prompt the user for the password with the
DSN dialog box.

I've tried:

Driver={Microsoft ODBC for Oracle};Server=Timmy;Uid=tmar

Driver={Microsoft ODBC for Oracle};Server=Timmy;Uid=tmar;Pwd=

And these throw errors. Any suggestions? Thanks very much in advance.+
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Gord]

Hi, Tim.

I have used the following under ADO:

Set oCon = CreateObject("ADODB.Connection")
oCon.Properties("Prompt") = 2 ' adPromptComplete
oCon.ConnectionString = "DSN=" & strDSN & ";"
oCon.Open

Try specifying UID and omitting PWD completely.
Gord

[Tim Marshall]

Gord wrote:

Hi, Tim.

I have used the following under ADO:

Set oCon = CreateObject("ADODB.Connection")
oCon.Properties("Prompt") = 2 ' adPromptComplete
oCon.ConnectionString = "DSN=" & strDSN & ";"
oCon.Open

Try specifying UID and omitting PWD completely.

Thanks Gord, I will give this a try.

--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Rich P]

Try something like this:

sub ConnectToOracle()
Dim Pwrd As String
...
Pwrd = InputBox("Please enter your password", "Password")

Driver={Microsoft ODBC for Oracle};Server=Timmy;Uid=tmar;Pwd=" & Pwrd
...
End Sub
Rich

*** Sent via Developersdex http://www.developersdex.com ***