| Ayuda con insert
Saludos que tal bueno tengo un problema que puede ser hasta bobo pero bueno ahy va, tengo una aplicacion en vb6, con base de datos sql server 200, mi coneccion es ADO, antes no me habia pasado pero ahorita al meter en un boton un insert registro tengo bastantes registros y lo que introdusco en el boton es el siguiente codigo:
Set rs = New ADODB.Recordset
rs.Open "insert into remesa (tipo_credito,u_pago,descrip_ugestion,u_gestion,ex pediente,gestor,status,fecha_promesa,monto_promesa ,asignacion,fecha_dev,fecha_actualiazion,saldo_act ualizado,inf_adicional1,inf_adicional2,nue_pag_vdo s,contrato,nombre,rfc,calle,colonia,ciudad,poblaci on,cp,tel_casa,tel_empleo,otro_tel,fecha_corte,fec ha_contratacion,importe_credito,plazo_contratado,i mporte_mensualidad,tipo_credito_contratado,importe _pagos,mes_pago_especial,pagos_vdos,saldo_vencido, saldo_insoluto,saldo_total,marca_vehiculo,tipo_veh iculo,modelo_vehiculo,serie_vehiculo,motivo_rechaz o,nombre_aval,tel1_aval,tel2_Aval,nom_ref1,tipo_re f1,tel_ref1,nomb_ref2,tipo_ref2,tel_ref2,nom_ref3, tipo_ref3,tel_ref3,estado,empresa,dom_empresa,tele fonos,cargo_titular,jefe_inmediato,usuario,fecha_r emesa)" & _
" values ( '" & txttipoc.Text & " ','" & txtup.Text & "','" & txtdug.Text & "','" & dtpug.Value & "'," & txtexpediente.Text & ",'" & txtgestor.Text & "',' " & cbostatus.Text & " ','" & dtpfp.Value & " '," & txtmonto.Text & ",' " & dtpa.Value & " ','" & dtpfd.Value & "','" & dptactualiacion.Value & "'," & txtsa.Text & ",'" & txtif.Text & " ',' " & txtsia.Text & "'," & txtnpv.Text & "," & txtcontrato.Text & ",'" & txtnombre.Text & " ','" & txtrfc.Text & "',' " & txtcalle.Text & "','" & txtcolonia.Text & "','" & txtciudad.Text & "','" & txtpoblacion.Text & "'," & txtcp.Text & "," & txttc.Text & "," & txttelempleo.Text & "," & txtot.Text & "," & txtfc.Text & "," & dtpfcon.Value & "," & txtimc.Text & "," & txtpl.Text & "," & txtim.Text & ",'" & txttcc.Text & "'," & txtimp.Text & "," & txtmpe.Text & "," & txtpv.Text & "," & txtsv.Text & "," & txtsi.Text & "," & txtst.Text & ",'" & txtmv.Text & "','" & txttve.Text & "','" & txtmve.Text & "','" & txtsve.Text & "','" & txtmre.Text & "','" & txtna.Text & "'," & _
" " & txtpta.Text & "," & txtsta.Text & ",'" & txtnomref1.Text & "','" & txtref1.Text & "'," & txttf1.Text & ",'" & txtnf2.Text & "','" & txttr2.Text & "'," & txtref2.Text & ",'" & txtnr3.Text & "','" & txtti3.Text & "'," & txtref3.Text & ",'" & txtestado.Text & " ','" & txtempresa.Text & "','" & txtdom.Text & "'," & txttelefonos.Text & ",'" & txtcti.Text & "','" & txtjin.Text & "','" & lblusuario.Caption & "','" & lblfecha.Caption & "')", conn, adOpenDynamic, adLockOptimistic
MsgBox "Registro Insertado", vbInformation
pero me envia un error de "," y ya revise la sintaxis y esta bien lo unicoq ue se me ocurre es que sea cunado doy el salto de linea |