Jump to content


Estud_asp

Member Since 09/01/2004
Offline Last Active 15/08/2012, 13:27
-----

Topics I've Started

Somar Variavel Com Loop Multi Nivel

16/12/2010, 20:32

Olá galera
estou tentando montar um sistema de rede multi nivel
ja consegui todos os vinculos tudo ok até ai.

so não estou conseguindo fazer a seguinte soma... SEGUE ABAIXO O GRAFICO EM IMG

Posted Image



Olha meu codigo atual

para apresentar o seguinte resultado

Nivel 1 Marcio
Nivel 2 joao Nivel 3 Flavio Manoel Mario
Nivel 2 jose Nivel 3 Amanda Jorge Leonardo
Nivel 2 pedro Nivel 3 Joana Joaquim Maria


Exemplo da estrutura da tabela

nome | email | codigo | cod_indicado | numero_indicado |

Marcio ----- eu@eu.com ----- 123 ----- 000 ----- 1 |
jose ----- jo@ele.com ----- 456 ----- 123 ----- 1 |
joao ----- ao@eu.com ----- 789 ----- 123 ----- 1 |
Leo... ----- leo@eu.com ----- 888 ----- 456 ----- 1 |

e assim segue


<!--#include file="config.asp"-->

<%
'Declarações
ConRrs = 3
If Request.QueryString("pagina") = "" Then
numpag = 1
Else
numpag = CInt(Request.QueryString("pagina"))
End If
%>


<%
' coloquei o usuario direto aki pra poupar pagina de login nesta explicação
usuario = "marcio@dominio.com.br"

' na tabela cadastro existe um campo numero_indicado para todos os cadastrado com o VALOR 1
' este campo coloquei para fazer tal soma

AccessoDB = ""&banco&""
Set adoCon = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")
strCon="DRIVER={Microsoft Access Driver (*.mdb)};"
strCon = strCon & "DBQ=" & Server.MapPath(AccessoDB)
strSQL = "SELECT * FROM cadastro where email='"&usuario&"'"
strSQL = strSQL & " ORDER By cadastro.nome"
rs1.Open strSQL, strCon, 3
rs1.PageSize = ConRrs
If NOT rs1.EOF Then rs1.AbsolutePage = numpag
For intRecordLoopCounter = 1 to ConRrs
If rs1.EOF Then Exit For
STRID1 = CInt(rs1("idprod"))

strnome= rs1("nome")
strcodigo= rs1("codigo")
%>

<strong>Nivel 1 </strong> <%=""&strnome&""%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
rs1.MoveNext
next
%>
<br>

<%

AccessoDB = ""&banco&""
Set adoCon = Server.CreateObject("ADODB.Connection")
Set rs2 = Server.CreateObject("ADODB.Recordset")
strCon="DRIVER={Microsoft Access Driver (*.mdb)};"
strCon = strCon & "DBQ=" & Server.MapPath(AccessoDB)
strSQL = "SELECT * FROM cadastro where cod_indicado='"&strcodigo&"'"
strSQL = strSQL & " ORDER By cadastro.nome"
rs2.Open strSQL, strCon, 3
rs2.PageSize = ConRrs
If NOT rs2.EOF Then rs1.AbsolutePage = numpag
For intRecordLoopCounter2 = 1 to ConRrs
If rs2.EOF Then Exit For
STRID2 = CInt(rs2("idprod"))

strnome2= rs2("nome")
strcodigo2= rs2("codigo")
%>

<strong>Nivel 2 </strong> <%=""&strnome2&""%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
rs2.MoveNext

%>

<strong>Nivel 3</strong>
<%

AccessoDB = ""&banco&""
Set adoCon = Server.CreateObject("ADODB.Connection")
Set rs3 = Server.CreateObject("ADODB.Recordset")
strCon="DRIVER={Microsoft Access Driver (*.mdb)};"
strCon = strCon & "DBQ=" & Server.MapPath(AccessoDB)
strSQL = "SELECT * FROM cadastro where cod_indicado='"&strcodigo2&"'"
strSQL = strSQL & " ORDER By cadastro.nome"
rs3.Open strSQL, strCon, 3
rs3.PageSize = ConRrs
If NOT rs3.EOF Then rs3.AbsolutePage = numpag
For intRecordLoopCounter3 = 1 to ConRrs
If rs3.EOF Then Exit For
STRID3 = CInt(rs3("idprod"))

strnome3= rs3("nome")
strcodigo3= rs3("codigo")
%>

<%=""&strnome3&""%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
rs3.MoveNext

next

%>

<br>
<%
next

%>


será que alguem tem alguma noção de como posso fazer esta soma??

Desde ja Agradeço a todos
Um Forte Abraço

+ De 1 Resutados Pro Mesmo Id

19/04/2010, 13:35

Boa tarde
sou fraço em PHP
e estou tentando puxar uns dados de uma tabela sendo que tenho mas de uma informação por usaorio
vou explicar


estrutura da tabela

iduser | idfatura | descriminacao | id_descr

1 -------- 20 ---------- descri..01 ------ 01

1 -------- 20 ---------- descri..02 ------ 02

1 -------- 20 ---------- descri..03 ------ 03

2 -------- 21 ---------- descri..01 ------ 04

2 -------- 21 ---------- descri..02 ------ 05


o sistema cria um ID para cada descriminação

como faço pra puxar as 3 descriminacao do

usuario 1 fatura 21

preciso montar um form com isso
ficaria assim

<form>
<input type=hidden name=iduser value=1> onde 1 é o ID do usuario
<input type=hidden name=idfatura value=21> onde 21 é o ID dda fatura
<input type=hidden name=desc_1 value=descri...01> onde descri...01 é a 1ª descriminação da fatura
<input type=hidden name=desc_2 value=descri...02> onde descri...02 é a 2ª descriminação da fatura
<input type=hidden name=desc_3 value=descri...03> onde descri...03 é a 3ª descriminação da fatura
</form>

consigo puxar todos os dados
sendo que so vem uma descriminacao

alguem pode me ajudar a fazer isso

IPB Skin By Virteq