Loop de acordo com campo.

[Angelo lima 0]

Salve !!!!

 

Estou com um problema aqui para gerar uma tabela de numeros. Vou tentar explicar: Tenho a tabela participante;

 

ID | PARTICIPANTE | QUANTIDADE.

 

Bom, acima são os campos da tabela de participantes, ai eu fiz uma função para gerar numeros ( geraNumero(4) " isso traz um numero de 4 diitos. XXX ).

 

Bom oq eu to querendo fazer é "simples"

 

Gerar numeros que não podem se repetir de acordo com a quantidade do campo da tabela de participante e gravar isso em uma tabela nova de CUPONS

 

ID_PARTICIPANTE | CUPON

 

sacaram ?

 

Eu consegui gerar e taus, mas está com um bug estranho.

 

na tabela de participantes tem assim:

 

223 | FULANO | 10 ou seja teria que gerar 10 CUPONS para esse FULANO sacou ?

 

mas ele gera 7, 8 nunca 10 !!!

 

Se alguém puder me dar um help !!!!

 

[]´s

[jothaz 1]

Salve !!!!

 

Estou com um problema aqui para gerar uma tabela de numeros. Vou tentar explicar: Tenho a tabela participante;

 

ID | PARTICIPANTE | QUANTIDADE.

 

Bom, acima são os campos da tabela de participantes, ai eu fiz uma função para gerar numeros ( geraNumero(4) " isso traz um numero de 4 diitos. XXX ).

 

Bom oq eu to querendo fazer é "simples"

 

Gerar numeros que não podem se repetir de acordo com a quantidade do campo da tabela de participante e gravar isso em uma tabela nova de CUPONS

 

ID_PARTICIPANTE | CUPON

 

sacaram ?

 

Eu consegui gerar e taus, mas está com um bug estranho.

 

na tabela de participantes tem assim:

 

223 | FULANO | 10 ou seja teria que gerar 10 CUPONS para esse FULANO sacou ?

 

mas ele gera 7, 8 nunca 10 !!!

 

Se alguém puder me dar um help !!!!

 

[]´s

Camarada não entendi nadinha!!

 

Qual o banco de dados você esta utilizando?

 

A função geraNumero é no SQL ou ASP?

 

Posta ai seu código para facilitar.

 

Se possivel dêm um exemplo mais completo e mais claro.

 

t+

[Angelo lima 0]

<%option explicit Dim strConnAccess, SQL, Cupon, qtdade, intID, SQL1, SQL2, IDCupon, Conn, RSExcel, i, senha, Num, RSFunction aleatorio(quantidade)Dim numero(8) numero(0) = "3"numero(1) = "9"numero(2) = "1"numero(3) = "7"numero(4) = "6"numero(5) = "4"numero(6) = "8"numero(7) = "2"numero(8) = "5"Randomizedo while len(senha) < quantidadenum = numero(Int(9 * Rnd ))senha = senha + num loop aleatorio = Trim(senha)end functionstrConnAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base.mdb"Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open strConnAccessSQL = "SELECT id, COUNT(quantidade) AS qtd FROM Participantes GROUP BY id"Set RSExcel = Conn.Execute(SQL)' Loopa os Registros INTEIROS	While NOT RSExcel.eofCupon = aleatorio(4)qtdade = RSExcel("qtd")intID = RSExcel("id")SQL1 = "SELECT Cupon FROM tbCupon "Set RS = Conn.Execute(SQL1)		While not RS.EOF				for i = 1 to qtdade	if CDbl(RS("Cupon")) = CDbl(Cupon) ThenCupon = aleatorio(4)	elseSQL = "INSERT INTO tbCupon (codigo, Cupon) VALUES ('"& intID &"', '"& Cupon &"')"Conn.Execute(SQL)	end if				Next		RS.MoveNext()		Wend					RSExcel.MoveNext()	WendResponse.Write "Tabela gerada com sucesso. <br>"%>

Sacou ? Tipo gerar o numero do Cupon de acordo com a quantidade da tabela Participantes , porém os numeros não podem ser repetidos sacda ?!??!?

 

valeu

 

[]´s