Insert into muy largo
Publicado por Omar Rivas (2 intervenciones) el 10/10/2012 21:08:18
HOLA JUNTO CON SALUDARLOS,QUISIERA SABER SI PUEDEN AYUDARME CON ESTE PROBLEMA, NO SE COMO CORTAR Y CONTINUAR ABAJO CON LA LINEA DE CODIGO, ME GENERA UN ERROR, ESTA ES MI LINEA DE CODIGO
CONSULTA = "INSERT INTO ALUMNOS (RUT_A,NOMBRES_A,APELLIDO_P_A,APELLIDO_M_A,CURSO,F_NACIMIENTO,TELEFONO_A,CELULAR_A" _
"DIRECCION_A,NUM_A,POBLACION_A,COMUNA_A,PROGRAMA,MAIL,VIVE_CON,CONDICION_ALLEGADO,BECA,SEXO,RELIGION,PROCEDENCIA,RUT" _
"NOMBRES,APELLIDO_P,APELLIDO_M,TELEFONO,CELULAR,DIRECCION,NUM,POBLACION,COMUNA,RUT_,NOMBRES_,APELLIDO_P_,APELLIDO_M_,F_NAC" _
"PARENTESCO_,DIRECCION_,TELEFONO_,NOMBRES_PADRE,APELLIDOS_PADRE,ESCOLARIDAD_PADRE,NOMBRES_MADRE,APELLIDOS_MADRE," & _
"ESCOLARIDAD_MADRE,NOMBRE_ABUELO_P,APELLIDOS_ABUELO_P,NOMBRE_ABUELA_P,APELLIDOS_ABUELA_P,NOMBRE_ABUELO_M,APELLIDOS_ABUELO_M" _
"NOMBRE_ABUELA_MATERNO" _
"APELLIDOS_ABUELA_M)VALUES ('" & TXTRUT_A & "','" & TXTNOMBRES_A & "','" & TXTAPELLIDO_P_A & "','" & TXTAPELLIDO_M_A & "','" & Combo2 & "','" & TXTFNACIMIENTO & "','" & TXTTEL & "','" & TXTCEL & "','" & TXTDIR & "','" & TXTNUM_A & "','" & TXTPOB_A & "','" & TXTCOM_A & "','" & Combo3 & "','" & Text20 & "',,'" & Combo4 & "','" & Combo5 & "','" & Text21 & "','" & Combo1 & "','" & Combo6 & "','" & Text30 & "','" & TXTRUT & "','" & TXTNOMBRES & "','" & TXTAPELLIDO_P & "','" & TXTAPELLIDO_M & "','" & TXTTELEFONO & "','" & TXTCELULAR & "','" & TXTDIRECCION & "','" & TXTNUM & "','" & TXTPOB & "','" & TXTCOM & "','" & Text23 & "','" & Text24 & "','" & Text25 & "','" & Text26 & "','" & Text27 & "','" & Text28 & "','" & Text29 & "','" & Text31 & "','" & Text32 & "','" & Text33 & "','" & Text34 & "',,'" & Text35 & "','" & Text36 & "','" & Text37 & "','" & Text41 & "','" & Text40 & "','" & Text39 & "','" & Text38 & "','" & Text45 & "','" & Text44 & "','" & Text43 & "','" & Text42 & "')"
RECSET_INSERT.Open CONSULTA, CONEXION, adOpenDynamic
A = MsgBox("DATOS INGRESADO CORRECTAMENTE AL SISTEMA")
CONSULTA = "INSERT INTO ALUMNOS (RUT_A,NOMBRES_A,APELLIDO_P_A,APELLIDO_M_A,CURSO,F_NACIMIENTO,TELEFONO_A,CELULAR_A" _
"DIRECCION_A,NUM_A,POBLACION_A,COMUNA_A,PROGRAMA,MAIL,VIVE_CON,CONDICION_ALLEGADO,BECA,SEXO,RELIGION,PROCEDENCIA,RUT" _
"NOMBRES,APELLIDO_P,APELLIDO_M,TELEFONO,CELULAR,DIRECCION,NUM,POBLACION,COMUNA,RUT_,NOMBRES_,APELLIDO_P_,APELLIDO_M_,F_NAC" _
"PARENTESCO_,DIRECCION_,TELEFONO_,NOMBRES_PADRE,APELLIDOS_PADRE,ESCOLARIDAD_PADRE,NOMBRES_MADRE,APELLIDOS_MADRE," & _
"ESCOLARIDAD_MADRE,NOMBRE_ABUELO_P,APELLIDOS_ABUELO_P,NOMBRE_ABUELA_P,APELLIDOS_ABUELA_P,NOMBRE_ABUELO_M,APELLIDOS_ABUELO_M" _
"NOMBRE_ABUELA_MATERNO" _
"APELLIDOS_ABUELA_M)VALUES ('" & TXTRUT_A & "','" & TXTNOMBRES_A & "','" & TXTAPELLIDO_P_A & "','" & TXTAPELLIDO_M_A & "','" & Combo2 & "','" & TXTFNACIMIENTO & "','" & TXTTEL & "','" & TXTCEL & "','" & TXTDIR & "','" & TXTNUM_A & "','" & TXTPOB_A & "','" & TXTCOM_A & "','" & Combo3 & "','" & Text20 & "',,'" & Combo4 & "','" & Combo5 & "','" & Text21 & "','" & Combo1 & "','" & Combo6 & "','" & Text30 & "','" & TXTRUT & "','" & TXTNOMBRES & "','" & TXTAPELLIDO_P & "','" & TXTAPELLIDO_M & "','" & TXTTELEFONO & "','" & TXTCELULAR & "','" & TXTDIRECCION & "','" & TXTNUM & "','" & TXTPOB & "','" & TXTCOM & "','" & Text23 & "','" & Text24 & "','" & Text25 & "','" & Text26 & "','" & Text27 & "','" & Text28 & "','" & Text29 & "','" & Text31 & "','" & Text32 & "','" & Text33 & "','" & Text34 & "',,'" & Text35 & "','" & Text36 & "','" & Text37 & "','" & Text41 & "','" & Text40 & "','" & Text39 & "','" & Text38 & "','" & Text45 & "','" & Text44 & "','" & Text43 & "','" & Text42 & "')"
RECSET_INSERT.Open CONSULTA, CONEXION, adOpenDynamic
A = MsgBox("DATOS INGRESADO CORRECTAMENTE AL SISTEMA")
Valora esta pregunta
0