Olá a todos,
criei uma base no SQL Server, e pretendia acessá-la por meio do Excel usando VBA.
Tentei acessar de duas formas diferentes e em ambas obtenho erros.
A primeira forma é a seguinte
Sub Acesso()
Dim caminho, provider, userid As String
Dim sql As String
caminho = "c:\Program Files\Microsoft SQL Server\MSSQL11.MSSQLSERVER\MSSQL\DATA\base1.mdf"
Set conexao = New ADODB.Connection
conexao.provider = "Microsoft.Jet.OLEDB.4.0"
conexao.ConnectionString = caminho
conexao.Open
Set tabela = New ADODB.Recordset
End Sub
E obtenho o seguinte erro:
The Microsoft Jet database engine cannot opne the file 'c:\Program Files\Microsoft SQL Server\MSSQL11.MSSQLSERVER\MSSQL\DATA\base1.mdf'
It is already opened exclusivelu by another user, or you need permission to view its data.
Procurando em fóruns obtive a seguinte alternativa:
Sub GetDataFromADO2()
'Declare variables
Set objMyConn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
Set objMyRecordset = New ADODB.Recordset
'Open Connection
objMyConn.ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID= GARDE\gonzalesc;Initial Catalog= c:\Program Files\Microsoft SQL Server\MSSQL11.MSSQLSERVER\MSSQL\DATA\base1.mdf; Data Source=GSAOW028;integrated security=sspi;"
objMyConn.Open
End Sub
GARDE\gonzalesc é meu nome de usuário na rede, e foi com ele que criei a base. sou inclusive dbo dessa base, me atribui todas as permissões possíveis.
Mesmo assim obtenho esse erro.
Cannot open database 'c:\Program Files\Microsoft SQL Server\MSSQL11.MSSQLSERVER\MSSQL\DATA\base1.mdf'
requested by the login. The login failed
Tentei mudar ambos os códigos de várias formas, mas sempre volta uma mensagem de erro, variam um pouco uma da outra, mas sempre focam no mesmo tema, de que não tive o acesso negado.
Curioso é que eu consigo acessar as tabelas da base pelo Excel, usando o DATA>From SQL Server, e não tenho problema nenhum.... se meu usuário não tivesse acesso não conseguiria fazer isso não?
Alguém sabe o que tenho q fazer??
Obrigado!!
