Ayuda con una Consulta de Actualizacion

[EmiO]

Hola a todos estoy con una actualizacion pero no me funciona la consulta que hago, corre sin errores pero no actualiza.

paso el codigo
rst_Ado.Open "SELECT TProveedor............));"
If rst_Ado.RecordCount <> 0 Then
rst_Ado.Update "UPDATE TProveedor INNER JOIN TDescuento ON TProveedor.TPCodigo = TDescuento.TPCodigo SET " & _
"TProveedor.TPNombre = ' & Text2.Text & ', TProveedor.TPCUIT = ' & Text3.Text & ', TProveedor.TPDireccion = ' & Text4.Text & ', TProveedor.TPProvincia = ' & Text5.Text & ', TProveedor.TPCodPostal = ' & Text6.Text & ', TProveedor.TPLocalidad = ' & Text7.Text & ', WHERE (((TProveedor.TPCodigo) Like ' & Text1.Text & '));"
End If
rst_Ado.Close

Trabajo con una conexion a base de Datos de Acces con ADO

[lokoman]

Hola!!
Puedes usarlo asi:

Código vb:

Dim Up as integer
 
strUpdate="UPDATE [TABLA] SET [CAMPO1]=" & CAMPO1 & " , [CAMPO2]=" & CAMPO2 & " WHERE  CODIGO=" & CODIGO
 
Conexion.execute strUpdate, Up
 
if Up=1 then msgbox "Registro actualizado!!", vbinformation
 

[yera2002]

Hola Emio:

No sera que estas ejecutando mal la sentencia de actualizacion, no recuerdo en access si te permite utilizar JOIN dentro de la sentencia de actualizacion pero creo que podrias pobrar con algo asi

UPDATE TProveedor SET " & _
"TProveedor.TPNombre = ' & Text2.Text & ', TProveedor.TPCUIT = ' & Text3.Text & ', TProveedor.TPDireccion = ' & Text4.Text & ', TProveedor.TPProvincia = ' & Text5.Text & ', TProveedor.TPCodPostal = ' & Text6.Text & ', TProveedor.TPLocalidad = ' & Text7.Text & ', WHERE (((TProveedor.TPCodigo) Like ' & Text1.Text & ')) AND TPCodigo = (SELECT TPCodigo FROM TProveedor INNER JOIN TDescuento ON TProveedor.TPCodigo = TDescuento.TPCodigo)