CONFERENCIA TIPO LOTOFACIL

USUARIO.EXCLUIDOS 30/06/2004 10:21:56
#31667 Resposta escolhida

Poderia explicar melhor

USUARIO.EXCLUIDOS 30/06/2004 11:08:17
#31683

Primeiro crie um banco com a seguinte estrutura

Tabela Cartao
ID = autonumerico
Numero = Long ou Texto (Não sei como tu vai identificalo)

Tabela Aposta
IDCartao = Longo
Numero = Integer ou Longo

Para adicionar uma aposta voce adiciona o numero da mesma na tabela Cartao.Numero

Cada Numero de aposta voce adiciona em Aposta.Numero com o respectivo ID do Cartao

Para saber quantos tu acertou faça assim

Select Distinct Cartao.Numero,Count(Aposta.IDCartao) From Cartao,Aposta where Aposta.Numero = 60 or Aposta.Numero = 70 or ...... Aposta.Numero = 80 groupby Cartao.Numero

USUARIO.EXCLUIDOS 30/06/2004 13:00:00
#31708

Dim i as integer
Dim v as variant
Dim s as string
v = split("01,08,10,02,11,14,16,17,21,19,22,24,12,21,15",",")
for i = o to ubound(v)
If s = "" then
s = "Aposta.Numero = " & v(i)
else
s = s & " or Aposta.Numero = " & v(i)
end if
next
"Select Distinct Cartao.Numero,Count(Aposta.IDCartao) From Cartao,Aposta where " & s & " groupby Cartao.Numero