O código asseguir cria uma Dsn via código para acessar um Banco de dADos no Sql Server.
O problema é que este código acesso pelo modo (Conexão segura do Windows NT). mas Eu preciso criar uma Dsn que assesse com autenticação do SqlServer utilizando Login e Senha.
Alguém pode me ajudar?
Sub Create_ODBC()
#If Win32 Then
Dim intRet As Long
#Else
Dim intRet As Integer
#End If
Dim strDriver As String
Dim strAttributes As String
'Especifica o driver a ser selecionado para conexão no caso SQL Server
strDriver = "SQL Server"
'MsgBox strAttributes
'Atributos para conexão ODBC
'Servidor a ser conectado
strAttributes = "SERVER=Servidor" & Chr$(0)
'MsgBox strAttributes
'Descriçao da conexão (opcional)
strAttributes = strAttributes & "DESCRIPTION=NomeDaDsn" & Chr$(0)
'MsgBox strAttributes
'Nome da conexão
strAttributes = strAttributes & "DSN=NomeDaDsn" & Chr$(0)
'MsgBox strAttributes
'DataBase a ser conectado
strAttributes = strAttributes & "DATABASE=BancoDeDados" & Chr$(0)
'MsgBox strAttributes
'Tipo de conexão, no caso é Trusted Connection (Conexão segura do Windows NT)
strAttributes = strAttributes & "Trusted_Connection=Yes" & Chr$(0)
'MsgBox strAttributes
'Comando para criação da conexão ODBC
intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, strDriver, strAttributes)
End Sub
