Update de dos tablas

[pepelucho]

Hola, quisiera hacer un update de la siguiente forma:

Tengo dos tablas,Provincia y DATA
Provincia esta con la sgte estructura:
Departamento 01
codigo_prov 01
provincia Lima
-------------
Departamento02
codigo_prov 01
provincia Callao
--------------
Y la tabla DATA que quiero actualizar, tiene en un campo solo la provincia(Lima, callao, etc), como puedo hacer esto, validando por departamento y el codigo de provincia, tengo q ponerlo en un Do while para que lea las dos tablas? Porfa espero me puedan ayudar

Ademas si se puede hacer q se muestre aparte los registros que no se han podido modificar por algun error (Ejm. no existe el departamento o codigo etc)

Gracias de antemano

[El_Metallick]

para manejar dos tabalas simultanemaente es necesario establecer dos RecordSet, si quieres actualizar 2 tablas seria algo asi

Código:

sql1 = "Update Provincia set departamento = 01, codigo_prov = 01 where id = " & id & "
Set rs = Conn.Execute(sql1)

...

sql2 = "Update Data set provincia = 'Lima' where id = " & id & "
Set rs = Conn.Execute(sql2)

no se si es eso lo que buscas... si no es asi no entendi loq ue quieres hacer... saludos

[pepelucho]

Hola Metallick, lo que quiero hacer es: quiero actualizar en la tabla DATA el campo provincia, que en vez que salga el nombre(Lima o callao) quiero q se cambie por el codigo de la tabla provincia(01 o 02)

[El_Metallick]

aaa ok... entonces quedaria algo asi:

Código:

sql1 = "Select * From  Provincia where id = " & id & ""
Set rs = Conn.Execute(sql1)

codigo_prov = " & rs("codigo_prov") & "

select case codigo_prov
   case 01
      sql2 = "Update Data set provincia = '01' where provincia = 'Lima'"
   case 02
      sql2 = "Update Data set provincia = '02' where provincia = 'Callao'"
   ...
end select

Set rs = Conn.Execute(sql2)

saludos

[pepelucho]

Creo q no me di a entender, lo q pasa es q quiero q ese cambio sea automatico para toda la base de datos porq tengo como 1000 provincias en mi bd y la idea es no meter uno por uno ... como podria hacerlo?