Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Como crear un usuario sql desde visual basic

Access - Como crear un usuario sql desde visual basic

Volver
Nuevo Tema
<<>>
 
Vista:

Como crear un usuario sql desde visual basic

Publicado por Carlos (3 intervenciones) el 19/01/2007 18:59:01
hola primero que todo gracias por contestar mi pregunta. Tengo otra duda quisiera saber si existe la posibilidad de crear un usuario SQL desde Visual Basic o access

Gracias por todo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Creación de usuario SQL desde Visual Basic o Access

Publicado por Alejandro (4142 intervenciones) el 01/08/2023 22:01:39
¡Hola de nuevo, Carlos! Sí, es posible crear un usuario de SQL Server desde Visual Basic o Access utilizando código VBA (Visual Basic for Applications) para interactuar con el servidor de bases de datos. Aquí te muestro un ejemplo de cómo hacerlo:

En Access (utilizando VBA):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub CrearUsuarioSQL()
    Dim conn As ADODB.Connection
    Dim strSQL As String
 
    'Cadena de conexión al servidor SQL Server
    'Asegúrate de reemplazar "Servidor", "Usuario" y "Contraseña" con los valores adecuados
    Dim strConexion As String
    strConexion = "Provider=SQLOLEDB;Data Source=Servidor;User ID=Usuario;Password=Contraseña;"
 
    'Nombre del nuevo usuario que deseas crear
    Dim nuevoUsuario As String
    nuevoUsuario = "NuevoUsuario"
 
    'Contraseña para el nuevo usuario
    Dim nuevaContraseña As String
    nuevaContraseña = "NuevaContraseña"
 
    'Crea una nueva conexión al servidor SQL Server
    Set conn = New ADODB.Connection
    conn.ConnectionString = strConexion
    conn.Open
 
    'Crea el comando SQL para crear el usuario
    strSQL = "CREATE LOGIN " & nuevoUsuario & " WITH PASSWORD = '" & nuevaContraseña & "';"
 
    'Ejecuta el comando SQL para crear el usuario
    conn.Execute strSQL
 
    'Cierra la conexión
    conn.Close
    Set conn = Nothing
 
    MsgBox "Usuario creado correctamente.", vbInformation
End Sub

En Visual Basic (utilizando ADO):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub CrearUsuarioSQL()
    Dim conn As ADODB.Connection
    Dim strSQL As String
 
    'Cadena de conexión al servidor SQL Server
    'Asegúrate de reemplazar "Servidor", "Usuario" y "Contraseña" con los valores adecuados
    Dim strConexion As String
    strConexion = "Provider=SQLOLEDB;Data Source=Servidor;User ID=Usuario;Password=Contraseña;"
 
    'Nombre del nuevo usuario que deseas crear
    Dim nuevoUsuario As String
    nuevoUsuario = "NuevoUsuario"
 
    'Contraseña para el nuevo usuario
    Dim nuevaContraseña As String
    nuevaContraseña = "NuevaContraseña"
 
    'Crea una nueva conexión al servidor SQL Server
    Set conn = New ADODB.Connection
    conn.ConnectionString = strConexion
    conn.Open
 
    'Crea el comando SQL para crear el usuario
    strSQL = "CREATE LOGIN " & nuevoUsuario & " WITH PASSWORD = '" & nuevaContraseña & "';"
 
    'Ejecuta el comando SQL para crear el usuario
    conn.Execute strSQL
 
    'Cierra la conexión
    conn.Close
    Set conn = Nothing
 
    MsgBox "Usuario creado correctamente.", vbInformation
End Sub

Ten en cuenta que para ejecutar este código, necesitarás tener permisos suficientes en el servidor SQL Server para crear nuevos usuarios. Además, asegúrate de proporcionar los valores correctos para "Servidor", "Usuario" y "Contraseña" en la cadena de conexión.

Espero que esta información te sea útil. ¡Buena suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar