no contar los duplicados de una tabla

[ARGFA]

Buenas buenas comundad programadora
tengo otro problemita por ahi....
necesito contar la cantidad de proveedores que tengo en un campo
pero en ese mismo campo algunos proveedores estan repetidos..
entoncs no puedo aplicar un contador de registros porque me daria mas proveedors de lo que en realidad hay.

si alguien tiene una idea de como hacerlo se los agradeceria.
aqui les adjunto un codigo que cree pero funciona solo si los proveedores repetidos estan seguido uno del otro. pero si uno esta al final y otro al principio los contara como dos proveedores distintos.

Código vb:

'recorro los proveedores almacenados para ver cuants son en total
Set rscantprove = myconn2.Execute("SELECT codigo_proveedor FROM tb1")
    While Not rscantprove.EOF
        'verifico que no me cuente dos veces el mismo proveedor
        If Not n = rscantprove!codigo_proveedor Then
            contador = contador + 1
        End If
    n = rscantprove!codigo_proveedor
    rscantprove.MoveNext
    Wend
 

GRACIAS POR SU TIEMPO

[alexg88]

Si solo quieres la obtener el número puedes realizar un COUNT con DISTINCT para que no te tome los que son repetidos:

Código vb:

Set rscantprove = myconn2.Execute("SELECT COUNT (DISTINCT codigo_proveedor) cuenta FROM tb1")
    While Not rscantprove.EOF       
    n = rscantprove!cuenta
    rscantprove.MoveNext
    Wend
 

[ARGFA]

oye no sabia esas funciones del sql, eso era lo que me faltaba para la consulta, pero lo estoy probando y me da error de sintaxis...

error en al expresion de consulta COUNT (DISTINCT codigo_proveedor) cuenta
(falta operador)

[ARGFA]

LO TENGO ASI AHORA:

Código vb:

Set rscantprove = myconn2.Execute("SELECT COUNT (DISTINCT(codigo_proveedor))  FROM tb1")
 

Y ME DA EL SIGUIENTE ERROR:
la funcion 'distinct' no esta definida en al expresion

[alexg88]

Prueba con AS a ver si es eso:

Código vb:

Set rscantprove = myconn2.Execute("SELECT COUNT (DISTINCT codigo_proveedor) as cuenta FROM tb1")
    While Not rscantprove.EOF       
    n = rscantprove!cuenta
    rscantprove.MoveNext
    Wend
 

[ARGFA]

Código vb:

Set rscantprove = myconn2.Execute("SELECT COUNT  (DISTINCT(codigo_proveedor)) AS cuenta FROM tb1")
    Print rscantprove!cuenta
 

asi lo tengo pero me dice q la fucion 'distinct' no esta definda en la expresion.

si le quito el distinct y le dejo el count, me funciona sin problemas pero contando todos los registros.

[alexg88]

Quítale los paréntesis después de DISTINCT:

NO:
COUNT (DISTINCT(codigo_proveedor))

SÍ:

COUNT (DISTINCT codigo_proveedor)

[ARGFA]

Código vb:

Execute("SELECT COUNT (DISTINCT codigo_proveedor) AS cuenta FROM tb1")
 

el miso eror anterior hermano... he probado mil opciones.
error de sintaxis (falta operador) en la expresion de consulta 'COUNT (DISTINCT codigo_proveedor)

[ARGFA]

nada todavia :S sera por el access? estoy usando el 2003

[SalomonSab]

No se como haces la seleccione de registros pero esto deberia de funcionar

Código:

"SELECT DISTINCT codigo_proveedor FROM tb1")
n = rscantprove.RecordCount

haber que tal

[alexg88]

Ah, si es Access claro. Yo pensaba que era SQLServer. Eso me pasa por no preguntar. Hazlo como te ha dicho SalomonSab, que debería funcionarte.

[Kruzado]

SELECT max(codigo_proveedor) as cuenta FROM tb1 group by codigo_proveedor

n = rscantprove.RecordCount

eso te agrupa todos los proveedores repetidos en un solo registro, luego recordcount los cuenta, pruebalo y nos avisas ;)

[ARGFA]

epalexxxx..... bueno si era por el access, no permite el count y el distinct al mismo tiempo. la forma en q lo resolvi fue haciendo el distinct pimero y luego el count....

gracias a todos por su colaboracion.