Access - Problemas al insertar en BBDD.

   
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problemas al insertar en BBDD.

Publicado por jose (741 intervenciones) el 19/03/2014 17:27:47
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar