MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ajuda com função CreateDSNConnection

    Compartilhe

    jbulhoes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 15/04/2014

    [Resolvido]Ajuda com função CreateDSNConnection

    Mensagem  jbulhoes em Dom 11 Maio 2014, 01:42

    Boa noite pessoal,

    Estou tentado criar conexão DAO.Método RegisterDatabase, que cria DSN automaticamente sem que seja necessário a intervenção de um técnico nas máquinas aonde o banco for utilizado. Fui no site [Você precisa estar registrado e conectado para ver este link.] e achei o código abaixo só que a conexão é criada com o usuário que está logado no equipamento (MS-AD) mais preciso que ele crie a conexão com um usuário que eu determine e que eu criei no servidor SQL. Vi que aqui tem alguns exemplos que usam  o AttachDSNLessTable, mais eu preciso que todas as tabelas estejam vinculadas ao Servidor. Tentei mudar o código mais não deu certo. Por favor, preciso dessa ajuda de vocês.



    '//Name     :   CreateDSNConnection
    '//Purpose  :   Create a DSN to link tables to SQL Server
    '//Parameters
    '//     stServer: Name of SQL Server that you are linking to
    '//     stDatabase: Name of the SQL Server database that you are linking to
    '//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
    '//     stPassword: SQL Server user password
    Function CreateDSNConnection(stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) As Boolean
       On Error GoTo CreateDSNConnection_Err

       Dim stConnect As String
       
       If Len(stUsername) = 0 Then
           '//Use trusted authentication if stUsername is not supplied.
           stConnect = "Description=myDSN" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr & "Trusted_Connection=Yes"
       Else
           stConnect = "Description=myDSN" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr
       End If
       
       DBEngine.RegisterDatabase "myDSN", "SQL Server", True, stConnect
           
       '// Add error checking.
       CreateDSNConnection = True
       Exit Function
    CreateDSNConnection_Err:
       
       CreateDSNConnection = False
       MsgBox "CreateDSNConnection encountered an unexpected error: " & Err.Description
       
    End Function



    Na macro Autoexec que criei coloco:

    CreateDSNConnection ("IP do servidor", "Meu banco de dados", "meu usuário do Sql Server", "senha")


    Agradeço quem puder me auxiliar,


    Abraços,

      Data/hora atual: Dom 17 Dez 2017, 12:09