..:: MX Studio Fóruns ::..: Consulta personalisada - ..:: MX Studio Fóruns ::..

Jump to content

Publicidade

ATENÇÃO

Para evitar posts desnecessários e que não influam para o andamento e desenvolvimento do fórum, clique aqui e leia todas as regras.
Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Consulta personalisada

#1 User is offline   igadino 

  • Group: Membros
  • Posts: 65
  • Joined: 10-June 05

Posted 12 October 2010 - 09:25 PM

Pessoal estou fanzendo um sistema de biblia online só que tem um problema na hora de fazer uma consulta.
se escolher o livro e o capitulo
exemplo
Lucas Cap 1
Ver: 10 até o 20
a consulta so pode mostra o verciculo de 10 a 20
alguem tem uma luz?
<!-- #include file = "conexao.asp" -->
<%
Function destacaPalavras(StrTexto,StrPalavras) 
dim arrayPalavras
on error resume next
  StrPalavras = replace(trim(StrPalavras),"+",",")
  StrPalavras = replace(trim(StrPalavras),"-",",")
  arrayPalavras = split(StrPalavras,",")
  for j=0 to ubound(arrayPalavras)
   StrTexto=Replace(StrTexto, UCase(MID(arrayPalavras(j),1,1)) & LCase(MID(arrayPalavras(j),2,Len(arrayPalavras(j)))),"<font color='blue'><b>"&LCase((arrayPalavras(j))) &"</b></font>", 1, -1, 1)
  next
  destacaPalavras = StrTexto
if err.number <>0 then
  response.write("ERRO ao destacar palavras")
end if
End function
	s=request.Form("s")
	ID_Apostolo=request("ID_Apostolo")
	PagAtual = Request.QueryString("PagAtual") 'página atual
	ID_AP = Request("ID_Apostolo") 'página atual
	Capitulo = Request("Capitulo") 'página atual
	if request("mostra")=1 then
	SQL = "SELECT * FROM livros WHERE livro ='"&request("ID_Apostolo")&"' and cap='"&request("cap")&"' and ver='"&request("vers")&"'" 
'	SQL = "SELECT * FROM apost, Livros WHERE  Versiculo LIKE '%"&s&"%' OR Versiculo LIKE '%"&s&"%'" 
	RS.Open SQL, conn, 3
	elseif ID_AP ="68" then
	SQL = "SELECT * FROM livros WHERE Versiculo LIKE '%"&s&"%' and Versiculo LIKE '%"&s&"%'" 
	RS.Open SQL, conn, 3
	elseif ID_AP ="70" or ID_AP ="71" then
	SQL = "SELECT * FROM livros WHERE ant_nov ="&request("ID_Apostolo")&" And  Versiculo LIKE '%"&s&"%' ORDER BY cod" 
	RS.Open SQL, conn, 3
else
	SQL = "SELECT * FROM livros WHERE livro ='"&request("ID_Apostolo")&"' And  Versiculo LIKE '%"&s&"%' ORDER BY cod DESC" 
	RS.Open SQL, conn, 3
	end if
%> 
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript1.1" type="text/jscript">
function mostraform(){
 if(document.form.mostra.checked){
	divadd.style.position = 'static';
	divadd.style.visibility = 'visible';
}else{
	divadd.style.visibility = 'hidden';
}}			//-->
</script>
</head>
<body <%if request("mostra")=1 then %> onLoad="mostraform();" <%end if%>>
      <table width="50%" border="0" align="center" bordercolor="#000033">
	      <form name="form" method="post" action="?">
          <tr> 
            <td width="161"> <select name="ID_Apostolo" style="width:100px" class="entrada">
             <option value="68">Toda biblia</option>
             <%
			SQL = "SELECT * FROM Apost ORDER BY cod"
			set RecSet1 = conn.execute(SQL) 
			do while not RecSet1.eof
			lista=RecSet1("cod")
			MTT=RecSet1("livro")
			arrsetor3=split(Request("ID_Apostolo"),",")
			arrsetores3=split(lista,",")
			mostra_form=split(MTT,",")
			for y = LBOUND(mostra_form) to ubound(mostra_form)
			response.write"<option "
			for x= LBOUND(arrsetor3) to ubound(arrsetor3)
			if arrsetor3(x) = arrsetores3(y) then response.write "selected "
			next
			response.Write"value="""&arrsetores3(y)
			response.write""">"&mostra_form(y)&"</option>"&vbcr
			next
			%>
                <%
			RecSet1.movenext
			loop
			%>
              </select> </td>
            <td width="128"><input name="mostra" id="mostra" type="checkbox" onClick="mostraform();" value="1" <%if request("mostra")=1 then %> checked<%end if%>> <font color="#FF0000" size="1">C. V.</font></td>
          </tr>
          <tr>
            <td width="161"> <input type="text" class="entrada" name="s" style="width:100px;height:18px" value="<%=request("s")%>"> 
            </td>
            <td> <div style='visibility:hidden;' name=divadd id=divadd> 
                <table>
                  <tr>
                    <td>Cap:</td>
                    <td><input type="text" class="entrada" name="cap" value="<%=request("cap")%>" size="2" maxlength="3"> 
                    </td>
                  </tr>
                  <tr>
                    <td>Verciculo:</td><td><input type="text" class="entrada" name="vers" value="<%=request("vers")%>" size="2" maxlength="3"> até <input type="text" class="entrada" name="vers1" value="<%=request("vers1")%>" size="2" maxlength="3"></td>
					</tr>
						                </table>
              </div></td>
          </tr>
          <tr>
            <td colspan="2"><input type="submit" name="procur" style="cursor:hand; width:100; height:22" value="Pesquisar"></td>
          </tr>
        </form>
		<tr><td colspan="2">
<%
DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize
sigla_banco = rs("livro")
sigla_bancoo = Split(sigla_banco, ", ")
For A = LBOUND(sigla_bancoo) To UBOUND(sigla_bancoo)
If Sigla_Bancoo(A) = 01 Then
Uf="Gênesis"
Elseif Sigla_Bancoo(A) = 02 Then
Uf="Êxodo"
Elseif Sigla_Bancoo(A) = 03 Then
Uf="Levítico"
Elseif Sigla_Bancoo(A) = 04 Then 
Uf="Números"
Elseif Sigla_Bancoo(A) = 05 Then 
Uf="Deuteronômio"
Elseif Sigla_Bancoo(A) = 06 Then 
Uf="Josué"
Elseif Sigla_Bancoo(A) = 07 Then 
Uf="Juízes"
Elseif Sigla_Bancoo(A) = 08 Then 
Uf="Rute"
Elseif Sigla_Bancoo(A) = 09 Then 
Uf="I Samuel"
Elseif Sigla_Bancoo(A) = 10 Then 
Uf="II Samuel"
Elseif Sigla_Bancoo(A) = 11 Then 
Uf="I Reis"
Elseif Sigla_Bancoo(A) = 12 Then 
Uf="II Reis"
Elseif Sigla_Bancoo(A) = 13 Then 
Uf="I Crônicas"
Elseif Sigla_Bancoo(A) = 14 Then 
Uf="II Crônicas"
Elseif Sigla_Bancoo(A) = 15 Then 
Uf="Esdras"
Elseif Sigla_Bancoo(A) = 16 Then 
Uf="Neemias"
Elseif Sigla_Bancoo(A) = 17 Then 
Uf="Ester"
Elseif Sigla_Bancoo(A) = 18 Then 
Uf="Jó"
Elseif Sigla_Bancoo(A) = 19 Then 
Uf="Salmos"
Elseif Sigla_Bancoo(A) = 20 Then 
Uf="Provérbios"
Elseif Sigla_Bancoo(A) = 21 Then 
Uf="Eclesiastes"
Elseif Sigla_Bancoo(A) = 22 Then 
Uf="Cantares de Salomão"
Elseif Sigla_Bancoo(A) = 23 Then 
Uf="Isaías"
Elseif Sigla_Bancoo(A) = 24 Then 
Uf="Jeremias"
Elseif Sigla_Bancoo(A) = 25 Then 
Uf="Lamentações de Jeremias"
Elseif Sigla_Bancoo(A) = 26 Then 
Uf="Ezequiel"
Elseif Sigla_Bancoo(A) = 27 Then 
Uf="Daniel"
Elseif Sigla_Bancoo(A) = 28 Then 
Uf="Oséias"
Elseif Sigla_Bancoo(A) = 29 Then 
Uf="Joel"
Elseif Sigla_Bancoo(A) = 30 Then 
Uf="Amós"
Elseif Sigla_Bancoo(A) = 31 Then 
Uf="Obadias"
Elseif Sigla_Bancoo(A) = 32 Then 
Uf="Jonas"
Elseif Sigla_Bancoo(A) = 33 Then 
Uf="Miquéias"
Elseif Sigla_Bancoo(A) = 34 Then 
Uf="Naum"
Elseif Sigla_Bancoo(A) = 35 Then 
Uf="Habacuque"
Elseif Sigla_Bancoo(A) = 36 Then 
Uf="Sofonias"
Elseif Sigla_Bancoo(A) = 37 Then 
Uf="Ageu"
Elseif Sigla_Bancoo(A) = 38 Then 
Uf="Zacarias"
Elseif Sigla_Bancoo(A) = 39 Then 
Uf="Malaquias"
Elseif Sigla_Bancoo(A) = 40 Then 
Uf="Mateus"
Elseif Sigla_Bancoo(A) = 41 Then 
Uf="Marcos"
Elseif Sigla_Bancoo(A) = 42 Then 
Uf="Lucas"
Elseif Sigla_Bancoo(A) = 43 Then 
Uf="João"
Elseif Sigla_Bancoo(A) = 44 Then 
Uf="Atos dos Apóstolos"
Elseif Sigla_Bancoo(A) = 45 Then 
Uf="Romanos"
Elseif Sigla_Bancoo(A) = 46 Then 
Uf="I Coríntios"
Elseif Sigla_Bancoo(A) = 47 Then 
Uf="II Coríntios"
Elseif Sigla_Bancoo(A) = 48 Then 
Uf="Gálatas"
Elseif Sigla_Bancoo(A) = 49 Then 
Uf="Efésios"
Elseif Sigla_Bancoo(A) = 50 Then 
Uf="Filipenses"
Elseif Sigla_Bancoo(A) = 51 Then 
Uf="Colossenses"
Elseif Sigla_Bancoo(A) = 52 Then 
Uf="I Tessalonicenses"
Elseif Sigla_Bancoo(A) = 53 Then 
Uf="II Tessalonicenses"
Elseif Sigla_Bancoo(A) = 54 Then 
Uf="I Timóteo"
Elseif Sigla_Bancoo(A) = 55 Then 
Uf="II Timóteo"
Elseif Sigla_Bancoo(A) = 56 Then 
Uf="Tito"
Elseif Sigla_Bancoo(A) = 57 Then 
Uf="Filemom"
Elseif Sigla_Bancoo(A) = 58 Then 
Uf="Hebreus"
Elseif Sigla_Bancoo(A) = 59 Then 
Uf="Tiago"
Elseif Sigla_Bancoo(A) = 60 Then 
Uf="I Pedro"
Elseif Sigla_Bancoo(A) = 61 Then 
Uf="II Pedro"
Elseif Sigla_Bancoo(A) = 62 Then 
Uf="I João"
Elseif Sigla_Bancoo(A) = 63 Then 
Uf="II João"
Elseif Sigla_Bancoo(A) = 64 Then 
Uf="IIi João"
Elseif Sigla_Bancoo(A) = 65 Then 
Uf="Judas"
Elseif Sigla_Bancoo(A) = 66 Then 
Uf="Apocalipse"
End If
'if not request("s")="" then
response.write(destacaPalavras("<DIV style='FONT-SIZE: 12px; FONT-FAMILY: verdana, arial' align=justify><b>"&uf&" - "&rs("cap")&":"&rs("ver")&"</b>&nbsp;&nbsp;"&(rs("versiculo"))&"</div><br>",""&s&""))
'Response.Write "<DIV style='FONT-SIZE: 12px; FONT-FAMILY: verdana, arial' align=justify><b>"&uf&" - "&rs("cap")&":"&rs("ver")&"</b>&nbsp;&nbsp;"&(RS("versiculo"))&"</div><br>"'strTextoHtml
'end if
Next 
%>
  	<%
	i = i+1
	Count = Count + 1   'paginacao
	RS.MoveNext
	LOOP                'tb paginacao
	%>
		</td></tr>
      </table>

</body>
</html>

0

#2 User is online   xanburzum 

  • Group: Administrador
  • Posts: 2077
  • Joined: 04-November 08

Posted 13 October 2010 - 06:28 PM

Desculpe amigo, não entendi a dúvida, ela gera algum numero de erro ?
0

#3 User is offline   igadino 

  • Group: Membros
  • Posts: 65
  • Joined: 10-June 05

Posted 13 October 2010 - 09:43 PM

E o seguinte

eu tenho 50 registro só que tenho que fazer uma consulta para listra alguns registro entre os cinquenta.

exemplo:

se tem 50

eu escolho os regitro entre 7 e 15 todos maior ou igual a 7 e menor ou igual a 15 tem
que aparecer na cansulta, e assim por idiante ok.
0

#4 User is online   xanburzum 

  • Group: Administrador
  • Posts: 2077
  • Joined: 04-November 08

Posted 14 October 2010 - 09:27 AM

pra isso você vai precisar fazser um Rand (random) no SELECT do SQL

ORDER BY RND(INT(NOW*[id])-NOW*[id])


ou o randomize

SQL = "SELECT * FROM tb_noticia WHERE destaque_tb_noticia =1 ORDER BY id_tb_noticia"
Set tb_noticias = conn.Execute(SQL)

For x= 1 to 3
randomize()
noticia_sorteada = Int(total_noticias *Rnd) + 1
tb_noticias.Move noticia_sorteada
'aqui você manda escrever
Next%>


olha este exemplo:
<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>random record</title>
</head>
<body>
<%

dim connection, recordset, sConnString, sql
dim intRandomNumber, intTotalRecords, i


sql = "SELECT * FROM tblFriends"


Set connection = Server.CreateObject("ADODB.Connection")
Set recordset = Server.CreateObject("ADODB.Recordset")


sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Friends.mdb")


connection.Open(sConnString)


recordset.Open sql, connection, 3, 1

intTotalRecords = recordset.RecordCount
Randomize()
intRandomNumber = Int(intTotalRecords * Rnd)

recordset.Move intRandomNumber

Response.write("<table border='1'><tr>")

For i = 0 to recordset.Fields.Count - 1

Response.write("<td>" & recordset(i) & "</td>")
Next

response.write("</tr></table>")


recordset.Close
Set recordset=Nothing
connection.close
Set connection=Nothing
%>
</body>
</html>

0

#5 User is offline   igadino 

  • Group: Membros
  • Posts: 65
  • Joined: 10-June 05

Posted 14 October 2010 - 10:50 PM

Vocão não entendeu

Exemplo:
o Livro de Mateus tem 28 capitulo
o capitulo 1 tem 25 verciculo

quando eu for fazer uma consulta de uma determinada palavra que fica no capitulo 1 entre os verciculo 2 e 14 eu tenho que indicar o capitulo 1 e os verciculo 2 e 14 o sistema só pode listar os verciculo de 2 á 14 ok.
0

#6 User is online   xanburzum 

  • Group: Administrador
  • Posts: 2077
  • Joined: 04-November 08

Posted 15 October 2010 - 02:54 PM

usa um Between para pegar o intervalo desejado...
0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Similar Topics Collapse

  Topic Forum Started By Stats Last Post Info
New Replies Consulta complicada
Como saio dessa? 		MySQL stview 
  • 4 Replies
  • 1719 Views
New Replies Resultado destacado
Consulta no banco e resultado destacado 		PHP Marrento 
  • 7 Replies
  • 1390 Views
New Replies TSE permitirá consulta a bens de candidatos via in
IDG Now! - Internet 		Notícias TiTi Celestino 
  • 0 Replies
  • 351 Views
New Replies Consulta nativa
como fazer? 		Projeto :: Lumine mirv 
  • 1 Reply
  • 1672 Views
New Replies Formulário de consulta e resposta
Como fazer um fomul 		Dreamweaver hard 
  • 0 Replies
  • 415 Views
New Replies Ajuda com consulta e alteração de dados Dreamweaver Kadubr 
  • 7 Replies
  • 594 Views
New Replies PT consulta marqueteiro de Obama para aperfeiçoar campanha presidencial pela internet Notícias Notícias 
  • 0 Replies
  • 109 Views
New Replies Tipo de erro:A operação deve usar uma consulta atu
Erro aoinserir dados no Dreamweaver 2004 		Dreamweaver Adilson_CS 
  • 0 Replies
  • 552 Views

Publicidade

1 User(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)