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]Ajuda com função CreateDSNConnection

    Compartilhe

    jbulhoes
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Ajuda com função CreateDSNConnection

    Mensagem  jbulhoes em Sab 10 Maio 2014, 21: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: Seg 05 Dez 2016, 01:21