Hola Zitro 5,
Tengo entendido que en AS400 VBA las sentencias SQL siguen esa estructura: DELETE FROM BIBLIOTECA.FICHERO En mi caso, CLIENTE es la biblioteca y CUENTA es el fichero, dentro del fichero CUENTA están los campos como NUMERODECUENTA, MONTO, MONEDA, etc. Para base de datos como Access es DELETE FROM TABLA. Bueno José Cercos, haré lo que me recomiendas, Gracias a ambos. De: [email protected] [mailto:[email protected]] En nombre de Zitro 5 Enviado el: Miércoles, 27 de Enero de 2010 03:27 a.m. Para: 'forum.help400' Asunto: RE: DELETE - UPDATE (AS400 y VBA) Buenos días. No es por pasarme de listo, porque es raro que nadie haya dicho nada, pero yo diría que la sentencia SQL no está bien. ¿Lo correcto no es DELETE FROM CLIENTE? En la cláusula FROM estas poniendo el nombre de un campo, no el de una tabla y creo que eso no es así. Vale, que eso no explica porque no te funciona el UPDATE (a no ser que sea un error similar), ni que se cierre el EXCEL o se te quede colgado, pero lo he mirado en el DB2 Universal Database for iSeries SQL Reference" que tengo antes de hacerme el listo. PD: Y que conste que el DELETE, tal como te lo pongo, borra la tabla CLIENTE entera. Gustavo Adolfo Márquez Álvarez. Departamento de Informática. [email protected] inforZitro, S. L. Carretera de Níjar, nº 404. 04007 Almería (España). Teléfono: 950 226 658. Extensión: 148. Fax: 950 223 620. -----Mensaje original----- De: [email protected] [mailto:[email protected]] En nombre de [email protected] Enviado el: martes, 26 de enero de 2010 04:29 Para: 'forum.help400' 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 __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4808 (20100126) __________ 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
