Comparar 2 tablas y sacar los mayores registros

[jafl318]

Hola a todos

Necesito ayuda en lo siguiente:

Tengo dos tablas, cada una con un campo de cantidad
Necesito que me recorra cada uno de los registros de los campos y me muestre los mayores entre los dos campos y los que sean iguales que los deje asi. ej.

tbl1 tb2 resul
5 2 5
1 2 2
8 8 8
7 3 7
1 15 15
3 3 3

[Avellaneda]

Iniciado por jafl318

Hola a todos

Necesito ayuda en lo siguiente:

Tengo dos tablas, cada una con un campo de cantidad
Necesito que me recorra cada uno de los registros de los campos y me muestre los mayores entre los dos campos y los que sean iguales que los deje asi. ej.

tbl1 tb2 resul
5 2 5
1 2 2
8 8 8
7 3 7
1 15 15
3 3 3

Hola, se me ocurre que podrías abrir dos recordsets (uno a cada tabla) y en un bucle comparar cual de los campos es el mayor.

Pero para que funcione, las dos tablas deben tener exactamente el mismo número de registros.

[jafl318]

eres tan amable y me das un ejemplo?

[Avellaneda]

Iniciado por jafl318

eres tan amable y me das un ejemplo?

Bueno, a ver si te vale esto:

Al campo de las dos tablas le hemos puesto el mismo nombre (Campo1) pero pueden tener nombres diferentes. Comparamos el valor de cada campo y listamos el mayor en un control ListBox:

Código:

Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs1.Open "SELECT Campo1 FROM Tabla1", cn, adOpenDynamic, adLockOptimistic
rs2.Open "SELECT Campo1 FROM Tabla2", cn, adOpenDynamic, adLockOptimistic
Do Until rs1.EOF
    List1.AddItem IIf(rs1(0) > rs2(0), rs1(0), rs2(0))
    rs1.MoveNext
    rs2.MoveNext
Loop