Ayuda con una Consulta de Actualizacion

EmiO · #1 (**permalink**) 17/05/2010, 15:17

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 · #2 (**permalink**) 19/05/2010, 11:04

Hola!!
Puedes usarlo asi:

Código vb:

Ver originalDim 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 · #3 (**permalink**) 19/05/2010, 11:04

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)