Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rd111072

Criar array

Por , em ASP Clássico

Recommended Posts

rd111072    1

rd111072
Postado

Boa tarde, moçada!

 

Como crio um array a partir de um Select, uma consulta, um comando SQL, tipo:

 

SQL = "Select * from vRelc964 where Matricula <> '' and dtCirurgia >= '1/1/2009 00:00:00' and nmRepres <> 'CASA' ORDER BY cdPed"

 

Aí isso geraria uma série de valores e esses valores eu tenho que transformar num array.

 

Alguém sabe?

Compartilhar este post

Link para o post
Compartilhar em outros sites

rd111072    1

rd111072
Postado

Boa tarde, moçada!

 

Como crio um array a partir de um Select, uma consulta, um comando SQL, tipo:

 

SQL = "Select * from vRelc964 where Matricula <> '' and dtCirurgia >= '1/1/2009 00:00:00' and nmRepres <> 'CASA' ORDER BY cdPed"

 

Aí isso geraria uma série de valores e esses valores eu tenho que transformar num array.

 

Alguém sabe?

 

Bom, parece que consegui criar o array. Só que agora não aparece nada masi depois do NEXT:

 

SQL = "Select * from vRelc964 where Matricula <> '' and dtCirurgia >= '1/1/2009 00:00:00' and nmRepres <> 'CASA' ORDER BY cdPed"

    set rs = conexaoDB.Execute(SQL)
	

Dim ItensColuna() 
ReDim ItensColuna(0)

                                                                                 
while not rs.EOF

        redim preserve ItensColuna(Ubound(ItensColuna)+1)
        ItensColuna(Ubound(ItensColuna)) = rs("nPed")

rs.movenext : wend

%>
    
  
    
    <%
	For i = 1 To Ubound(ItensColuna)                                
	sql2 = "SELECT * FROM tab_convenio WHERE cod_processo = '"&ItensColuna(i)&"' and status_convenio <>'Finalizado' and pendencia <>'Faturado' order by data_cirurgia desc "
	
	Set rs2 = conexaoDB2.Execute(sql2)
	Response.Write(sql2)
	Next
	%>

<body>
<%Do while not rs.eof%>
<table width="500" border="0" cellspacing="2" cellpadding="2">
  <tr>
    <td>Nº Processo</td>
    <td>Representante</td>
    <td>Data</td>
    <td>Matricula</td>
    <td>Pendência</td>
  </tr>
  <tr>
    <td><%=rs("nPed")%></td>
    <td><%=rs("nmRepres")%></td>
    <td><%=rs("dtCirurgia")%></td>
    <td><%=rs("Matricula")%> </td>
    <td>
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
   
  <tr>
  <% if rs2.EOF then%>
    <td>-</td>
    <%else%>
    <td><%Do while not rs2.eof%><%=rs2("pendencia")%> p<%=rs2("cod_processo")%> <%
						rs2.movenext
						Loop%></td>
    <%end if%>
  </tr>
    
</table>

    </td>
  </tr>
</table>

 <%
rs.movenext
Loop
%>

<%= response.write(rs.recordcount)%>

O que está errado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existe um tópico muito bom sobre manipular array dá uma pesquisada no forum

Compartilhar este post

Link para o post
Compartilhar em outros sites

rd111072    1

rd111072
Postado

existe um tópico muito bom sobre manipular array dá uma pesquisada no forum

 

Amigo, eu já consegui fazer o array e introduzir no select, só que tem um "erro" que não deixa carregar a tabela abaixo do NEXT (v. código).

Gostaria que me ajudassem a descobrir qualé...

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Acima do

Do while not rs.eof

 

Utiliza

rs.MoveFirst

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito