Access - Problemas al insertar en BBDD.

Problemas al insertar en BBDD.

Publicado por Manuel (1 intervención) el 18/03/2014 12:32:09

Buenos días, estoy intentando agregar una fila en mi BBDD Access pero me sale un error. La consulta es la siguiente
INSERT INTO [Desglose](Fecha,Proveedor,Producto,Cantidad,[Precio unitario],IVA,[Precio Sin IVA],[Precio Total]) VALUES(#03/18/2014#,'Proveedor','Cóctel frutos secos',1.0,110.0,5.0,110.0,115.5);

Hasta ahí todo bien porque debería funcionar pero la haga así o la haga columna a columna me sale el siguiente error:
"microsoft office access ha establecido campos0 en Nulo debido a un error en la conversión de tipos y no ha agregado 1 registros a la tabla debido a infracciones de claves, 0 registros debido a infracciones de bloqueos y 0 registros debido a reglas de validación"
No me cuadra el por qué debe haber errores y si alguien me puede ayudar se lo agradecería.

Gracias de antemano.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Problemas al insertar en BBDD.

Publicado por jose (830 intervenciones) el 19/03/2014 17:27:47

Set rs = CreateObject("ADODB.RecordSet")

Set CON = Application.CurrentProject.Connection

     C10 = ""

       C10 = C10 & " INSERT INTO MOVIMIENTOS "

       C10 = C10 & " ("

       C10 = C10 & " FECHA,"

       C10 = C10 & " NUMEASIENTO,"

       C10 = C10 & " CUENTA,"

       C10 = C10 & " DOCUMENTO,"

       C10 = C10 & " CONCEPTO,"

       C10 = C10 & " DEBE,"

       C10 = C10 & " HABER,"

       C10 = C10 & " TITULAR,"

       C10 = C10 & " TIPOASIENTO,"

       C10 = C10 & " ANNO "

         C10 = C10 & " )"

         C10 = C10 & "SELECT"

         C10 = C10 & " #" & Format(LFECHA, "mm/dd/yyyy") & "# AS Expr1,"

         C10 = C10 & " " & Str$(NUMASI) & " AS Expr2,"

         C10 = C10 & " '" & LCUENTA & "'AS Expr3,"

         C10 = C10 & " '" & Nz(LDOCUMENTO, " ") & "' AS Expr4,"

         C10 = C10 & "  '" & Nz(LCONCEPTO, " ") & "' AS Expr5,"

         C10 = C10 & "  " & Str$(Nz(LDEBE, 0)) & " AS Expr6,"

         C10 = C10 & " " & Str$(Nz(LHABER, 0)) & " AS Expr7,"

         C10 = C10 & "  " & Str$(Forms![FPRINCIPAL]![TIT]) & "  AS Expr8,"

         C10 = C10 & " '" & LTIPOASIENTO & "' AS Expr9,"

         C10 = C10 & "  '" & Forms![FPRINCIPAL]![an] & "' AS Expr10;"

   consulta = c10

rs.Open consulta, CON, adOpenDynamic, adLockOptimistic

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar