Modificar el registro del sistema

Hola


Date una vuelta por esta pagina:

http://guille.costasol.net/utilidad...ueryReg5.h
tm

Aqui puedes descargar el codigo fuente y pon especial
atencion en la funcion SetReg que esta en el modulo:

cQueryReg

Esta te permite ingresar datos en el registro

Ojala te sirva.

Atte. Fdo. Fdez.

"Oscar Martinez Naranjo" escribió:

lo que pretendo hacer el cambiar el camal o la conexión
ODBC de una manera facil para el usuario del sistema y
para eso tengo un formulario desde donde debo canbiar el
resgitro cuando el usuario quiera conectarse a una base de
datos diferente.

Hola, Oscar:

Personalmente opino que no es necesario modificar la clave
«HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI» del registro de Windows,
mediante las oportunas funciones API del registro, para lo que tú pretendes
hacer.

Para que el usuario se pueda conectar mediante un «DSN de sistema», vía un
origen de datos ODBC, puedes utilizar la función API «SQLConfigDataSource»
para crear y modificar el origen de datos, así como la base donde debe
conectarse el usuario. Te dejo un pequeño ejemplo, que te crea un «DSN de
sistema» que hace referencia a una base de datos Access:

Option Explicit

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
(ByVal hwndParent As Long, ByVal fRequest As Long, _
ByVal lpszDriver As String, ByVal lpszAttributes As String) _
As Long

Dim sRutaBaseDatos As String
Dim sAttributes As String
Dim sDriver As String
Dim sNombre_DSN As String
Dim dl As Long
Const ODBC_ADD_SYS_DSN = 4

' Parámetros necesarios: nombre DSN, ruta y driver
sNombre_DSN = "Ejemplo_DSN_Sistema"
sRutaBaseDatos = "C:\Mis documentos\Bd1.mdb"
sDriver = "Microsoft Access Driver (*.mdb)"

' Atributos
sAttributes = "DSN=" & sNombre_DSN & Chr(0)
sAttributes = sAttributes & "DBQ=" & sRutaBaseDatos & Chr(0)

' Creamos un origen de datos de sistema con el
' driver de Microsoft Access
dl = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, sDriver, sAttributes)

' Si la función devuelve 1, es que se ha creado o modificado el DSN
MsgBox dl

Si deseas que el usuario se conecte a otra base de datos diferente, lo único
que debes de hacer es modificar el valor de la variable «sRutaBaseDatos»:

sRutaBaseDatos = "C:\Mis documentos\Bd33.mdb"

Como podrás observar, es más fácil y sencillo que utilizar las funciones API
de acceso y manipulación del Registro de Windows. ¿O no lo crees tú así? :-)

Un saludo.

Enrique Martínez
[MS MVP - VB]