ayuda con consulta

[mackbeth]

MUCHAS GRACIAS A TODOS POR SU AYUDA, ESPECIALMENTE A GABO QUE SU CONSULTA ME DIO EL RESULTADO QUE ESPERABA, YA QUE MI VALIDACION Y SU CONSULTA ME DEVOLVIERON EXACTAMENTE EL MISMO RESULTADO, DE TODAS MANERAS COMO HABIA COMENTADO, LO HICE CON CODIGO VB Y AQUI ESTA:

Dim administrativo(0), tecnico(0) As String
Dim dr As SqlDataReader
Dim a As Integer = 0
'================================================= =====
'inicio de busqueda de inconsistencias de alta en administrativo y no en tecnico
Public Sub inc_administrativo_tecnico()
'inicializacion de variables y arreglos
a = 0
ReDim inc(1)
ReDim tecnico(1)
ReDim administrativo(1)
'llenado de arreglo con mac address de tecnico
dr = obj.QueryDR("select tecnico_mac from tecnico")
While dr.Read
tecnico(a) = dr.Item("tecnico_mac").ToString
a += 1
ReDim Preserve tecnico(a)
End While
'vaciado de variables
dr = Nothing
a = 0
'llenado de arreglo con mac adress de administrativo
dr = obj.QueryDR("select administrativo_mac from administrativo")
While dr.Read
administrativo(a) = dr.Item("administrativo_mac").ToString
a += 1
ReDim Preserve administrativo(a)
End While
'inicio de la validacion
For i = 0 To tecnico.Length - 1
For j = 0 To administrativo.Length - 1
If administrativo(j) = tecnico(i) Then
administrativo(j) = 0
End If
Next
Next
For i = 0 To administrativo.Length - 1
If CType(administrativo(i), Object) <> "0" Then
ReDim Preserve inc(i)
inc(i) = CType(administrativo(i), Object)
End If
Next
End Sub


Muchas Gracias a Todos!!