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.
____________________________________________________ © 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
