Publicado em 16 de ago.

Mais de uma conexão de banco de dados em uma página em asp

Boa tarde ,

Tenho uma página em asp que já possui uma conexão para o banco de dados em access, mas minha consulta usa tabelas vinculas em oracle. Posso fazer mais de uma conexão na página?

Não sei como colocar a nova conexão em oracle.

Dim strURL

Dim cnnSearch

Dim rstSearch

Dim strDBPath

Dim strcargo

Dim strSQL

Dim strSearch

dim strcidade

Dim strsxo

inicio = Timer

'#Função que tira todos os acentos das palavras

function TiraAcento(StrAcento)

 for i = 1 to len(StrAcento)

 Letra = mid(StrAcento, i, 1)

 Select Case Letra

 Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

 Letra = "A"

 Case "é","É","ê","Ê","Ë","ë","È","è"

 Letra = "E"

 Case "í","Í","ï","Ï","Ì","ì"

 Letra = "I"

 Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

 Letra = "O"

 Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

 Letra = "U"

 Case "ç","Ç"

 Letra = "C"

 Case "ñ"

 Letra = "N"

 End Select

 texto = texto & Letra

 next

 TiraAcento = texto

end function

strURL = Request.ServerVariables("URL")

strcargo=request.QueryString("cargo")

strcidade=request.QueryString("cidade")

strsxo=request.QueryString("sx")

%><title>JUNIOR RS - ADMISSÃO DE PESSOAS</title>

<style type="text/css">

<!--

#Layer1 {	position:absolute;

	width:33px;

	height:34px;

	z-index:1;

	left: 876px;

	top: 69px;

}

.style1 {

	color: #FF6600;

	font-weight: bold;

	font-size: 18px;

}

body {

	background-color: #FFB13E;

}

.style4 {font-size: 18px; color: #666666;}

.style5 {

	color: #FFFFFF;

	font-weight: bold;

}

a:link {

	text-decoration: none;

}

a:visited {

	text-decoration: none;

}

a:hover {

	text-decoration: none;

}

a:active {

	text-decoration: none;

}

.style6 {color: #666666}

#Layer2 {

	position:absolute;

	width:144px;

	height:20px;

	z-index:1;

	left: 711px;

	top: 195px;

}

.style8 {

	font-size: 12px;

	font-family: Arial, Helvetica, sans-serif;

	color: #FF6600;

}

.style10 {font-size: 10px; color: #FF9900; }

-->

</style>

<body background="figuras/imagemmeio.PNG" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">

<!--

function click() {

if (event.button==2| event.button==3 | event.button==4) {

alert('Criado por Guilherme Odaguiri - XVHW')

}

document.onmousedown=click

// -->

</SCRIPT>

<script language=JavaScript>

 

function abrir(URL) {

 

 var width = 570;

 var height = 320;

 

 var left = 99;

 var top = 99;

 

 window.open(URL,'DP', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');

 

}

</SCRIPT>

 

 

 

<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">

 <!--DWLayoutTable-->

 <tr>

 <td width="852" height="512" align="center" valign="top" bgcolor="#FFFFFF"><table width="109%" height="280" border="0" cellpadding="2" cellspacing="2">

 <!--DWLayoutTable-->

 

 <tr>

 <td width="751" height="275" align="center" valign="top" bgcolor="#FFFFFF"> <p align="left" class="style1"><img src="FIGURAS/topo_subpags.png" width="751" height="161" border="0" usemap="#FPMap0MapMapMap">

 <map name="FPMap0MapMapMap" id="FPMap0MapMapMap">

 <area shape="rect" coords="518, 255, 744, 305" href="../Consulta_cadastrados.asp" alt="Candidatos treinados" />

 <area shape="rect" coords="518, 255, 744, 305" href="../Consulta_cadastrados.asp" alt="Candidatos treinados" />

 <area alt="Página Inicial" href="juniorweb/default.asp" shape="rect" coords="0, 0, 306, 69">

 </map>

 </p>

 <div class="style8" id="Layer2">* Campos Obrigatórios </div>

 <p align="left" class="style4"><font size="2" face="Arial, Helvetica, sans-serif">Selecione o cargo para Consulta </font></p> <form action="<%= strURL %>" method="get">

 

 

 <div align="center">

 <p align="left">

 Cargo:

 <select name="cargo" id="cargo">

 <option>Selecione o Cargo</option>

 <option value="00001">MEIO OFICIAL ENCANADOR</option>

 <option value="00002">MEIO OFICIAL CALDEIREIRO</option>

 <option value="00003">MEIO OFICIAL LIXADOR</option>

 <option value="00004">MEIO OFIC. MEC. MONTADOR</option>

 <option value="00005">MEIO OFICIAL MECANICO</option>

 <option value="00006">MEIO OFICIAL SOLDADOR</option>

 <option value="00007">MEIO OFIC. MONT. ANDAIMES</option>

 <option value="00008">PEDREIRO</option>

 <option value="00009">CARPINTEIRO</option>

 <option value="00010">ARMADOR</option>

 <option value="00011">PINTOR</option>

 <option value="00012">ISOLADOR</option>

 <option value="00013">OFICIAL ENCANADOR</option>

 <option value="00014">OFICIAL CALDEIREIRO</option>

 <option value="00015">OFICIAL LIXADOR</option>

 <option value="00016">OFICIAL MEC. MONTADOR</option>

 <option value="00017">OFICIAL MECANICO</option>

 <option value="00018">OFICIAL MONT. ANDAIMES</option>

 <option value="00019">MEIO OFICIAL MOV. CARGAS</option>

 <option value="00020">OFICIAL SOLDADOR</option>

 <option value="00021">OFICIAL MOV. CARGAS</option>

 <option value="00022">ELETRICISTA</option>

 <option value="00023">INSTRUMENTISTA</option>

 </select>

 </p>

 <p>

 <input name="submit" type="submit" value="Pesquisar" />

 <%

If strcargo <> "" Then

strDBPath = Server.MapPath("Banco_Cadastro.mdb")

Const adUseClient = 3

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

cnnSearch.CursorLocation = adUseClient

'strSQL = "SELECT " _

 '& "* FROM tabela_treinandos "_

 '& "WHERE Cod_carg LIKE '%" & TiraAcento(Replace(strcargo, "'", "''")) & "%' "_

 '&"AND nm_Cid like '%" & strcidade & "%'"_

 '&"AND Status_treinamento = -1 "_

 '&" ORDER BY NOMCAN;"

 

 

 

 

 

strSQL = "SELECT tabela_treinandos.NUMCAN, tabela_treinandos.NOMCAN, tabela_treinandos.nm_Cid FROM tabela_treinandos LEFT JOIN cs_Treinados_Ativos ON tabela_treinandos.NUMCAN = cs_Treinados_Ativos.S9E96_R122CEX.NUMCAN WHERE (((cs_Treinados_Ativos.S9E96_R122CEX.NUMCAN) Is Null) AND ((tabela_treinandos.cod_carg) LIKE '%" & strcargo & "%'));"

'RESPONSE.WRITE (STRSQL)

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

 </p>

 </div>

 </form></td>

 </tr>

 

 

 

 </table>

 <p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ Foram encontradas <b><%=intContador%></b> pessoas ] </font> </p>

 <div align="center">

 <form method="POST" action="so_form_visualizadetalhes_consulta.asp">

 <table width="750" height="1" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">

 <tr bordercolor="#000000" bgcolor="#003399">

 <th width="71" bordercolor="#C0C0C0" bgcolor="#FFB13E">

 <div align="center" class="style5"><font size="1" face="Tahoma">Nº Cad.</font> </div></th>

 <th width="439" bordercolor="#C0C0C0" bgcolor="#FFB13E">

 <div align="center"><font color="#FFFFFF"><strong><font size="1" face="Tahoma">Nome</font></strong></font></div></th>

 <th width="112" bordercolor="#C0C0C0" bgcolor="#FFB13E">

 <div align="center"><font color="#FFFFFF"><strong><font size="1" face="Tahoma">Turma Treinamento</font></strong></font></div></th>

 <th width="214" bordercolor="#666666" bgcolor="#FFB13E">

 <div align="center"> <font color="#FFFFFF"><strong><font size="1" face="Tahoma">Detalhes</font></strong></font></div></th>

 </tr>

 <%

	Do While Not rstSearch.EOF

 %>

 <tr valign="middle" bordercolor="#000000" bgcolor="#E8E8E9">

 <td height="40" bgcolor="#FFFFFF" style="border-left:1px solid #E8E8E8; border-top:1px solid #E8E8E8; border-bottom:1px solid #E8E8E8; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; border-right-width:1; color:#666666">

 <div align="left"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("NUMCAN").Value %></font></div></td>

 <td bgcolor="#FFFFFF" style="border-left:1px solid #E8E8E8; border-top:1px solid #E8E8E8; border-bottom:1px solid #E8E8E8; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; border-right-width:1; color:#666666"><div align="left"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("NOMCAN").Value %></font></div></td>

 <td bgcolor="#FFFFFF" style="border-left:1px solid #E8E8E8; border-top:1px solid #E8E8E8; border-bottom:1px solid #E8E8E8; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; border-right-width:1; color:#666666"><div align="center"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("turma").Value %></font></div></td>

 <td bgcolor="#FFFFFF" style="border-left:1px solid #E8E8E8; border-top:1px solid #E8E8E8; border-bottom:1px solid #E8E8E8; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; border-right-width:1"><div align="center"><font color="#333333">

 

 <label></label>

 <div align="center"><font face="Arial" color="#E8E8E8">

 <a href="so_form_visualizadetalhes_consulta.asp?radio=<%=rstSearch.Fields(1).Value%>">

 <font color="#000000" style="font-size: 8pt"><img src="FIGURAS/cadastro.PNG" width="28" height="24"> </font>

 <font color="#666666" style="font-size: 8pt">Mais Detalhes </font></a></font></div>

 

 

 </font></div></td>

 </tr>

 <%

 

 rstSearch.MoveNext

 Loop

 %>

	</table>

</form>

 <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>

 <span class="style6"> Sua busca foi processada em

 <%response.write FormatNumber( Timer - inicio, 2 )%>

 segundos.</span></font><br>

 <%

 

	rstSearch.Close

	Set rstSearch = Nothing

	cnnSearch.Close

	Set cnnSearch = Nothing

End If

 </div></td>

 </tr>

</table>

Discussão (4)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...