Ver Mensaje Individual
  #2 (permalink)  
Antiguo 22/07/2004, 13:35
Avatar de GeoAvila
GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 6 meses
Puntos: 53
hola mira el objeto data, es mas facil de usar y el cual te permite abrir las bases de datos con extencion .DBF, por otro lado tenes que por la siguiente pregunta.

tenes que comparar si existen el mimo numero de registros.

el cual lo hacer con la siguiente instruccion..

Me.Data1.Recordset.RecordCount

bueno y comparamos el resultado de cada base de datos, vos pones la condicion si existen mas en cierta base de datos, despues de esto me imagino que la tabla principal, la que va ha ser por decir asi la muestra para comparar a la otra, guiado con el ID o bien no se que clave principal le hayas puesto, tienes que hacer una busqueda registro a registro en la base que vas a compar. esto lo podes hacer con lo siguiente..
Código:
dim i as integer
for i = 1 to Me.Data1.Recordset.RecordCount ' de uno hasta los registros de la base principal
Data2.Recordset.FindFirst "ID = " & val(Data1.Recordset!registro) ' busqueda registro por registro.
if Data1.Recordset!campo2 = Data2.Recordset!campo2 then ' esto lo haces con los campos que desses
exit sub
else
msgbox "los datos no coinciden en el Campo2 en el registro " & i
Data1.Recordset!campo2 = Data2.Recordset!campo2 ' reparamos el registro
end if
next i
bueno espero te sirva..
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila