Problema Conectandome a SQLserver....

Hola y Feliz Año Nuevo
estoy conectandome a una base de datos para realizar una copia de una
base
de acces a SQLserver,

Cuando me conecto al server me aparece el siguiente error:

Ad hoc access to OLE DB provider 'Microsoft.Jet.OLEDB.4.0' has been
denied.
You must access this provider through a linked server.

si les sirve de algo adjunto el codigo de conexion.:

Set cnn = New ADODB.Connection
With cnn
.CursorLocation = adUseClient
.Open "driver={SQL Server};server 0.XXX.XX.XXX; database=intranet ;
uid=xxxxxx;pwd=xxxx"
End With

Saludos y Gracias

Hola, donde te aparece ese error?


Salu2
Maxi


"Phobos" escribió en el mensaje
news:uLhRc$
> Hola y Feliz Año Nuevo
> estoy conectandome a una base de datos para realizar una copia de una
> base
> de acces a SQLserver,
>
> Cuando me conecto al server me aparece el siguiente error:
>
> Ad hoc access to OLE DB provider 'Microsoft.Jet.OLEDB.4.0' has been
> denied.
> You must access this provider through a linked server.
>
> si les sirve de algo adjunto el codigo de conexion.:
>
> Set cnn = New ADODB.Connection
> With cnn
> .CursorLocation = adUseClient
> .Open "driver={SQL Server};server 0.XXX.XX.XXX; database=intranet ;
> uid=xxxxxx;pwd=xxxx"
> End With
>
> Saludos y Gracias
>
>

Me acabo de dar cuenta que el error me aparece aca:
SQL = "SELECT * INTO partida " & _
"FROM OPENROWSET(" & _
"'Microsoft.Jet.OLEDB.4.0'," & _
"'" & dbRuta & "';" & _
"'admin';''," & _
"'SELECT * FROM partida')"

cnn.Execute SQL, lngRegAfectados, adCmdText

Cuando executo la consulta.

Saludps

"Maxi" escribió en el mensaje
news:
Mostrar la cita

Hola, donde te aparece ese error?


Salu2
Maxi


"Phobos" escribió en el mensaje
news:uLhRc$
> Hola y Feliz Año Nuevo
> estoy conectandome a una base de datos para realizar una copia de una
> base
> de acces a SQLserver,
>
> Cuando me conecto al server me aparece el siguiente error:
>
> Ad hoc access to OLE DB provider 'Microsoft.Jet.OLEDB.4.0' has been
> denied.
> You must access this provider through a linked server.
>
> si les sirve de algo adjunto el codigo de conexion.:
>
> Set cnn = New ADODB.Connection
> With cnn
> .CursorLocation = adUseClient
> .Open "driver={SQL Server};server 0.XXX.XX.XXX; database=intranet
> ;
> uid=xxxxxx;pwd=xxxx"
> End With
>
> Saludos y Gracias
>
>

Hola, proba de reinstalar los MDAC, usa la version 2.8


Salu2
Maxi


"Phobos" escribió en el mensaje
news:%
> Me acabo de dar cuenta que el error me aparece aca:
> SQL = "SELECT * INTO partida " & _
> "FROM OPENROWSET(" & _
> "'Microsoft.Jet.OLEDB.4.0'," & _
> "'" & dbRuta & "';" & _
> "'admin';''," & _
> "'SELECT * FROM partida')"
>
> cnn.Execute SQL, lngRegAfectados, adCmdText
>
> Cuando executo la consulta.
>
> Saludps
>
> "Maxi" escribió en el mensaje
> news:
>> Hola, donde te aparece ese error?
>>
>>
>> Salu2
>> Maxi
>>
>>
>> "Phobos" escribió en el mensaje
>> news:uLhRc$
>> > Hola y Feliz Año Nuevo
>> > estoy conectandome a una base de datos para realizar una copia de

>> > base
>> > de acces a SQLserver,
>> >
>> > Cuando me conecto al server me aparece el siguiente error:
>> >
>> > Ad hoc access to OLE DB provider 'Microsoft.Jet.OLEDB.4.0' has been
>> > denied.
>> > You must access this provider through a linked server.
>> >
>> > si les sirve de algo adjunto el codigo de conexion.:
>> >
>> > Set cnn = New ADODB.Connection
>> > With cnn
>> > .CursorLocation = adUseClient
>> > .Open "driver={SQL Server};server 0.XXX.XX.XXX;

>> > ;
>> > uid=xxxxxx;pwd=xxxx"
>> > End With
>> >
>> > Saludos y Gracias
>> >
>> >
>>
>>
>
>

Ok, lo hice pero no funciono. Sigue apareciendo el mismo error.

Saludos.


"Maxi" escribió en el mensaje
news:
Mostrar la cita

Hola, proba de reinstalar los MDAC, usa la version 2.8


Salu2
Maxi


"Phobos" escribió en el mensaje
news:%
> Me acabo de dar cuenta que el error me aparece aca:
> SQL = "SELECT * INTO partida " & _
> "FROM OPENROWSET(" & _
> "'Microsoft.Jet.OLEDB.4.0'," & _
> "'" & dbRuta & "';" & _
> "'admin';''," & _
> "'SELECT * FROM partida')"
>
> cnn.Execute SQL, lngRegAfectados, adCmdText
>
> Cuando executo la consulta.
>
> Saludps
>
> "Maxi" escribió en el mensaje
> news:
>> Hola, donde te aparece ese error?
>>
>>
>> Salu2
>> Maxi
>>
>>
>> "Phobos" escribió en el mensaje
>> news:uLhRc$
>> > Hola y Feliz Año Nuevo
>> > estoy conectandome a una base de datos para realizar una copia de

una
Mostrar la cita

>> > base
>> > de acces a SQLserver,
>> >
>> > Cuando me conecto al server me aparece el siguiente error:
>> >
>> > Ad hoc access to OLE DB provider 'Microsoft.Jet.OLEDB.4.0' has been
>> > denied.
>> > You must access this provider through a linked server.
>> >
>> > si les sirve de algo adjunto el codigo de conexion.:
>> >
>> > Set cnn = New ADODB.Connection
>> > With cnn
>> > .CursorLocation = adUseClient
>> > .Open "driver={SQL Server};server 0.XXX.XX.XXX;

database=intranet
Mostrar la cita

>> > ;
>> > uid=xxxxxx;pwd=xxxx"
>> > End With
>> >
>> > Saludos y Gracias
>> >
>> >
>>
>>
>
>