Crear DSN desde visual basic 6 con autentificacion de SQL Server 2000

[georgeovando]

Hola amigos, fijense que tengo una aplicacion, creada en vb6 y pues me crea bien los DSN, pero utilizando la Autentificacion de Windows. ahora el problema esta, en que quiero utilizar la autentificacion de SQL Server, pero no se como hacerlo. Asi creo mi conexion DSN desde vb6 utilizando la autentificacion de windows:

Public Sub DSN()

rc = SQLServerDSN("Bodega2", "192.168.2.2", "Bodega2")

End Sub

Public Function SQLServerDSN(DSNName As String, ServerName As String, Database As String) As Boolean

Dim sAttributes As String

sAttributes = "DSN=" & DSNName & Chr(0)
sAttributes = sAttributes & "Server=" & ServerName & Chr(0)
sAttributes = sAttributes & "Trusted_Connection=True" & Chr(0)
sAttributes = sAttributes & "Database=" & Database & Chr(0)

SQLServerDSN = CreaDSN("SQL Server", sAttributes)

End Function

Public Function CreaDSN(Driver As String, Attributes As String) As Boolean

CreaDSN = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, Driver, Attributes)

End Function

Con este codigo me crea muy bien los DSN, consulte con un amigo por internet y me dijo que le quitara esta linea de la segunda funcion.

sAttributes = sAttributes & "Trusted_Connection=True" & Chr(0)

y pues modifique el codigo para poner el usuario y contraseña con el que se autentifica en SQL server, pero no me crea nada, el Codigo lo deje asi:

Public Sub DSN()

rc = SQLServerDSN("Bodega2", "192.168.2.2", "Bodega2")

End Sub

Public Function SQLServerDSN(DSNName As String, ServerName As String, Database As String) As Boolean

Dim sAttributes As String

sAttributes = "DSN=" & DSNName & Chr(0)
sAttributes = sAttributes & "Server=" & ServerName & Chr(0)
sAttributes = sAttributes & "Database=" & Database & Chr(0)
sAttributes = sAttributes & "UID= Xela" & Chr(0)
sAttributes = sAttributes & "PSW = Panda" & Chr(0)
SQLServerDSN = CreaDSN("SQL Server", sAttributes)

End Function

Public Function CreaDSN(Driver As String, Attributes As String) As Boolean

CreaDSN = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, Driver, Attributes)

End Function

Pero nada no me crea los dsn, las funciones siempre me devuelven un valor falso, alguien me puede ayudar, la verdad me urge un poco.... Gracias y espero toda la ayuda posible...

[iislas]

¿que tiene que ver su duda con BASES DE DATOS?

[georgeovando]

mi duda aparte de crear los dsn automaticos desde vb6, es que me puedan explicar como crear usuarios de confianza en sql server y como hacer para que acepte mis usuarios del dominio...

[iislas]

Simplemente, cambiando el modo de AUTENTICACION a MIXTO y lo haces en las propiedades del servidor.

[tricampeon27]

nesecito hacer esto mismo con autentificacion windows me ayudas??

[georgeovando]

debes utilizar estas mismas funciones

Public Sub DSN()

rc = SQLServerDSN("Prueba", "192.168.0.1", "Prueba")

End Sub

Public Function SQLServerDSN(DSNName As String, ServerName As String, Database As String) As Boolean

Dim sAttributes As String

sAttributes = "DSN=" & DSNName & Chr(0)
sAttributes = sAttributes & "Server=" & ServerName & Chr(0)
sAttributes = sAttributes & "Database=" & Database & Chr(0)
SQLServerDSN = CreaDSN("SQL Server", sAttributes)

End Function

Public Function CreaDSN(Driver As String, Attributes As String) As Boolean

CreaDSN = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, Driver, Attributes)

End Function

y al momento de llamar el DSN lo haces de la siguiente manera

coneccion.Open "DSN=Prueba", "usuario", "contraseña", 0

y listo te hace la conexion, debes de tener tu servidor de SQL con autentificacion mixta, para que te lo acepte

[tricampeon27]

nesecito hacer esto mismo con autentificacion windows me ayudas??

[georgeovando]

pues te tiene que funcionar de la misma manera, solo que al llamar el DSN no le colocas ni usuario y contraseña


y en la base de datos, tienes que agregar los usuarios que quieres que se autentifiquen desde windows, me imagino que debes de tener un dominio, ya que con esto se te haria mas facil, porque solo agregarias los usuarios del dominio, y le das permisos de SELECT, CREATE, etc...