Tema: Ayuda: Consulta de Actualizacion de Datos....
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 26/10/2008, 03:00
Avellaneda
Colaborador
  
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 3 meses
Puntos: 37
Respuesta: Ayuda: Consulta de Actualizacion de Datos....
Cita:
Iniciado por EmiO Ver Mensaje
Esto no es mas que una consulta que deberia tomar los datos de un FRM y actualizarlos en la Tabla DATOS, pasa bien pero no tira errores ni tampoco actuliza en la tabla..... bueno muchas gracias..

If GestionEmpresa.opcionGestionEmpresa = "M" Then
Sql = "update Datos set nombre= ' " & Text2.Text & " ',calle= ' " & Text3.Text & " ',numero= ' " & Text4.Text & " ',codpostal= ' " & Text5.Text & " ',cuit= ' " & Text7.Text & " ',iva= ' " & Text8.Text & " ',ingbrutos= ' " & Text9.Text & " ',apertura= ' " & Text10.Text & " ',cierre= ' " & Text11.Text & " ',actividad= ' " & Text6.Text & " ' where Codigo= ' " & Text1.Text & " '"
Operacional.Modificar
End If
A los campos numéricos quítale las comillas. P.e. supongamos que los campos codpostal, iva e ingbrutos son numéricos además del campo Codigo. La consulta debería ser así:

Sql = "update Datos set nombre= '" & Text2.Text & "' ,calle= '" & Text3.Text & "', numero= '" & Text4.Text & "', codpostal= " & Text5.Text & ", cuit= '" & Text7.Text & "', iva= " & Text8.Text & ", ingbrutos= " & Text9.Text & ", apertura= '" & Text10.Text & "', cierre= '" & Text11.Text & "', actividad= '" & Text6.Text & "' where Codigo= " & Text1.Text