Bueno gente despues de investigar y ser ayudados por ustedes he logrado
poder crear un usuario en el sql server 2000 desde vb60 aca esta la sintaxis
que he usado funciona ahora mi pregunta es se puede mejorar o hacerlo de
otra forma este codigo y como seria porder borrar o actualziar este usuario
desde ya gracias por su ayuda y saludos desde argentina

O.W.E.
Dpto de Sistemas

Dim ServidorNombre As String
Dim BdNombre As String
Dim Usuario As String
Dim Password As String
Dim Conexion As ADODB.Connection

ServidorNombre = "OWE"
BdNombre = "bd"
Usuario = "user"
Password = "pasw"

Set Conexion = New ADODB.Connection

Conexion.ConnectionTimeout = 25
Conexion.Provider = "SQLOLEDB"
Conexion.Properties("Data Source").Value = ServidorNombre
Conexion.Properties("Initial Catalog").Value = BdNombre
Conexion.Properties("User ID").Value = Usuario
Conexion.Properties("Password").Value = Password
Conexion.Open

Conexion.Execute "sp_addlogin ***loginame='Prueba', ***passwd='prueba',
***defdb='Ipe'"
Conexion.Execute "sp_grantdbaccess ***loginame='Prueba'"
Conexion.Execute "sp_addrolemember ***rolename='db_datawriter',
***membername='Prueba'"
Conexion.Execute "sp_addrolemember
***rolename='db_datareader',***membername='Prueba'"

"Omar Walter Estran" <owe***integralexpress.com> escribió en el mensaje
news:u7vYFnS4IHA.3396***TK2MSFTNGP02.phx.gbl...
> Bueno gente despues de investigar y ser ayudados por ustedes he logrado
> poder crear un usuario en el sql server 2000 desde vb60 aca esta la
> sintaxis
> que he usado funciona ahora mi pregunta es se puede mejorar o hacerlo de
> otra forma este codigo y como seria porder borrar o actualziar este
> usuario
> desde ya gracias por su ayuda y saludos desde argentina

Hola, Omar:

Tal como está, no es mucho lo que hay que hacer para mejorarlo: es una
simple secuencia de instrucciones.

Lo único que se me ocurre, como mejora del código, es usar un bloque With:

With Conexion
.ConnectionTimeout = 25
.Provider = "SQLOLEDB"
.Properties("Data Source").Value = ServidorNombre
.Properties("Initial Catalog").Value = BdNombre
.Properties("User ID").Value = Usuario
.Properties("Password").Value = Password
.Open

.Execute "sp_addlogin ***loginame='Prueba', ***passwd='prueba', " & _
"***defdb='Ipe'"
.Execute "sp_grantdbaccess ***loginame='Prueba'"
.Execute "sp_addrolemember ***rolename='db_datawriter', " & _
"***membername='Prueba'"
.Execute "sp_addrolemember " & _
"***rolename='db_datareader',***membername='Prueba '"

' normalmente, lo que abres en una función lo cierras en la misma
funcion,
' entonces:
.Close
End With

Tal vez, a nivel del servidor, podrías desarrollar un sp que reciba los
argumentos (login_name y password) y ejecute todas las llamadas en una sola
pasada.

Pero mejorar, lo que se dice mejorar, el código no tiene mucho sentido: es
lo más simple que un trozo de código puede ser.


Salud!