Error en Insert To y Update
Que tal mira tengo este código
Private Sub AgregarAgenda1()
Dim s As Integer
Call VisualizarAgenda
If Text0(0).Text = "" Then
Set RecSQL = New ADODB.Recordset
RecSQL. Open "INSERT INTO agenda (fechaa, fecha, fecha0, hora0, horallegada0, idpaciente0, paciente0, s0, p0, a0, pago0, fecha1, hora1, horallegada1, idpaciente1, paciente1, s1, p1, a1, pago1, fecha2, hora2, horallegada2, idpaciente2, paciente2, s2, p2, a2, pago2, fecha3, hora3, horallegada3, idpaciente3, paciente3, s3, p3, a3, pago3, fecha4, hora4, horallegada4, idpaciente4, paciente4, s4, p4, a4, pago4, fecha5, hora5, horallegada5, idpaciente5, paciente5, s5, p5, a5, pago5, fecha6, hora6, horallegada6, idpaciente6, paciente6, s6, p6, a6, pago6, fecha7, hora7, horallegada7, idpaciente7, paciente5, s7, p7, a7, pago7, fecha8, hora8, horallegada8, idpaciente8, paciente8, s8, p8, a8, pago8," & _
"fecha9, hora9, horallegada9, idpaciente9, paciente9, s9, p9, a9, pago9, fecha10, hora10, horallegada10, idpaciente10, paciente10, s10, p10, a10, pago10, fecha11, hora11, horallegada11, idpaciente11, paciente11, s11, p11, a11, pago11, fecha12, hora12, horallegada12, idpaciente12, paciente12, s12, p12, a12, pago12, fecha13, hora13, horallegada13, idpaciente13, paciente13, s13, p13, a13, pago13, fecha14, hora14, horallegada14, idpaciente14, paciente14, s14, p14, a14, pago14, fecha15, hora15, horallegada15, idpaciente15, paciente15, s15, p15, a15, pago15, fecha16, hora16, horallegada16, idpaciente16, paciente16, s16, p16, a16, pago16, fecha17, hora17, horallegada17, idpaciente17, paciente17, s17, p17, a17, pago17," & _
"fecha18, hora18, horallegada18, idpaciente18, paciente18, s18, p18, a18, pago18, fecha19, hora19, horallegada19, idpaciente19, paciente19, s19, p19, a19, pago19, fecha20, hora20, horallegada20, idpaciente20, paciente20, s20, p20, a20, pago20, fecha21, hora21, horallegada21, idpaciente21, paciente21, s21, p21, a21, pago21, fecha22, hora22, horallegada22, idpaciente22, paciente22, s22, p22, a22, pago22, fecha23, hora23, horallegada23, idpaciente23, paciente23, s23, p23, a23, pago23, fecha24, hora24, horallegada24, idpaciente24, paciente24, s24, p24, a24, pago24, fecha25, hora25, horallegada25, idpaciente25, paciente25, s25, p25, a25, pago25, fecha26, hora26, horallegada26, idpaciente26, paciente26, s26, p26, a26, pago26," & _
"fecha27, hora27, horallegada27, idpaciente27, paciente27, s27, p27, a27, pago27, fecha28, hora28, horallegada28, idpaciente28, paciente28, s28, p28, a28, pago28, fecha29, hora29, horallegada29, idpaciente29, paciente29, s29, p29, a29, pago29, fecha30, hora30, horallegada30, idpaciente30, paciente30, s30, p30, a30, pago30, fecha31, hora31, horallegada31, idpaciente31, paciente31, s31, p31, a31, pago31, fecha32, hora32, horallegada32, idpaciente32, paciente32, s32, p32, a32, pago32, fecha33, hora33, horallegada33, idpaciente33, paciente33, s33, p33, a33, pago33, fecha34, hora34, horallegada34, idpaciente34, paciente34, s34, p34, a34, pago34, fecha35, hora35, horallegada35, idpaciente35, paciente35, s35, p35, a35, pago35," & _
"fecha36, hora36, horallegada36, idpaciente36, paciente36, s36, p36, a36, pago36, fecha37, hora37, horallegada37, idpaciente37, paciente37, s37, p37, a37, pago37, fecha38, hora38, horallegada38, idpaciente38, paciente38, s38, p38, a38, pago38, fecha39, hora39, horallegada39, idpaciente39, paciente39, s39, p39, a39, pago39, fecha40, hora40, horallegada24, idpaciente40, paciente40, s40, p40, a40, pago40, fecha41, hora41, horallegada41, idpaciente41, paciente41, s41, p41, a41, pago41, fecha42, hora42, horallegada42, idpaciente42, paciente42, s42, p42, a42, pago42, fecha43, hora43, horallegada43, idpaciente43, paciente43, s43, p43, a43, pago43, fecha44, hora44, horallegada44, idpaciente44, paciente44, s44, p44, a44, pago44," & _
"fecha45, hora45, horallegada45, idpaciente45, paciente45, s45, p45, a45, pago45, fecha46, hora46, horallegada46, idpaciente46, paciente46, s46, p46, a46, pago46, fecha47, hora47, horallegada47, idpaciente47, paciente47, s47, p47, a47, pago47, total) " & _
"VALUES (" & Text0(1) & ",'" & Text1(0) & "','" & Text2(200) & "','" & Text3(0) & "','" & MaskEdBox1(0) & "','" & Text2(400) & "','" & Combo3 & "','" & Text5(0) & "','" & Check2(200) & "','" & Text6(0) & "','" & Text2(500) & "','" & Text2(201) & "','" & Text3(1) & "','" & MaskEdBox1(1) & "','" & Text2(401) & "','" & Combo4 & "','" & Text5(1) & "','" & Check2(201) & "','" & Text6(1) & "','" & Text2(501) & "','" & Text2(202) & "','" & Text3(2) & "','" & MaskEdBox1(2) & "','" & Text2(402) & "','" & Combo5 & "','" & Text5(2) & "','" & Check2(202) & "','" & Text6(2) & "','" & Text2(502) & "', '" & Text2(203) & "','" & Text3(3) & "','" & MaskEdBox1(3) & "','" & Text2(403) & "','" & Combo6 & "','" & Text5(3) & "','" & Check2(203) & "','" & Text6(3) & "','" & Text2(503) & "','" & Text2(204) & "','" & Text3(4) & "','" & MaskEdBox1(4) & "','" & Text2(404) & "','" & Combo7 & "','" & Text5(4) & "','" & Check2(204) & "','" & Text6(4) & "','" & Text2(504) & "', " & _
" '" & Text2(205) & "','" & Text3(5) & "','" & MaskEdBox1(5) & "','" & Text2(405) & "','" & Combo8 & "','" & Text5(5) & "','" & Check2(205) & "','" & Text6(5) & "','" & Text2(505) & "','" & Text2(206) & "','" & Text3(6) & "','" & MaskEdBox1(6) & "','" & Text2(406) & "','" & Combo9 & "','" & Text5(6) & "','" & Check2(206) & "','" & Text6(6) & "','" & Text2(506) & "','" & Text2(207) & "','" & Text3(7) & "','" & MaskEdBox1(7) & "','" & Text2(407) & "','" & Combo10 & "','" & Text5(7) & "','" & Check2(207) & "','" & Text6(7) & "','" & Text2(507) & "','" & Text2(208) & "','" & Text3(8) & "','" & MaskEdBox1(8) & "','" & Text2(408) & "','" & Combo11 & "','" & Text5(8) & "','" & Check2(208) & "','" & Text6(8) & "','" & Text2(508) & "','" & Text2(209) & "','" & Text3(9) & "','" & MaskEdBox1(9) & "','" & Text2(409) & "','" & Combo12 & "','" & Text5(9) & "','" & Check2(209) & "','" & Text6(9) & "','" & Text2(509) & "', " & _
" '" & Text2(210) & "','" & Text3(10) & "','" & MaskEdBox1(10) & "','" & Text2(410) & "','" & Combo13 & "','" & Text5(10) & "','" & Check2(210) & "','" & Text6(10) & "','" &...
Private Sub AgregarAgenda1()
Dim s As Integer
Call VisualizarAgenda
If Text0(0).Text = "" Then
Set RecSQL = New ADODB.Recordset
RecSQL. Open "INSERT INTO agenda (fechaa, fecha, fecha0, hora0, horallegada0, idpaciente0, paciente0, s0, p0, a0, pago0, fecha1, hora1, horallegada1, idpaciente1, paciente1, s1, p1, a1, pago1, fecha2, hora2, horallegada2, idpaciente2, paciente2, s2, p2, a2, pago2, fecha3, hora3, horallegada3, idpaciente3, paciente3, s3, p3, a3, pago3, fecha4, hora4, horallegada4, idpaciente4, paciente4, s4, p4, a4, pago4, fecha5, hora5, horallegada5, idpaciente5, paciente5, s5, p5, a5, pago5, fecha6, hora6, horallegada6, idpaciente6, paciente6, s6, p6, a6, pago6, fecha7, hora7, horallegada7, idpaciente7, paciente5, s7, p7, a7, pago7, fecha8, hora8, horallegada8, idpaciente8, paciente8, s8, p8, a8, pago8," & _
"fecha9, hora9, horallegada9, idpaciente9, paciente9, s9, p9, a9, pago9, fecha10, hora10, horallegada10, idpaciente10, paciente10, s10, p10, a10, pago10, fecha11, hora11, horallegada11, idpaciente11, paciente11, s11, p11, a11, pago11, fecha12, hora12, horallegada12, idpaciente12, paciente12, s12, p12, a12, pago12, fecha13, hora13, horallegada13, idpaciente13, paciente13, s13, p13, a13, pago13, fecha14, hora14, horallegada14, idpaciente14, paciente14, s14, p14, a14, pago14, fecha15, hora15, horallegada15, idpaciente15, paciente15, s15, p15, a15, pago15, fecha16, hora16, horallegada16, idpaciente16, paciente16, s16, p16, a16, pago16, fecha17, hora17, horallegada17, idpaciente17, paciente17, s17, p17, a17, pago17," & _
"fecha18, hora18, horallegada18, idpaciente18, paciente18, s18, p18, a18, pago18, fecha19, hora19, horallegada19, idpaciente19, paciente19, s19, p19, a19, pago19, fecha20, hora20, horallegada20, idpaciente20, paciente20, s20, p20, a20, pago20, fecha21, hora21, horallegada21, idpaciente21, paciente21, s21, p21, a21, pago21, fecha22, hora22, horallegada22, idpaciente22, paciente22, s22, p22, a22, pago22, fecha23, hora23, horallegada23, idpaciente23, paciente23, s23, p23, a23, pago23, fecha24, hora24, horallegada24, idpaciente24, paciente24, s24, p24, a24, pago24, fecha25, hora25, horallegada25, idpaciente25, paciente25, s25, p25, a25, pago25, fecha26, hora26, horallegada26, idpaciente26, paciente26, s26, p26, a26, pago26," & _
"fecha27, hora27, horallegada27, idpaciente27, paciente27, s27, p27, a27, pago27, fecha28, hora28, horallegada28, idpaciente28, paciente28, s28, p28, a28, pago28, fecha29, hora29, horallegada29, idpaciente29, paciente29, s29, p29, a29, pago29, fecha30, hora30, horallegada30, idpaciente30, paciente30, s30, p30, a30, pago30, fecha31, hora31, horallegada31, idpaciente31, paciente31, s31, p31, a31, pago31, fecha32, hora32, horallegada32, idpaciente32, paciente32, s32, p32, a32, pago32, fecha33, hora33, horallegada33, idpaciente33, paciente33, s33, p33, a33, pago33, fecha34, hora34, horallegada34, idpaciente34, paciente34, s34, p34, a34, pago34, fecha35, hora35, horallegada35, idpaciente35, paciente35, s35, p35, a35, pago35," & _
"fecha36, hora36, horallegada36, idpaciente36, paciente36, s36, p36, a36, pago36, fecha37, hora37, horallegada37, idpaciente37, paciente37, s37, p37, a37, pago37, fecha38, hora38, horallegada38, idpaciente38, paciente38, s38, p38, a38, pago38, fecha39, hora39, horallegada39, idpaciente39, paciente39, s39, p39, a39, pago39, fecha40, hora40, horallegada24, idpaciente40, paciente40, s40, p40, a40, pago40, fecha41, hora41, horallegada41, idpaciente41, paciente41, s41, p41, a41, pago41, fecha42, hora42, horallegada42, idpaciente42, paciente42, s42, p42, a42, pago42, fecha43, hora43, horallegada43, idpaciente43, paciente43, s43, p43, a43, pago43, fecha44, hora44, horallegada44, idpaciente44, paciente44, s44, p44, a44, pago44," & _
"fecha45, hora45, horallegada45, idpaciente45, paciente45, s45, p45, a45, pago45, fecha46, hora46, horallegada46, idpaciente46, paciente46, s46, p46, a46, pago46, fecha47, hora47, horallegada47, idpaciente47, paciente47, s47, p47, a47, pago47, total) " & _
"VALUES (" & Text0(1) & ",'" & Text1(0) & "','" & Text2(200) & "','" & Text3(0) & "','" & MaskEdBox1(0) & "','" & Text2(400) & "','" & Combo3 & "','" & Text5(0) & "','" & Check2(200) & "','" & Text6(0) & "','" & Text2(500) & "','" & Text2(201) & "','" & Text3(1) & "','" & MaskEdBox1(1) & "','" & Text2(401) & "','" & Combo4 & "','" & Text5(1) & "','" & Check2(201) & "','" & Text6(1) & "','" & Text2(501) & "','" & Text2(202) & "','" & Text3(2) & "','" & MaskEdBox1(2) & "','" & Text2(402) & "','" & Combo5 & "','" & Text5(2) & "','" & Check2(202) & "','" & Text6(2) & "','" & Text2(502) & "', '" & Text2(203) & "','" & Text3(3) & "','" & MaskEdBox1(3) & "','" & Text2(403) & "','" & Combo6 & "','" & Text5(3) & "','" & Check2(203) & "','" & Text6(3) & "','" & Text2(503) & "','" & Text2(204) & "','" & Text3(4) & "','" & MaskEdBox1(4) & "','" & Text2(404) & "','" & Combo7 & "','" & Text5(4) & "','" & Check2(204) & "','" & Text6(4) & "','" & Text2(504) & "', " & _
" '" & Text2(205) & "','" & Text3(5) & "','" & MaskEdBox1(5) & "','" & Text2(405) & "','" & Combo8 & "','" & Text5(5) & "','" & Check2(205) & "','" & Text6(5) & "','" & Text2(505) & "','" & Text2(206) & "','" & Text3(6) & "','" & MaskEdBox1(6) & "','" & Text2(406) & "','" & Combo9 & "','" & Text5(6) & "','" & Check2(206) & "','" & Text6(6) & "','" & Text2(506) & "','" & Text2(207) & "','" & Text3(7) & "','" & MaskEdBox1(7) & "','" & Text2(407) & "','" & Combo10 & "','" & Text5(7) & "','" & Check2(207) & "','" & Text6(7) & "','" & Text2(507) & "','" & Text2(208) & "','" & Text3(8) & "','" & MaskEdBox1(8) & "','" & Text2(408) & "','" & Combo11 & "','" & Text5(8) & "','" & Check2(208) & "','" & Text6(8) & "','" & Text2(508) & "','" & Text2(209) & "','" & Text3(9) & "','" & MaskEdBox1(9) & "','" & Text2(409) & "','" & Combo12 & "','" & Text5(9) & "','" & Check2(209) & "','" & Text6(9) & "','" & Text2(509) & "', " & _
" '" & Text2(210) & "','" & Text3(10) & "','" & MaskEdBox1(10) & "','" & Text2(410) & "','" & Combo13 & "','" & Text5(10) & "','" & Check2(210) & "','" & Text6(10) & "','" &...
1 respuesta
Respuesta de Roberto Alvarado
1
Creo que tienes un mal diseño de la tabla, y ademas es difícil decirte que hacer con tan poca información del mensaje de eerror y sin saber si es en el INSERT o en el UPDATE.
Te aconsejo que pongas un breakpoint en la sentencia y verifiques que esa sentencia si la ejecutas en la herrameinta de SQL para querys te funcione. Empieza por allí.
La otra opción seria que la cadena es muy larga y no la puede ejecutar.
Te aconsejo que pongas un breakpoint en la sentencia y verifiques que esa sentencia si la ejecutas en la herrameinta de SQL para querys te funcione. Empieza por allí.
La otra opción seria que la cadena es muy larga y no la puede ejecutar.
Que tal mira el error lo marca en el INSERT y sobre lo de breakpoint en la sentencia para verificarla no se como podría realizarlo.
Saludos y Gracias por la ayuda
Saludos y Gracias por la ayuda
Crea una variable de tipo string, y en esa variable armas todo el String del Insert, luego ese string lo muestras en un MessageBox, le haces copy al messagebox, te vas a la herramienta de Querys de la base de datos y la copias, o sea le das Paste, y ejecutas esa sentencia a ver si el error es de la sentencia.
