VBA code to change registry value of existing DSN

Hello,

I need VBA code to change the DBQ string in an existing DSN.

I am getting external data into Excel through a third party ODBC driver,
and would like to emulate a DSN-less connection to the data by simply
changing the DBQ string of an existing DSN. It's not really DSN-less,
but the user will never know, and it would allow the user to get to
external data residing in different folders without the mess of creating
DSNs.

I have accomplished the DBQ string change manually using regedit, and
successfully brought data into Excel from different folders using the
same DSN.

I want to pass the DBQ string (path) from a variable that captures the
string from the user's choice of filename through the GetOpenFileName
dialog. I already have this piece complete.

The DSN is in HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\
The DSN is: AnyEstimate-DoNotDelete

Current DBQ string is: K:\Proposal\123.0403\ESTIMATR

I am looking for a short, neat solution that will pass a different
string from a VBA variable to the registry.

Any help is much appreciated. Thanks in advance.

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

http://tinyurl.com/9pfoo

should get you some sample code.

--
Regards,
Tom Ogilvy


"Alan" <anonymous@devdex.com> wrote in message
news:OY79jKB1FHA.2932@TK2MSFTNGP10.phx.gbl...
> Hello,
>
> I need VBA code to change the DBQ string in an existing DSN.
>
> I am getting external data into Excel through a third party ODBC driver,
> and would like to emulate a DSN-less connection to the data by simply
> changing the DBQ string of an existing DSN. It's not really DSN-less,
> but the user will never know, and it would allow the user to get to
> external data residing in different folders without the mess of creating
> DSNs.
>
> I have accomplished the DBQ string change manually using regedit, and
> successfully brought data into Excel from different folders using the
> same DSN.
>
> I want to pass the DBQ string (path) from a variable that captures the
> string from the user's choice of filename through the GetOpenFileName
> dialog. I already have this piece complete.
>
> The DSN is in HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\
> The DSN is: AnyEstimate-DoNotDelete
>
> Current DBQ string is: K:\Proposal\123.0403\ESTIMATR
>
> I am looking for a short, neat solution that will pass a different
> string from a VBA variable to the registry.
>
> Any help is much appreciated. Thanks in advance.
>
> *** Sent via Developersdex http://www.developersdex.com ***