No pd actualizar la consulta
Publicado por Estibalitz (28 intervenciones) el 17/06/2002 17:49:48
Hola, yo tng el siguiente código
Private Sub actualizar()
Dim strSQLS As String
If De2.rsCmdNuevo.State = adStateOpen Then De2.rsCmdNuevo.Close
strSQLS = "UPDATE PRINCIPAL set cliente = '" & TXTCLTS.Text & "', TipoConec = '" & TXTTIPOCONEC.Text & "', Email = '" & TXTEMAIL.Text & "', IPS= '" & IPS.Text & "', nomusu = '" & TXTNOMUSU.Text & "', contraseña = '" & TXTCONTRASEÑA.Text & "', telf= '" & TXTTEL.Text & "',dns1 = '" & TXTDNS1.Text & "', dns2='" & TXTDNS2.Text & "', nomusu1 = '" & TXTNOMUSU1.Text & "', contraseña1 = '" & TXTCONTRASEÑA1.Text & "', correosalientesmtp = '" & TXTCORREOSAL.Text & "', correoentrantesmtp = '" & TXTCORREOENT.Text & "', Email2 = '" & TXTEMAIL2.Text & "', nomusu2 = '" & TXTNOMUSU2.Text & "', contraseña2 = '" & TXTCONTRASEÑA2.Text & "', Email3= '" & TXTEMAIL3.Text & "', nomusu3 = '" & TXTNOMUSU3.Text & "', contraseña3 = '" & TXTCONTRASEÑA3.Text & "', Email4 = '" & TXTEMAIL4.Text & "', nomusu4 = '" & TXTNOMUSU4.Text & "', contraseña4 = '" & TXTCONTRASEÑA4.Text & "', Email5= '" & TXTEMAIL5.Text & "', nomusu5 = '" & TXTNOMUSU5.Text _
& "', contraseña5 = '" & TXTCONTRASEÑA5.Text & "',ipproxy ='" & TXTIPPROXY.Text & "', puertoproxy = '" & TXTPUERTOSPRO.Text & "', puertaenlaceRouter = '" & TXTPUEROU.Text & "', Notas = '" & TXTNOTAS.Text & "' where cliente = '" & TXTCLTS.Text & "';" %
Private Sub actualizar()
Dim strSQLS As String
If De2.rsCmdNuevo.State = adStateOpen Then De2.rsCmdNuevo.Close
strSQLS = "UPDATE PRINCIPAL set cliente = '" & TXTCLTS.Text & "', TipoConec = '" & TXTTIPOCONEC.Text & "', Email = '" & TXTEMAIL.Text & "', IPS= '" & IPS.Text & "', nomusu = '" & TXTNOMUSU.Text & "', contraseña = '" & TXTCONTRASEÑA.Text & "', telf= '" & TXTTEL.Text & "',dns1 = '" & TXTDNS1.Text & "', dns2='" & TXTDNS2.Text & "', nomusu1 = '" & TXTNOMUSU1.Text & "', contraseña1 = '" & TXTCONTRASEÑA1.Text & "', correosalientesmtp = '" & TXTCORREOSAL.Text & "', correoentrantesmtp = '" & TXTCORREOENT.Text & "', Email2 = '" & TXTEMAIL2.Text & "', nomusu2 = '" & TXTNOMUSU2.Text & "', contraseña2 = '" & TXTCONTRASEÑA2.Text & "', Email3= '" & TXTEMAIL3.Text & "', nomusu3 = '" & TXTNOMUSU3.Text & "', contraseña3 = '" & TXTCONTRASEÑA3.Text & "', Email4 = '" & TXTEMAIL4.Text & "', nomusu4 = '" & TXTNOMUSU4.Text & "', contraseña4 = '" & TXTCONTRASEÑA4.Text & "', Email5= '" & TXTEMAIL5.Text & "', nomusu5 = '" & TXTNOMUSU5.Text _
& "', contraseña5 = '" & TXTCONTRASEÑA5.Text & "',ipproxy ='" & TXTIPPROXY.Text & "', puertoproxy = '" & TXTPUERTOSPRO.Text & "', puertaenlaceRouter = '" & TXTPUEROU.Text & "', Notas = '" & TXTNOTAS.Text & "' where cliente = '" & TXTCLTS.Text & "';" %
Valora esta pregunta
0