CONCLUIDO
A quem ajudo nos comando nos outros tópicos ou deu dicas aqui ta o resultado.
Então,diga como fez a consulta para verificar quantos vezes repetiu
cada números.
cada números.
Public Sub Calcular()
Dim i As Integer
Dim vCount(1 To 25) As Long
Dim aSQL As String
For i = 1 To 25
aSQL = [Ô]select count(*) AS total from lotofacil t where (t.n1 = [Ô] & i & [Ô] or t.n2 = [Ô] & i & [Ô] or t.n3 = [Ô] & i & [Ô] or t.n4 = [Ô] & i & [Ô] or t.n5 = [Ô] & i & [Ô] or t.n6 = [Ô] & i & [Ô] or t.n7 = [Ô] & i & [Ô] or t.n8 = [Ô] & i & [Ô] or t.n9 = [Ô] & i & [Ô] or t.n10 = [Ô] & i & [Ô] or t.n11 = [Ô] & i & [Ô] or t.n12 = [Ô] & i & [Ô] or t.n13 = [Ô] & i & [Ô] or t.n14 = [Ô] & i & [Ô] or t.n15 = [Ô] & i & [Ô])[Ô]
Set rsDados = New ADODB.Recordset
rsDados.CursorLocation = vCursorLocation
rsDados.CursorType = vCursorType
rsDados.LockType = vLockTypeLeitura
rsDados.Source = aSQL
rsDados.ActiveConnection = dados
rsDados.Open
rsDados.Close
Next
b1(0).Text = vCount(1)
b1(1).Text = vCount(2)
b1(2).Text = vCount(3)
b1(3).Text = vCount(4)
.....
como tenho 15 colunas mas 25 números pra verificar ai fiz assim.
Dim i As Integer
Dim vCount(1 To 25) As Long
Dim aSQL As String
For i = 1 To 25
aSQL = [Ô]select count(*) AS total from lotofacil t where (t.n1 = [Ô] & i & [Ô] or t.n2 = [Ô] & i & [Ô] or t.n3 = [Ô] & i & [Ô] or t.n4 = [Ô] & i & [Ô] or t.n5 = [Ô] & i & [Ô] or t.n6 = [Ô] & i & [Ô] or t.n7 = [Ô] & i & [Ô] or t.n8 = [Ô] & i & [Ô] or t.n9 = [Ô] & i & [Ô] or t.n10 = [Ô] & i & [Ô] or t.n11 = [Ô] & i & [Ô] or t.n12 = [Ô] & i & [Ô] or t.n13 = [Ô] & i & [Ô] or t.n14 = [Ô] & i & [Ô] or t.n15 = [Ô] & i & [Ô])[Ô]
Set rsDados = New ADODB.Recordset
rsDados.CursorLocation = vCursorLocation
rsDados.CursorType = vCursorType
rsDados.LockType = vLockTypeLeitura
rsDados.Source = aSQL
rsDados.ActiveConnection = dados
rsDados.Open
rsDados.Close
Next
b1(0).Text = vCount(1)
b1(1).Text = vCount(2)
b1(2).Text = vCount(3)
b1(3).Text = vCount(4)
.....
como tenho 15 colunas mas 25 números pra verificar ai fiz assim.
alguem ta querendo ganhar na lotofacil e largar a vida de programador... rsrsrs
O difÃcil so é acerta o resto de boa.
Tópico encerrado , respostas não são mais permitidas