Do While Contador <= rs.RecordCount
Contador = Contador + 1
If Contador > rs.RecordCount Then 'revisar cuando sea mayor porque lo hace de todas manera.
MsgBox "LA LISTA DE CDRS PARA CONCILIAR ESTA VACIA", vbExclamation, "LISTA VACIA"
End If
If tmp1 <> tmpA Then ' esto lo hace porque es diferente todos pero
MsgBox (" NO SE ENCONTRO POR NUMERO MARCADO")
ElseIf tmpT = tmpA Then ' CUSANDO EJECUTE ESTA COMPARACION CON TERMINAL QUE VACIE LOS RESULTADOS EN UNA TABLA DIFERENTE
MsgBox (" SE BUSCARA POR TEMINAL")
SQLtr = "TRUNCATE TABLE COMPARACION_CDRS "
cdmtr.CommandType = adCmdText ' DICE EL TIPO DE COMANDO QUE VOY A UTILIZAR
cdmtr.CommandText = SQLtr ' AQUI ASIGNO LO Q' ES LA CADENA ANTES DEFINIDA PARA SQL LA CUAL LIMPIA LA TABLA DONDE VAMOS A INCERTAR
cdmtr.Execute
SQLT = "INSERT COMPARACION_CDRS (AVANTEL_ID,MOVISAT_ID,CADENA_CORTADA,CALLED_NUM)W HIT SELECT AVANTEL_ID,MOVISAT_ID, TERMINAL ='" & tmpT & "',CALLED_NUM = '" & tmpA & "'"
cdmt.CommandType = adCmdText ' DICE EL TIPO DE COMANDO QUE VOY A UTILIZAR
cdmt.CommandText = SQLT ' AQUI ASIGNO LO Q' ES LA CADENA ANTES DEFINIDA PARA SQL
cdmt.Execute
'******************
'ESTO ES PARA INSERTAR EN UNA TABLA
'**************
Else: tmp1 = tmpA
'SQLtr = "TRUNCATE TABLE COMPARACION_CDRS "
' cdmtr.CommandType = adCmdText ' DICE EL TIPO DE COMANDO QUE VOY A UTILIZAR
'cdmtr.CommandText = SQLtr ' AQUI ASIGNO LO Q' ES LA CADENA ANTES DEFINIDA PARA SQL
'cdmtr.Execute
SQLT = "INSERT INTO COMPARACION_CDRS(AVANTEL_ID,MOVISAT_ID,CADENA_CORT ADA,CALLED_NUM) SELECT Id_AVANTEL ='" & tmpId_a & "',Id_MOVISAT ='" & tmpId_mo & "',Cad_cortada ='" & tmp1 & "',CALLED_NUM = '" & tmpA & "' "
MsgBox ("SE ENCONTRARON CDRS IGUALES") 'NO LE TENEMOS PORQUE PONER LA VARIABLE PORQUE ENTONCES LA ESTOY LIMPIANDO
cdmt.CommandType = adCmdText ' DICE EL TIPO DE COMANDO QUE VOY A UTILIZAR
cdmt.CommandText = SQLT ' AQUI ASIGNO LO Q' ES LA CADENA ANTES DEFINIDA PARA SQL
cdmt.Execute
rsT.Open cdmt
rsT.CursorLocation = adUseClient
rstr.CursorLocation = adUseClient ' ESTO NO INFLUYE MUCHO, PERO LO Q' SI INFLUYE ES ABRIR EL RECORDSET, YA Q' AL ABRIRLO BORRA TODO
'rs.MoveNext
EN ESTE CASO LO COMENTE PORQUE MANDABA ERROR , PERO DE TODAS MANERAS NO AVANZABA
End If
Loop
ESTE CODIGO ESTA COMENTADO.
PERO SOLO ES LA PARTE DE LA COMPARACION DE LOS RECORDSET
LO UNICO QUE HACE ES COMPAR HASTA QUE EL RS ESTE VACIO.
PERO EL PROBLEMA ES QUE EL RECORDSET NO AVANZA