Ayuda: Consulta de Actualizacion de Datos....

[EmiO]

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

[Avellaneda]

Iniciado por EmiO

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