La Web del Programador: Comunidad de Programadores
 
    Pregunta:  18681 - CREAR UN DSN PARA SQL SERVER DESDE CODIGO
Autor:  Alfonso Guerrero
Necesito crear una entrada en DNS de Sistema de un SQL Server. Se me dió aquí la solución de hacerlo así:
Dim strattribs As String

' Crear cadena de palabras clave.
strattribs = "Description=" _
& Chr$(13) & "SERVER=" _
& Chr$(13) & "DATABASE=" _
& Chr$(13) & "UID=" _
& Chr$(13) & "PWD="

' Crea un nuevo DSN o vuelve a registrarlo.
rdoEngine.rdoRegisterDataSource , "SQL Server", True, strattribs

Esto me da 2 problemas. El primero es que los parámetros de UID y PWD no me los acepta y el segundo es que no me crea la entrada en DSN de usuario como necesito. Gracias por adelantado.

  Respuesta:  Roberto Luciano
ese metodo k tienes no lo conocia, pero tengo uno funcional, yo uso un componente directo del sql para crearlo, no te puedo explicar ahorita pues estoy tranajando, escribeme a este correo para ver si lo leiste para ponernos en contacto para enviarte un sample y ayudarte