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 : 143
    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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    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 : 143
    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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    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: Sex 09 Dez 2016, 13:23