Hola Ricardo.
Lo primero sería comprobar que tienes permisos de escritura sobre
los ficheros, lo segundo comprobar si tus ficheros no tienen journal y tu
cadena de conexión tiene control de compromiso distinto de *NONE, por
tanto cuando vas a hacer consultas de actualización al no detectar journal
falla. El código no tiene mala pinta. Revisa tu cadena de conexión a
fondo.
Un Saludo.
Jose Vicente Cercós.
<[email protected]>
Enviado por: [email protected]
26/01/2010 04:29
Por favor, responda a
"forum.help400" <[email protected]>
Para
"'forum.help400'" <[email protected]>
cc
Asunto
DELETE - UPDATE (AS400 y VBA)
Hola a Todos, mi nombre es Ricardo.
Actualmente estoy haciendo una aplicación de interfaz en mi trabajo (
VBA-Excel) la cual se debe conectar al AS400. Hasta ahora el único
problema que tengo es este:
¿cómo borrar todos los datos de un archivo?
Resulta que la empresa en la cual trabajo usan el AS400 y tienen como 58
queries para realizar muchos informes. Usan un complemento bien conocido
llamado “cwbtfxla” para bajar y subir datos al AS400. Hace un mes me
contrataron y propuse hacer un interfaz o un menú para subir, bajar y
editar datos. Pero tengo un problema en cuanto a actualizar y/o borrar
datos.
Puedo ingresar registros con “INSERT INTO CLIENTE ( CUENTA) VALUES
(‘377704697826’)” pero cuando uso instrucciones SQL como “UPDATE o
DELETE”; o me envía un error, o se cierra Excel o simplemente se queda
colgado y tengo que teclear CTRL+ALT+SUPR
Pongo un código típico que debería funcionar, pero al llegar a
“MYCONN.EXECUTE (SQL)” me da error. ¿qué hace falta?:
Sub Borrar_Datos_Del_Fichero()
Dim SQL As String
Dim MyConn As ADODB.Connection
SQL = "DELETE FROM CLIENTE.CUENTA"
Set MyConn = New ADODB.Connection
MyConn.Mode = adModeReadWrite
MyConn.CursorLocation = adUseClient
MyConn.ConnectionString = "Provider=IBMDA400;Data source=123.105.2.5;User
Id=USUARIOX;Password=CLAVEX"
MyConn.Open
MyConn.Execute (SQL)
MyConn.Close
End Sub
Nota 1: No tengo ningún problema en la conexión, pues puedo importar e
insertar datos.
Nota 2: Tengo dos semanas buscando por todo internet y he probado una
docena de posibilidades y nada
Gracias por toda la ayuda que me puedan brindar, pues encontrar trabajo no
es fácil en estos tiempos, pero con Fe todo se puede.
__________ Información de ESET NOD32 Antivirus, versión de la base de
firmas de virus 4805 (20100125) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
