Problemas para actualizar un registro en una BBDD mediante un script en VBScript

[netenforcer]

Hola,

Tengo un problema al ejecutar una actualización sobre una BBDD Access y resulta que la siguiente consulta SQL:

UPDATE interfacesRA
SET Proveedor = 'AUNA'
WHERE ((InterfacesRA.pvc Like '3/*') AND (InterfacesRA.router='RADSLS'));

Funciona de perlas creada dentro de la BBDD access. Pero como necesito ejecutarla una vez al día a la misma hora he creado un script en VBScript que no se porque no funciona, no me actualiza ningún registro (tampoco me aparece ningún mensaje de error). ¿Sabeis que puede pasar?

Un saludo y gracias

El script en VB es el siguiente:

Option Explicit

Sub main()

DIM oCon, SQL, BBDD
Set oCon = CreateObject("ADODB.Connection")

'Base de datos de pruebas
BBDD = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=D:\Chapucillas\BDITO.mdb;DefaultDir=;Uid=Admi n;Pwd=;"
' Base de datos de la aplicación
'BBDD = "Driver={Microsoft Access Driver (*.mdb)};" & _
' "Dbq=c:\Inetpub\BDITO.mdb;DefaultDir=;Uid=Admin;Pw d=;"

' Actualizamos las líneas que tienen pvc 3/x poniendo como proveedor AUNA
SQL = "UPDATE interfacesRA SET Proveedor = 'AUNA' WHERE ((InterfacesRA.pvc Like '3/*') AND (InterfacesRA.router='RADSLS'));"
WScript.Echo SQL
oCon.Open BBDD
oCon.Execute(SQL)
oCon.Close

End Sub

main()

[dogduck]

Prueba esto y cuentanos

Código:

Option Explicit

Sub main()

DIM oCon
Set oCon = CreateObject("ADODB.Connection")

With oCon
    .Provider = "Microsoft.Jet.OLEDB.4.0"

    .ConnectionString = "Data Source=D:\Chapucillas\BDITO.mdb"

    .Open

   
        .UPDATE interfacesRA SET Proveedor = 'AUNA' WHERE ((InterfacesRA.pvc Like '3/*') AND (InterfacesRA.router='RADSLS'));

        .Close

   MsgBox "Finito - Comprobar validez del script", 32, "Fin del proceso"

End With
End Sub

main()

Si no te vale busca en google web del buho e investiga por hay , tiene muy buenas ideas para el access esa web

[netenforcer]

Aparece error de compilación:
Línea 12
Caracter 30
Error: se esperaba un final de instrucción.

Da error a a partir de la palabra SET del UPDATE.

PD: creo que me voy a pasar al java....

[dogduck]

A lo mejor es una barbaridad pero ¿ has probado ?

Código:

....
.UPDATE interfacesRA 
.SET Proveedor = 'AUNA'
.WHERE ((InterfacesRA.pvc Like  '3/*') AND (InterfacesRA.router='RADSLS'));
.Close
....

La verdad es que este código lo he probado solo con SELECT ... de sql nunca para hacer actualizaciones de tablas ...

[netenforcer]

Con esta sentencia:

.Execute "UPDATE interfacesRA SET Proveedor = 'AUNA' WHERE ((InterfacesRA.pvc Like '3/*') AND (InterfacesRA.router='RADSLS'));"

Si funciona pero no se actualiza la BBDD, me da a mi que debe ser un bug un poco raro....