AYUDA: AGREGAR REGISTROS CON SQL

Rossana
26 de Abril del 2004
Quiero agregar un registro a unas tablas, pero me produce un error

El código es así:

Public Base As Database
Public Tabla1 As Recordset
Public Tabla2 As Recordset
sql as string

Set Base = OpenDatabase(App.Path & "" & "BASE.mdb")

'abre la tabla de la base de datos
Set Tabla1 = Base.OpenRecordset("MENSAJE", dbOpenTable)
Set Tabla2 = Base.OpenRecordset("CARPETA", dbOpenTable)

sql = "insert into CARPETA, MENSAJE ([n°mensaje], [nom_carpeta], [cod_carpeta], [des_carpeta], [día], [mes], [año], [para], [de], [asunto], [descripción], [observaciones]) values ( '" & Lblnummensaje & "', '" & cbocarpeta.Text & "', '" & txtcodcar & "', '" & txtdescar & "', '" & txtdia & "', '" & txtmes & "', '" & txtaño & "', '" & txtpara & "', '" & txtde & "', '" & txtasunto & "', '" & txtdes & "', '" & txtobs & "')"
Base.Execute sql, dbFailOnError

Al ejecutar me produce un error diciendo error de sintaxis en insert into. No sé cuál será el error, pues aparentemente está escrito bien

Si alguien sabe por favor me lo puede decir.

Bartolom
26 de Abril del 2004
Por lo que veo en tu instrucción, estás insrtando valores en las columnas que especificas ahí, por lo que asumo que quedan campos sin especificar. Como la sentencia INSERT asigna valores nulos a los campos que no se especifican, si la defincición de tu tabla no acepta valores nulos para esos campos, te generará un error y la inserción no se producirá.

Lo otro, prueba utilizar la instrucción primero en una sola tabla.

Saludos!
Bartolom
Chile