problemas con la insert
Publicado por maite (3 intervenciones) el 18/11/2007 16:41:25
ola: he conseguido insertar datos en la base de datos, pero ahora tengo otra duda, haber si me sabe alguien ayudar:
Tengo una sentencia insert muy larga y no me deja escribir mas cosas en la misma linea, como puedo hacer esa sentencia insert en 2 lineas para así poder insertar en la base de datos todos los campos?
Mi sentencia insert es la siguiente:
cnn.Execute "INSERT INTO UNIDAD_DOCUMENTAL Values ('" & IIf(IsNull(TxtId) Or TxtId = "", " ", TxtId) & "', '" & IIf(IsNull(TxtSignatura) Or TxtSignatura = "", " ", TxtSignatura) & "', '" & IIf(IsNull(TxtCodigo) Or TxtCodigo = "", " ", TxtCodigo) & "','" & IIf(IsNull(TxtCreacion) Or TxtCreacion = "", " ", TxtCreacion) & "','" & IIf(IsNull(TxtExtremas) Or TxtExtremas = "", " ", TxtExtremas) & "','" & IIf(IsNull(TxtDigitalizacion) Or TxtDigitalizacion = "", " ", TxtDigitalizacion) & "','" & IIf(IsNull(TxtTitulo) Or TxtTitulo = "", " ", TxtTitulo) & "','" & IIf(IsNull(TxtAtribuido) Or TxtAtribuido = "", " ", TxtAtribuido) & "','" & IIf(IsNull(TxtDescripcion) Or TxtDescripcion = "", " ", TxtDescripcion) & "','" & IIf(IsNull(TxtFondo) Or TxtFondo = "", " ", TxtFondo) & "','" & IIf(IsNull(TxtUnidades) Or TxtUnidades = "", " ", TxtUnidades) & "','" & IIf(IsNull(TxtMaterial) Or TxtMaterial = "", " ", TxtMaterial) & "','" & IIf(IsNull(TxtTono) Or TxtTono = "", " ", TxtTono) & "')"
Aun necesito otros 3, peroo me salta a la siguiente linea y me da error.
Gracias
Tengo una sentencia insert muy larga y no me deja escribir mas cosas en la misma linea, como puedo hacer esa sentencia insert en 2 lineas para así poder insertar en la base de datos todos los campos?
Mi sentencia insert es la siguiente:
cnn.Execute "INSERT INTO UNIDAD_DOCUMENTAL Values ('" & IIf(IsNull(TxtId) Or TxtId = "", " ", TxtId) & "', '" & IIf(IsNull(TxtSignatura) Or TxtSignatura = "", " ", TxtSignatura) & "', '" & IIf(IsNull(TxtCodigo) Or TxtCodigo = "", " ", TxtCodigo) & "','" & IIf(IsNull(TxtCreacion) Or TxtCreacion = "", " ", TxtCreacion) & "','" & IIf(IsNull(TxtExtremas) Or TxtExtremas = "", " ", TxtExtremas) & "','" & IIf(IsNull(TxtDigitalizacion) Or TxtDigitalizacion = "", " ", TxtDigitalizacion) & "','" & IIf(IsNull(TxtTitulo) Or TxtTitulo = "", " ", TxtTitulo) & "','" & IIf(IsNull(TxtAtribuido) Or TxtAtribuido = "", " ", TxtAtribuido) & "','" & IIf(IsNull(TxtDescripcion) Or TxtDescripcion = "", " ", TxtDescripcion) & "','" & IIf(IsNull(TxtFondo) Or TxtFondo = "", " ", TxtFondo) & "','" & IIf(IsNull(TxtUnidades) Or TxtUnidades = "", " ", TxtUnidades) & "','" & IIf(IsNull(TxtMaterial) Or TxtMaterial = "", " ", TxtMaterial) & "','" & IIf(IsNull(TxtTono) Or TxtTono = "", " ", TxtTono) & "')"
Aun necesito otros 3, peroo me salta a la siguiente linea y me da error.
Gracias
Valora esta pregunta


0