Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic para Aplicaciones » INSERT INTO + SELECT

Visual Basic para Aplicaciones - INSERT INTO + SELECT

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

INSERT INTO + SELECT

Publicado por LadyGaga (6 intervenciones) el 16/08/2019 05:21:00
Hola a todxs,
tengo un error en un código, ojalá puedan ayudarme:
inicialmente era así y funcionaba;

DoCmd.RunSQL "INSERT INTO Tabla_uno ( Cuenta, Tecnico_ID, Diagnostico_ID, Fecha, Hora_inicio, Hora_fin, Operador, Comentario, Fecha_Carga ) SELECT '" & Cuenta_Activa & "' AS Expr1, " & Tecnico_Actual & " AS Expr2, " & Diagnostico & " AS Expr3, '" & Fecha_Agenda & "' AS Expr4, '" & Hora_inicio & "' AS Expr5, '" & Hora_fin & "' AS Expr6, '" & Usuario_Logueado & "' AS Expr7, '" & Comentarios & "' AS Expr8, '" & Date & "' AS Expr9;"


y yo lo he modificado y ya no funciona:

DoCmd.RunSQL "INSERT INTO Tabla_uno (Cuenta, Tecnico_ID, Diagnostico_ID, Tipo_de_Trabajo_ID, Fecha, Hora_inicio,
Hora_fin, Operador, Comentario, Fecha_Carga, Kits, Garantia, 1Cant_Item13, 1Item, 2Cant_Item, 2Item, 3Cant_Item, 3Item,
4Cant_Item,4Item, 5Cant_Item, 5Item, 6Cant_Item, 6Item, 7Cant_Item, 7Item, 8Cant_Item, 8Item, 9Cant_Item, 9Item, 10Cant_Item, 10Item, 11Cant_Item,11Item, 12Cant_Item, 12Item, 13Cant_Item, 13Item, 14Cant_Item, 14Item, 15Cant_Item, 15Item, 16Cant_Item, 16Item, 17Cant_Item, 17Item, 18Cant_Item, 18Item, 19Cant_Item, 19Item, 20Cant_Item, 20Item, 21Cant_Item, 21Item, 22Cant_Item, 22Item, 23Cant_Item, 23Item, 24Cant_Item,24Item, 25Cant_Item, 25Item, 26Cant_Item, 26Item, 27Cant_Item) " SELECT
'" & Cuenta_Activa & "' AS Expr1," & Tecnico_Actual & " AS Expr2," & Diagnostico & " AS Expr3, " & Tipo_Trabajo & " AS Expr4, '" & Date & "' AS Expr5,'" & Hora_inicio & "' AS Expr6,'" & Hora_fin & "' AS Expr7,'" & Usuario_Logueado & "' AS Expr8, '" & Comentarios & "' AS Expr9, '" & Fecha_Agenda & "' AS Expr10,'" & Kits & "' AS Expr11,'" & Garantia & "' AS Expr12," & 1Cant_Item & " AS Expr13,'" & 1Item & "' AS Expr14, "& 2Cant_Item & " AS Expr15,'" & 2Item & "' AS Expr16," & 3Cant_Item & " AS Expr17,'"& 3Item & "' AS Expr18," & 4Cant_Item & " AS Expr19, '"& 4Item & "' AS Expr20," & 5Cant_Item & " AS Expr21,'" & 5Item & "' AS Expr22," & 6Cant_Item & " AS Expr23,'" & 6Item & "' AS Expr24, "& 7Cant_Item & " AS Expr25,'" & 7Item & "' AS Expr26," & 8Cant_Item & " AS Expr27,'" & 8Item & "' AS Expr28," & 9Cant_Item & " AS Expr29, '" & 9Item & "' AS Expr30," & 10Cant_Item & " AS Expr31,'" & 10Item & "' AS Expr32," & 11Cant_Item & " AS Expr33,'" & 11Item & "' AS Expr34, " & 12Cant_Item & " AS Expr35,'" & 12Item & "' AS Expr36," & 13Cant_Item & " AS Expr37, '" & 13Item & "' AS Expr38," & 14Cant_Item & " AS Expr39, '" & 14Item & "' AS Expr40," & 15Cant_Item & " AS Expr41,'"& 15Item & "' AS Expr42,"& 16Cant_Item & " AS Expr43, '" & 16Item & "' AS Expr44, " & 17Cant_Item & " AS Expr45,'" & 17Item & "' AS Expr46," & 18Cant_Item & " AS Expr47,'" & 18Item & "' AS Expr48," & 19Cant_Item & " AS Expr49, '" & 19Item & "'AS Expr50," & 20Cant_Item & " AS Expr51,'"& 20Item & "' AS Expr52," & 21Cant_Item & " AS Expr53,'" & 21Item & "' AS Expr54, " & 22Cant_Item & " AS Expr55,'" & 22Item & "' AS Expr56," & 23Cant_Item & " AS Expr57, '" & 23Item & "' AS Expr58," & 24Cant_Item & " AS Expr59, '" & 24Item & "' AS Expr60," & 25Cant_Item & " AS Expr61,'" & 25Item & "' AS Expr62," & 26Cant_Item & " AS Expr63, '" & 26Item & "' AS Expr64, " & 27Cant_Item & " AS Expr65,'" & 27Item & " AS Expr66," & 28Cant_Item & " AS Expr67,'" & 28Item & "' AS Expr68," & 29Cant_Item & " AS Expr69, '" & 29Item & "' AS Expr70," & 30Cant_Item & " AS Expr71,'"& 30Item & "' AS Expr72;"


creo que me hice un nudo y ya no encuentro e/los error/es...
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
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

INSERT INTO + SELECT

Publicado por Antoni Masana (502 intervenciones) el 16/08/2019 08:49:52
Te presento toda la parrafara de una forma más visual para ver el error:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
DoCmd.RunSQL "INSERT INTO Tabla_uno (Cuenta,
                                     Tecnico_ID, 

                                     Diagnostico_ID, 

                                     Tipo_de_Trabajo_ID, 

                                     Fecha, 

                                     Hora_inicio, 

                                     Hora_fin, 

                                     Operador, 

                                     Comentario, 

                                     Fecha_Carga, 

                                     Kits, Garantia, 

                                     1Cant_Item13, 1Item, 

                                     2Cant_Item,   2Item, 

                                     3Cant_Item,   3Item, 

                                     4Cant_Item,   4Item, 

                                     5Cant_Item,   5Item, 

                                     6Cant_Item,   6Item, 

                                     7Cant_Item,   7Item, 

                                     8Cant_Item,   8Item, 

                                     9Cant_Item,   9Item, 

                                    10Cant_Item,  10Item, 

                                    11Cant_Item,  11Item, 

                                    12Cant_Item,  12Item, 

                                    13Cant_Item,  13Item, 

                                    14Cant_Item,  14Item, 

                                    15Cant_Item,  15Item, 

                                    16Cant_Item,  16Item, 

                                    17Cant_Item,  17Item, 

                                    18Cant_Item,  18Item, 

                                    19Cant_Item,  19Item, 

                                    20Cant_Item,  20Item, 

                                    21Cant_Item,  21Item, 

                                    22Cant_Item,  22Item, 

                                    23Cant_Item,  23Item, 

                                    24Cant_Item,  24Item, 

                                    25Cant_Item,  25Item, 

                                    26Cant_Item,  26Item, 

                                    27Cant_Item

                                    )

             " SELECT '" & Cuenta_Activa    & "' AS Expr1,   " & _

                           Tecnico_Actual   & "  AS Expr2,   " & _
                           Diagnostico      & "  AS Expr3,   " & _
                           Tipo_Trabajo     & "  AS Expr4,  '" & _
                           Date             & "' AS Expr5,  '" & _
                           Hora_inicio      & "' AS Expr6,  '" & _
                           Hora_fin         & "' AS Expr7,  '" & _
                           Usuario_Logueado & "' AS Expr8,  '" & _
                           Comentarios      & "' AS Expr9,  '" & _
                           Fecha_Agenda     & "' AS Expr10, '" & _
                           Kits             & "' AS Expr11, '" & _
                           Garantia         & "' AS Expr12,  " & _
                           1Cant_Item       & "  AS Expr13, '" &  1Item & "' AS Expr14, " & _
                           2Cant_Item       & "  AS Expr15, '" &  2Item & "' AS Expr16, " & _
                           3Cant_Item       & "  AS Expr17, '" &  3Item & "' AS Expr18, " & _
                           4Cant_Item       & "  AS Expr19, '" &  4Item & "' AS Expr20, " & _
                           5Cant_Item       & "  AS Expr21, '" &  5Item & "' AS Expr22, " & _
                           6Cant_Item       & "  AS Expr23, '" &  6Item & "' AS Expr24, " & _
                           7Cant_Item       & "  AS Expr25, '" &  7Item & "' AS Expr26, " & _
                           8Cant_Item       & "  AS Expr27, '" &  8Item & "' AS Expr28, " & _
                           9Cant_Item       & "  AS Expr29, '" &  9Item & "' AS Expr30, " & _
                          10Cant_Item       & "  AS Expr31, '" & 10Item & "' AS Expr32, " & _
                          11Cant_Item       & "  AS Expr33, '" & 11Item & "' AS Expr34, " & _
                          12Cant_Item       & "  AS Expr35, '" & 12Item & "' AS Expr36, " & _
                          13Cant_Item       & "  AS Expr37, '" & 13Item & "' AS Expr38, " & _
                          14Cant_Item       & "  AS Expr39, '" & 14Item & "' AS Expr40, " & _
                          15Cant_Item       & "  AS Expr41, '" & 15Item & "' AS Expr42, " & _
                          16Cant_Item       & "  AS Expr43, '" & 16Item & "' AS Expr44, " & _
                          17Cant_Item       & "  AS Expr45, '" & 17Item & "' AS Expr46, " & _
                          18Cant_Item       & "  AS Expr47, '" & 18Item & "' AS Expr48, " & _
                          19Cant_Item       & "  AS Expr49, '" & 19Item & "' AS Expr50, " & _
                          20Cant_Item       & "  AS Expr51, '" & 20Item & "' AS Expr52, " & _
                          21Cant_Item       & "  AS Expr53, '" & 21Item & "' AS Expr54, " & _
                          22Cant_Item       & "  AS Expr55, '" & 22Item & "' AS Expr56, " & _
                          23Cant_Item       & "  AS Expr57, '" & 23Item & "' AS Expr58, " & _
                          24Cant_Item       & "  AS Expr59, '" & 24Item & "' AS Expr60, " & _
                          25Cant_Item       & "  AS Expr61, '" & 25Item & "' AS Expr62, " & _
                          26Cant_Item       & "  AS Expr63, '" & 26Item & "' AS Expr64, " & _
                          27Cant_Item       & "  AS Expr65, '" & 27Item & "' AS Expr66, " & _
                          28Cant_Item       & "  AS Expr67, '" & 28Item & "' AS Expr68, " & _
                          29Cant_Item       & "  AS Expr69, '" & 29Item & "' AS Expr70, " & _
                          30Cant_Item       & "  AS Expr71, '" & 30Item & "' AS Expr72; "

He visto varias cosas, algunas la he arreglado, otras no.

- Posibles errores arreglados Comillas y ampersan juntos ( "& )
- Al principio antes del INSERT abres una comilla y la cierras antes del SELECT, esto es un error.
- Después del SELECT no se lo que haces.
--- Por ejemplo Cuenta_Activa es una variable o el nombre de un campo
--- Nombres de Variables o de campos de la BBDD que empiezan por un número ¿Lo primero no esta permitido?

Revisa el texto. sobre todo la linea del SELECT

Saludos.
\\//_
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
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

INSERT INTO + SELECT

Publicado por Antoni Masana (502 intervenciones) el 16/08/2019 09:44:50
Una sugerencia:

Cuando tengas que crear una cadena tan larga has trozos y después los enganchas.

Por ejemplo:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
T1 = "Cuenta, Tecnico_ID,  Diagnostico_ID,  Tipo_de_Trabajo_ID,  Fecha, " & _
     "Hora_inicio,  Hora_fin,  Operador, Comentario, Fecha_Carga, Kits, " & _
     "Garantia, "
 
T2 = "  1Cant_Item13, 1Item, " & _
     "  2Cant_Item,   2Item, " & _
     "  3Cant_Item,   3Item, " & _
     "  4Cant_Item,   4Item, " & _
     "  5Cant_Item,   5Item, " & _
     "  6Cant_Item,   6Item, " & _
     "  7Cant_Item,   7Item, " & _
     "  8Cant_Item,   8Item, " & _
     "  9Cant_Item,   9Item, " & _
     " 10Cant_Item,  10Item, " & _
     " 11Cant_Item,  11Item, " & _
     " 12Cant_Item,  12Item, "
 
T3 = " 13Cant_Item,  13Item, " & _
     " 14Cant_Item,  14Item, " & _
     " 15Cant_Item,  15Item, " & _
     " 16Cant_Item,  16Item, " & _
     " 17Cant_Item,  17Item, " & _
     " 18Cant_Item,  18Item, " & _
     " 19Cant_Item,  19Item, " & _
     " 20Cant_Item,  20Item, " & _
     " 21Cant_Item,  21Item, " & _
     " 22Cant_Item,  22Item, " & _
     " 23Cant_Item,  23Item, " & _
     " 24Cant_Item,  24Item, " & _
     " 25Cant_Item,  25Item, " & _
     " 26Cant_Item,  26Item, " & _
     " 27Cant_Item"
 
T4 = Cuenta_Activa    & "' AS Expr1,   " & _
     Tecnico_Actual   & "  AS Expr2,   " & _
     Diagnostico      & "  AS Expr3,   " & _
     Tipo_Trabajo     & "  AS Expr4,  '" & _
     Date             & "' AS Expr5,  '" & _
     Hora_inicio      & "' AS Expr6,  '" & _
     Hora_fin         & "' AS Expr7,  '" & _
     Usuario_Logueado & "' AS Expr8,  '" & _
     Comentarios      & "' AS Expr9,  '" & _
     Fecha_Agenda     & "' AS Expr10, '" & _
     Kits             & "' AS Expr11, '" & _
     Garantia         & "' AS Expr12,  "
 
T5 =  1Cant_Item       & "  AS Expr13, '" &  1Item & "' AS Expr14, " & _
      2Cant_Item       & "  AS Expr15, '" &  2Item & "' AS Expr16, " & _
      3Cant_Item       & "  AS Expr17, '" &  3Item & "' AS Expr18, " & _
      4Cant_Item       & "  AS Expr19, '" &  4Item & "' AS Expr20, " & _
      5Cant_Item       & "  AS Expr21, '" &  5Item & "' AS Expr22, " & _
      6Cant_Item       & "  AS Expr23, '" &  6Item & "' AS Expr24, " & _
      7Cant_Item       & "  AS Expr25, '" &  7Item & "' AS Expr26, " & _
      8Cant_Item       & "  AS Expr27, '" &  8Item & "' AS Expr28, " & _
      9Cant_Item       & "  AS Expr29, '" &  9Item & "' AS Expr30, " & _
     10Cant_Item       & "  AS Expr31, '" & 10Item & "' AS Expr32, " & _
     11Cant_Item       & "  AS Expr33, '" & 11Item & "' AS Expr34, " & _
     12Cant_Item       & "  AS Expr35, '" & 12Item & "' AS Expr36, " & _
     13Cant_Item       & "  AS Expr37, '" & 13Item & "' AS Expr38, " & _
     14Cant_Item       & "  AS Expr39, '" & 14Item & "' AS Expr40, " & _
     15Cant_Item       & "  AS Expr41, '" & 15Item & "' AS Expr42, "
 
T6 = 16Cant_Item       & "  AS Expr43, '" & 16Item & "' AS Expr44, " & _
     17Cant_Item       & "  AS Expr45, '" & 17Item & "' AS Expr46, " & _
     18Cant_Item       & "  AS Expr47, '" & 18Item & "' AS Expr48, " & _
     19Cant_Item       & "  AS Expr49, '" & 19Item & "' AS Expr50, " & _
     20Cant_Item       & "  AS Expr51, '" & 20Item & "' AS Expr52, " & _
     21Cant_Item       & "  AS Expr53, '" & 21Item & "' AS Expr54, " & _
     22Cant_Item       & "  AS Expr55, '" & 22Item & "' AS Expr56, " & _
     23Cant_Item       & "  AS Expr57, '" & 23Item & "' AS Expr58, " & _
     24Cant_Item       & "  AS Expr59, '" & 24Item & "' AS Expr60, " & _
     25Cant_Item       & "  AS Expr61, '" & 25Item & "' AS Expr62, " & _
     26Cant_Item       & "  AS Expr63, '" & 26Item & "' AS Expr64, " & _
     27Cant_Item       & "  AS Expr65, '" & 27Item & "' AS Expr66, " & _
     28Cant_Item       & "  AS Expr67, '" & 28Item & "' AS Expr68, " & _
     29Cant_Item       & "  AS Expr69, '" & 29Item & "' AS Expr70, " & _
     30Cant_Item       & "  AS Expr71, '" & 30Item & "' AS Expr72; "
 
DoCmd.RunSQL  "INSERT INTO Tabla_uno (" & T1 & T2 & T3 & ") SELECT '" & T4 & T5 & T6

De esta forma es más fácil controlar los posibles errores. Y puedes comprobar si la cadena está bien con el MsgBox por poner un ejemplo.

Saludos.
\\//_
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

INSERT INTO + SELECT

Publicado por LadyGaga (6 intervenciones) el 18/08/2019 18:21:02
Muchas gracias, Antoni Masana
estoy probando
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

INSERT INTO + SELECT

Publicado por LadyGaga (6 intervenciones) el 21/08/2019 17:48:09
1
DoCmd.RunSQL  "INSERT INTO Tabla_uno (" & T1 & T2 & T3 & ") SELECT '" & T4 & T5 & T6

me tira error
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

INSERT INTO + SELECT

Publicado por LadyGaga (6 intervenciones) el 21/08/2019 22:33:24
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
T1 = "Cuenta, Tecnico_ID, Diagnostico_ID, Tipo_de_Trabajo_ID, Fecha, " & _
     "Hora_inicio, Hora_fin, Operador, Comentario, Fecha_Carga, Kits, " & _
     "Garantia_ID, "
 
T2 = " Cant1, Item1, Cant2, Item2, " & _
     " Cant3, Item3, Cant4, Item4, " & _
     " Cant5, Item5, Cant6, Item6, " & _
     " Cant7, Item7, Cant8, Item8, " & _
     " Cant9, Item9, Cant10, Item10, " & _
     " Cant11, Item11, Cant12, Item12, "
 
T3 = "Cant13, Item13, Cant14, Item14, " & _
     " Cant15, Item15, Cant16, Item16, " & _
     " Cant17, Item17, Cant18, Item18, " & _
     " Cant19, Item19, Cant20, Item20, " & _
     " Cant21, Item21, Cant22, Item22, " & _
     " Cant23, Item23, Cant24, Item24, " & _
     " Cant25, Item25, Cant26, Item26, " & _
     " Cant27, Item27, Cant28, Item28, " & _
     " Cant29, Item29, Cant30, Item30 "
 
T4 = Cuenta_Activa & "' AS Expr1,  " & _
     Tecnico_Actual & "  AS Expr2,  " & _
     Diagnostico & "  AS Expr3,  " & _
     Tipo_Trabajo & "  AS Expr4, '" & _
     Date & "' AS Expr5, '" & _
     Hora_inicio & "' AS Expr6, '" & _
     Hora_fin & "' AS Expr7,  '" & _
     Usuario_Logueado & "' AS Expr8, '" & _
     Comentarios & "' AS Expr9, '" & _
     Fecha_Agenda & "' AS Expr10, '" & _
     Kits & "' AS Expr11, '" & _
     Garantia & "' AS Expr12, "
 
T5 = Cant1 & "  AS Expr13, '" & Item1 & "' AS Expr14, " & Cant2 & "  AS Expr15, '" & Item2 & "' AS Expr16, " & _
     Cant3 & "  AS Expr17, '" & Item3 & "' AS Expr18, " & Cant4 & "  AS Expr19, '" & Item4 & "' AS Expr20, " & _
     Cant5 & "  AS Expr21, '" & Item5 & "' AS Expr22, " & Cant6 & "  AS Expr23, '" & Item6 & "' AS Expr24, " & _
     Cant7 & "  AS Expr25, '" & Item7 & "' AS Expr26, " & Cant8 & "  AS Expr27, '" & Item8 & "' AS Expr28, " & _
     Cant9 & "  AS Expr29, '" & Item9 & "' AS Expr30, " & Cant10 & "  AS Expr31, '" & Item10 & "' AS Expr32, " & _
     Cant11 & "  AS Expr33, '" & Item11 & "' AS Expr34, " & Cant12 & "  AS Expr35, '" & Item12 & "' AS Expr36, "
 
T6 = Cant13 & "  AS Expr37, '" & Item13 & "' AS Expr38, " & Cant14 & "  AS Expr39, '" & Item14 & "' AS Expr40, " & _
     Cant15 & "  AS Expr41, '" & Item15 & "' AS Expr42, " & Cant16 & "  AS Expr43, '" & Item16 & "' AS Expr44, " & _
     Cant17 & "  AS Expr45, '" & Item17 & "' AS Expr46, " & Cant18 & "  AS Expr47, '" & Item18 & "' AS Expr48, " & _
     Cant19 & "  AS Expr49, '" & Item19 & "' AS Expr50, " & Cant20 & "  AS Expr51, '" & Item20 & "' AS Expr52, " & _
     Cant21 & "  AS Expr53, '" & Item21 & "' AS Expr54, " & Cant22 & "  AS Expr55, '" & Item22 & "' AS Expr56, " & _
     Cant23 & "  AS Expr57, '" & Item23 & "' AS Expr58, " & Cant24 & "  AS Expr59, '" & Item24 & "' AS Expr60, " & _
     Cant25 & "  AS Expr61, '" & Item25 & "' AS Expr62, " & Cant26 & "  AS Expr63, '" & Item26 & "' AS Expr64, " & _
     Cant27 & "  AS Expr65, '" & Item27 & "' AS Expr66, " & Cant28 & "  AS Expr67, '" & Item28 & "' AS Expr68, " & _
     Cant29 & "  AS Expr69, '" & Item29 & "' AS Expr70, " & Cant30 & "  AS Expr71, '" & Item30 & "' AS Expr72; "
 
DoCmd.RunSQL "INSERT INTO Solicitudes_Tecnicas (" & T1 & T2 & T3 & ") SELECT '" & T4 & T5 & T6
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
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

INSERT INTO + SELECT

Publicado por Antoni Masana (502 intervenciones) el 21/08/2019 23:18:32
Para entender donde esta el error hay que ver el contenido de las 6 variables.

Prueba esto:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
T1 = "Cuenta, Tecnico_ID,  Diagnostico_ID,  Tipo_de_Trabajo_ID,  Fecha, " & _
     "Hora_inicio,  Hora_fin,  Operador, Comentario, Fecha_Carga, Kits, " & _
     "Garantia, "
 
T2 = "  1Cant_Item13, 1Item, " & _
     "  2Cant_Item,   2Item, " & _
     "  3Cant_Item,   3Item, " & _
     "  4Cant_Item,   4Item, " & _
     "  5Cant_Item,   5Item, " & _
     "  6Cant_Item,   6Item, " & _
     "  7Cant_Item,   7Item, " & _
     "  8Cant_Item,   8Item, " & _
     "  9Cant_Item,   9Item, " & _
     " 10Cant_Item,  10Item, " & _
     " 11Cant_Item,  11Item, " & _
     " 12Cant_Item,  12Item, "
 
T3 = " 13Cant_Item,  13Item, " & _
     " 14Cant_Item,  14Item, " & _
     " 15Cant_Item,  15Item, " & _
     " 16Cant_Item,  16Item, " & _
     " 17Cant_Item,  17Item, " & _
     " 18Cant_Item,  18Item, " & _
     " 19Cant_Item,  19Item, " & _
     " 20Cant_Item,  20Item, " & _
     " 21Cant_Item,  21Item, " & _
     " 22Cant_Item,  22Item, " & _
     " 23Cant_Item,  23Item, " & _
     " 24Cant_Item,  24Item, " & _
     " 25Cant_Item,  25Item, " & _
     " 26Cant_Item,  26Item, " & _
     " 27Cant_Item"
 
T4 = Cuenta_Activa    & "' AS Expr1,   " & _
     Tecnico_Actual   & "  AS Expr2,   " & _
     Diagnostico      & "  AS Expr3,   " & _
     Tipo_Trabajo     & "  AS Expr4,  '" & _
     Date             & "' AS Expr5,  '" & _
     Hora_inicio      & "' AS Expr6,  '" & _
     Hora_fin         & "' AS Expr7,  '" & _
     Usuario_Logueado & "' AS Expr8,  '" & _
     Comentarios      & "' AS Expr9,  '" & _
     Fecha_Agenda     & "' AS Expr10, '" & _
     Kits             & "' AS Expr11, '" & _
     Garantia         & "' AS Expr12,  "
 
T5 =  1Cant_Item       & "  AS Expr13, '" &  1Item & "' AS Expr14, " & _
      2Cant_Item       & "  AS Expr15, '" &  2Item & "' AS Expr16, " & _
      3Cant_Item       & "  AS Expr17, '" &  3Item & "' AS Expr18, " & _
      4Cant_Item       & "  AS Expr19, '" &  4Item & "' AS Expr20, " & _
      5Cant_Item       & "  AS Expr21, '" &  5Item & "' AS Expr22, " & _
      6Cant_Item       & "  AS Expr23, '" &  6Item & "' AS Expr24, " & _
      7Cant_Item       & "  AS Expr25, '" &  7Item & "' AS Expr26, " & _
      8Cant_Item       & "  AS Expr27, '" &  8Item & "' AS Expr28, " & _
      9Cant_Item       & "  AS Expr29, '" &  9Item & "' AS Expr30, " & _
     10Cant_Item       & "  AS Expr31, '" & 10Item & "' AS Expr32, " & _
     11Cant_Item       & "  AS Expr33, '" & 11Item & "' AS Expr34, " & _
     12Cant_Item       & "  AS Expr35, '" & 12Item & "' AS Expr36, " & _
     13Cant_Item       & "  AS Expr37, '" & 13Item & "' AS Expr38, " & _
     14Cant_Item       & "  AS Expr39, '" & 14Item & "' AS Expr40, " & _
     15Cant_Item       & "  AS Expr41, '" & 15Item & "' AS Expr42, "
 
T6 = 16Cant_Item       & "  AS Expr43, '" & 16Item & "' AS Expr44, " & _
     17Cant_Item       & "  AS Expr45, '" & 17Item & "' AS Expr46, " & _
     18Cant_Item       & "  AS Expr47, '" & 18Item & "' AS Expr48, " & _
     19Cant_Item       & "  AS Expr49, '" & 19Item & "' AS Expr50, " & _
     20Cant_Item       & "  AS Expr51, '" & 20Item & "' AS Expr52, " & _
     21Cant_Item       & "  AS Expr53, '" & 21Item & "' AS Expr54, " & _
     22Cant_Item       & "  AS Expr55, '" & 22Item & "' AS Expr56, " & _
     23Cant_Item       & "  AS Expr57, '" & 23Item & "' AS Expr58, " & _
     24Cant_Item       & "  AS Expr59, '" & 24Item & "' AS Expr60, " & _
     25Cant_Item       & "  AS Expr61, '" & 25Item & "' AS Expr62, " & _
     26Cant_Item       & "  AS Expr63, '" & 26Item & "' AS Expr64, " & _
     27Cant_Item       & "  AS Expr65, '" & 27Item & "' AS Expr66, " & _
     28Cant_Item       & "  AS Expr67, '" & 28Item & "' AS Expr68, " & _
     29Cant_Item       & "  AS Expr69, '" & 29Item & "' AS Expr70, " & _
     30Cant_Item       & "  AS Expr71, '" & 30Item & "' AS Expr72; "
 
Open "C:\Tmp\Trace.txt" for Output as #1

 
Print #1, "===== T1 ====="

Print #1, ""

Print #1, "<" & T1 & ">"

Print #1, ""

 
Print #1, "===== T2 ====="

Print #1, ""

Print #1, "<" & T2 & ">"

Print #1, ""

 
Print #1, "===== T3 ====="

Print #1, ""

Print #1, "<" & T3 & ">"

Print #1, ""

 
Print #1, "===== T4 ====="

Print #1, ""

Print #1, "<" & T4 & ">"

Print #1, ""

 
Print #1, "===== T5 ====="

Print #1, ""

Print #1, "<" & T5 & ">"

Print #1, ""

 
Print #1, "===== T6 ====="

Print #1, ""

Print #1, "<" & T6 & ">"

Print #1, ""

 
Print #1, "===== INSER INTO ====="

Print #1, ""

Print #1, "INSERT INTO Tabla_uno (" & T1 & T2 & T3 & ") SELECT '" & T4 & T5 & T6

Print #1, ""

 
Close  #1

 
DoCmd.RunSQL  "INSERT INTO Tabla_uno (" & T1 & T2 & T3 & ") SELECT '" & T4 & T5 & T6

Esto crea un fichero TRACE.TXT en el directorio C:\TMP, si no existe este directorio puedes crearlo o modificar la ruta en el Open.

Con eso podrás ver que contiene cada variable y ver donde esta el error.
Si no lo ves envíame el fichero TRACE.TXT y tratare de ver que esta pasando.

He visto esto:

1
T2 = "  1Cant_Item13, 1Item, " & _

Este 1Cant_Item13 ¿Es correcto?

Saludos.
\\//_
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

INSERT INTO + SELECT

Publicado por LadyGaga (6 intervenciones) el 21/08/2019 23:37:01
No, estaba mal.
Cambie los nombres por los tips que me diste.
y el código es VBA para Access
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

INSERT INTO + SELECT

Publicado por LadyGaga (6 intervenciones) el 21/08/2019 23:55:33
cant = número

fecha, hora y date = fechas

todo lo demás es texto
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