 Reto a Concatenar
Amigos:
estoy tratando de concatenar las siguientes lineas:
cn.Execute "insert into preventivo set tienda='" & Text1 & "', direccion='" & Text2 & "', telefono= '" & Text3 & "', nom_enca='" & Text4 & "', e_marca='" & Text5 & "', no_eco='" & Text6 & "', fec_ser= '" & Format(DTPicker1, "YYYY-MM-DD") & "', modelo='" & Text10 & "', serie='" & Text11 & "', cliente='" & Text12 & "', rumbo='" & Text13 & "', zona= '" & Text14 & "', tecs='" & Text8 & " '," & _
"' ,dicom='" & Combo1 & "', calca='" & Combo2 & "', ventila='" & Combo3 & "', pintex='" & Combo4 & "', pintin='" & Combo5 & "', basgab='" & Combo6 & "', parrilla='" & Combo7 & "', inter='" & Combo8 & "', lampara='" & Combo9 & "', balastra='" & Combo10 & "', micromo='" & Combo11 & "', compresor='" & Combo12 & "', motopro='" & Combo13 & "', puert='" & Combo14 & "', jal='" & Combo15 & "', marco='" & Combo16 & "', sello='" & Combo17 & "', cri='" & Combo18 & "', eva='" & Combo19 & "', micro='" & Combo20 & "', ins='" & Combo21 & " '," & _
"' ,c_dicom='" & Text18 & "', c_calca='" & Text19 & "', c_ventila='" & Text20 & "', c_pintex='" & Text21 & "', c_pintin='" & Text22 & "', c_basgab='" & Text23 & "', c_parrilla='" & Text24 & "', c_inter='" & Text25 & "', c_lampara='" & Text26 & "', c_balastra='" & Text27 & "', c_micromo='" & Text28 & "', c_compresor='" & Text29 & "', c_motopro='" & Text30 & "', c_puert='" & Text31 & "', c_jal='" & Text32 & "', c_sello='" & Text34 & "', c_cri='" & Text35 & "', c_eva='" & Text36 & "', c_micro='" & Text37 & "', c_ins='" & Text38 & "'"
al momento de mandarla al sql me manda un error que aun no he descubrido,
para determinar si alguna linea estaba mal expresada guarde linea por linea sin concatenar y todas se almacenan en mi BD creo que el problema esta en la concatenacion, supuestamente ya hice todo lo que me han dicho pero aun sigue el erro al momento de guardar los campos.. espero puedan encontrar el error porque yo ya tengo mas de 4 semanas y aun no doy con el.
Gracias 360. |