Conexion ADO

[Omar]

Buenas noches estoy haciendo una conexion ADO con unservidor SQL con esta
instruccion
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Dim tField As ADODB.Field
'
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' abrir la base usando las credenciales de Windows
cnn.Open "Provider=SQLOLEDB; " & _
"Data Source=Server_Name;" & _
"Initial Catalog=eInventarios; " & _
"integrated security=SSPI "

Cuando lanzo esa instruccion a un servidor la conexion se hace de forma
adecuada, pero cuando lo intento hacerde forma local en el SQL de mi maquina
la instruccion devuelve un error
[DBNETLIB][CONNECTIONOPEN(CONNECT().]SQL SERVER DOES NOT EXIST OR ACCESS
DENIED, que puede ser?.

Slaudos y muchas gracias

[Angel J. Hernandez M.]

Un par de cosas, Omar

1-. Para que estableces los objetos a Nothing en caso que estén siendo
usados, si acabas de declararlos? Esas dos líneas están de más

2-. El error es porque el proveedor no puede encontrar el servidor bien sea
por:
2.1-. El servicio no está corriendo
2.2-. Un firewall está bloqueando el puerto que usa SQL
2.3-. Especificaste el nombre de instancia mal
2.4-. Tienes problemas con el DNS y no estás resolviendo nombres

Saludos,

--
Angel J. Hernandez M.
MCP,MCAD,MCSD,MCDBA
Microsoft MVP

http://twitter.com/angeljesus14
http://msmvps.com/blogs/angelhernandez

"Omar" <Om...@discussions.microsoft.com> wrote in message
news:479DB300-F263-42FE...@microsoft.com...