Foros del Web » Creando para Internet » Diseño web »

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

Estas en el tema de Problemas para actualizar un registro en una BBDD mediante un script en VBScript en el foro de Diseño web en Foros del Web. 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' ...
  #1 (permalink)  
Antiguo 02/03/2006, 09:10
 
Fecha de Ingreso: marzo-2006
Mensajes: 3
Antigüedad: 10 años, 6 meses
Puntos: 0
Problemas para actualizar un registro en una BBDD mediante un script en VBScript

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()
  #2 (permalink)  
Antiguo 02/03/2006, 12:47
Avatar de dogduck  
Fecha de Ingreso: enero-2006
Ubicación: ¿Atlantida, Hesperides, Islas afortunadas?
Mensajes: 2.231
Antigüedad: 10 años, 8 meses
Puntos: 19
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
  #3 (permalink)  
Antiguo 03/03/2006, 04:47
 
Fecha de Ingreso: marzo-2006
Mensajes: 3
Antigüedad: 10 años, 6 meses
Puntos: 0
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....
  #4 (permalink)  
Antiguo 03/03/2006, 05:09
Avatar de dogduck  
Fecha de Ingreso: enero-2006
Ubicación: ¿Atlantida, Hesperides, Islas afortunadas?
Mensajes: 2.231
Antigüedad: 10 años, 8 meses
Puntos: 19
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 ...
  #5 (permalink)  
Antiguo 03/03/2006, 05:18
 
Fecha de Ingreso: marzo-2006
Mensajes: 3
Antigüedad: 10 años, 6 meses
Puntos: 0
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....
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 19:43.