MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Criar user no sql server com vba

    Compartilhe

    Motar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 148
    Registrado : 03/08/2010

    [Resolvido]Criar user no sql server com vba

    Mensagem  Motar em Dom 25 Maio 2014, 21:01

    Olá
    Tem como criar user no sql server via vba, em que eu colocava num formulário access o username e ele criaria esse login no sql server?
    Não será necessário senha pois os logins são iguais aos logins de rede
    Cumprimentos
    Rui
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3977
    Registrado : 15/03/2013

    Re: [Resolvido]Criar user no sql server com vba

    Mensagem  ahteixeira em Sex 13 Jun 2014, 20:54

    Olá,

    Não sei se poderá ajudar, mas talvez por linha de comando:

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    Motar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 148
    Registrado : 03/08/2010

    Re: [Resolvido]Criar user no sql server com vba

    Mensagem  Motar em Seg 14 Jul 2014, 18:23

    Obrigado pelas dicas ahteixeira

    Resolvi com este código:
    Dim strConnString As String
    Dim oConn As New ADODB.Connection
    On Error GoTo ErrorHandler
    strConnString = "Provider=SQLOLEDB;"
    strConnString = strConnString & "User ID=sa;password=xxxxxxx;"
    strConnString = strConnString & "Initial Catalog=" & _
    Database & ";"
    strConnString = strConnString & "Data Source=nomeservidor\SQLEXPRESS,1433;"
    strConnString = strConnString & "Use Procedure for Prepare=1;"
    strConnString = strConnString & "Auto Translate=True;"
    strConnString = strConnString & "Packet Size=4096"
    oConn.Open strConnString
    oConn.Execute "EXEC sp_grantlogin '" & UserNT & "'"
    oConn.Execute "USE nomebasedados"
    oConn.Execute "EXEC sp_adduser '" & UserNT & "'"
    oConn.Execute "EXEC sp_addrolemember 'db_datareader', '" & "UserNT & "'"
    oConn.Execute "EXEC sp_addrolemember 'db_datawriter', '" & UserNT & "'"
    AddUserTOSQLServer = True
    ErrorHandler:
    If oConn.State <> 0 Then
    oConn.Close
    End If
    Set oConn = Nothing
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3977
    Registrado : 15/03/2013

    Re: [Resolvido]Criar user no sql server com vba

    Mensagem  ahteixeira em Ter 15 Jul 2014, 09:51

    Olá,

    Obrigado pelo retorno.

     cheers 

      Data/hora atual: Sab 27 Maio 2017, 09:05