Error en ADO y VB

Verifica lo siguiente:

1. Que esté encendido el servicio SQL del servidor SERVERPC.

2. Que el modo de autenticación del SQL Server sea "modo mixto" (Windows y
SQL)

3. Que la password del login 'sa' sea efectivamente la que usas en el string
de conexión ADO.

Gustavo Larriera, MSFT MVP-SQL
Uruguay LatAm

This message is provided "AS IS" with no warranties expressed or implied,
and confers no rights.


"sql" wrote in message
news:005501c37176$c9a72580$
Tengo el siguiente código:

Dim db As Object
Dim RS As Recordset
Set db = CreateObject("ADODB.Connection")
db.Open "driver={SQL
Server};server=serverPC;uid=sa;pwd=sa;database=Base1"

...

db.Close


me dice...


Run-time error '-2147467259(80004005)':

[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server
does not exist or access denied.


todos los datos están correctos, uso ADO 2.7

está todo correcto, de hecho hago un dns con esos mismos
datos en la pc y no tengo problema, solo a través de cod
es el problema

Verifica lo siguiente:

1. Que esté encendido el servicio SQL del servidor

SERVERPC.

2. Que el modo de autenticación del SQL Server sea "modo

mixto" (Windows y

SQL)

3. Que la password del login 'sa' sea efectivamente la

que usas en el string

de conexión ADO.

Gustavo Larriera, MSFT MVP-SQL
Uruguay LatAm

This message is provided "AS IS" with no warranties

expressed or implied,

and confers no rights.


"sql" wrote in message
news:005501c37176$c9a72580$
Tengo el siguiente código:

Dim db As Object
Dim RS As Recordset
Set db = CreateObject("ADODB.Connection")
db.Open "driver={SQL
Server};server=serverPC;uid=sa;pwd=sa;database=Base1"



db.Close


me dice...


Run-time error '-2147467259(80004005)':

[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server
does not exist or access denied.


todos los datos están correctos, uso ADO 2.7


.

Revisa si este articulo puede ser de utilidad:

http://support.microsoft.com/defaul...-us;328306



Gustavo Larriera, MSFT MVP-SQL
Uruguay LatAm

This message is provided "AS IS" with no warranties expressed or implied,
and confers no rights.


"sql" wrote in message
news:023301c3717c$db9c68d0$
está todo correcto, de hecho hago un dns con esos mismos
datos en la pc y no tengo problema, solo a través de cod
es el problema

Verifica lo siguiente:

1. Que esté encendido el servicio SQL del servidor

SERVERPC.

2. Que el modo de autenticación del SQL Server sea "modo

mixto" (Windows y

SQL)

3. Que la password del login 'sa' sea efectivamente la

que usas en el string

de conexión ADO.

Gustavo Larriera, MSFT MVP-SQL
Uruguay LatAm

This message is provided "AS IS" with no warranties

expressed or implied,

and confers no rights.


"sql" wrote in message
news:005501c37176$c9a72580$
Tengo el siguiente código:

Dim db As Object
Dim RS As Recordset
Set db = CreateObject("ADODB.Connection")
db.Open "driver={SQL
Server};server=serverPC;uid=sa;pwd=sa;database=Base1"



db.Close


me dice...


Run-time error '-2147467259(80004005)':

[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server
does not exist or access denied.


todos los datos están correctos, uso ADO 2.7


.

El error es obiamente que no encuentra el objeto
servidor. Prueba con este codigo que es el que siempre
utilizo.

dim conexion as new adodb.connection
dim registro as new adodb.recordset

conexion.open "PROVIDER=sqloledb;SERVER=serverpc;UID=sa;PW
D=sa;DATABASE=base1"

registro.open "LATABLITA",Conexion

xxxxx
xxxxx

registro.close
conexion.close

Este es un poco mas "legible" y conecta sin problemas
cuando utilizas una seguridad MIXTA en el sql server.
me cuentas que paso.
Solo verifica si tus servicios estan online, tu server y
el timeout esta en un intervalo logico

saludos

Tengo el siguiente código:

Dim db As Object
Dim RS As Recordset
Set db = CreateObject("ADODB.Connection")
db.Open "driver={SQL
Server};server=serverPC;uid=sa;pwd=sa;database=Base1"



db.Close


me dice...


Run-time error '-2147467259(80004005)':

[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server
does not exist or access denied.


todos los datos están correctos, uso ADO 2.7
.