Como agrupar nºs digitados sem usar SQL ou IFs...?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Como agrupar nºs digitados sem usar SQL ou IFs...?

Vilmar Brazao

SAO PAULO
SP - BRASIL

Postada em 19/03/2008 16:48 hs

Como agrupar nºs digitados sem usar SQL ou IFs...?

Com SQL seria:
SELECT Fotos.codigo, Count(Fotos.codigo) AS Contador
FROM Fotos
GROUP BY Fotos.codigo
ORDER BY Fotos.codigo

Com IFs seria:
'Exemplo somente com nºs de 1 a 3.
'Queria algo sem definir o escopo:

If digitado = 1 then
   grupo1 = grupo1 + 1
ElseIf digitado = 2 then
   grupo2 = grupo2 + 1
ElseIf digitado = 3 then
   grupo3 = grupo3 + 1
End If

Treze

SÃO VICENTE
SP - BRASIL

Postada em 19/03/2008 17:13 hs

Vilmar pra que extamente você usaria isto? fica mais fácil desta forma

Vilmar Brazao

SAO PAULO
SP - BRASIL

Postada em 19/03/2008 17:24 hs

então, na verdade quem precisa é um amigo que programa em C..
estou tentando ajudá-lo... mas não achamos nada ainda

alguma idéia?

TÓPICO EDITADO

Vilmar Brazao

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 20/03/2008 11:23 hs

Oi.
Eu consegui fazer com collection, mas com array não acertei a mão

:

Private m_colExecucoes As Collection
Private m_objTeste     As Object

Private Sub cmdAdicionar_Click()
    Dim strNumero      As String
    Dim lngValorAntigo As Long
    Dim lngI           As Long

    strNumero = CStr(txtNumero.Text)

    On Error Resume Next
    Set m_objTeste = m_colExecucoes(CStr(txtNumero.Text))

    If Err.Number = 5 Then 'Invalid procedure call or argument
        m_colExecucoes.Add 1, strNumero
    Else
        lngValorAntigo = m_colExecucoes.Item(strNumero)
        m_colExecucoes.Remove strNumero
        m_colExecucoes.Add lngValorAntigo + 1, strNumero
    End If
End Sub

Private Sub Form_Load()
    Set m_colExecucoes = New Collection
End Sub

COMO EU FARIA COM ARRAY?

TÓPICO EDITADO

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR