05/08/2009, 01:30
|
| | | Fecha de Ingreso: febrero-2009
Mensajes: 28
Antigüedad: 16 años, 3 meses Puntos: 0 | |
| Respuesta: Realizar una consulta con visual
Nada solucionado, con otro simple while solucionado, me recorro una tabla dentro de otra y con un simple contador me vale.
Muchas gracias de todos modos. Os dejo el codigo por si a alguien le sirve en algun momento.
Adodc5.Recordset.MoveFirst
While Not Adodc5.Recordset.EOF
Adodc4.Recordset.MoveFirst
cont = 0
While Not Adodc4.Recordset.EOF
If Adodc4.Recordset.Fields("IdCliente") = Adodc5.Recordset.Fields("IdCliente") Then
cont = cont + 1
End If
Adodc4.Recordset.MoveNext
Wend
If cont > 0 Then
.....
End If
Adodc5.Recordset.MoveNext
Wend |