Ir para conteúdo

POWERED BY:

Arquivado

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

cabral51

erro de conexao

Por , em ASP Clássico

Recommended Posts

cabral51    0

cabral51
Postado

Galera, tenhu o seguinte código:

'Set banco= server.createobject("adodb.connection")'banco.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco_cli.mdb")

qdo troko isso pelo call abre_banco que eh uma sub minha ele da erro!!

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

 

/manutencao/pendencias_pagas.asp, line 39

 

como pode??

sendo que nas outras paginas eu so utilizo por include

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

Primeiro Ponto...

Suas linhas de conexão com o BD estão comentadas

 

Segundo Ponto...

Troque o call abre_conexao pelas linhas abaixo...

'Set banco= server.createobject("adodb.connection")

'banco.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco_cli.mdb")

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

ae bruno valew pela ideia mas eu so postei assim pois eh como esta dando o erro, eu quero essas linhas comentadas mesmo pois esta com include file, q eh onde esta a concção com o banco!!Todas minhas paginas estao com include e call abre banco so que essa so ta funcionando com essa conceçao dentro da pagina

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado 
<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexaocli.asp"--><%RESPONSE.BUFFER = TRUEsession.LCID = 1046' Banco de Dados e TabelasDim i,wcor,analise,novadata2,novadata,novadata3,item,banco,tbBanco,tbBanco1,tbBanco2,msg,strsql,bancario,entid,codigox,listar,prospect,arquivo,arquivos,fso,tbbanco3,tbbanco4,tbbanco5,processo,soma,novasomaif codigox="" then'codigox = trim(request.querystring("codigox"))end ifif codigox="" then'response.Redirect("index.asp?erro=1")end if'Set banco= server.createobject("adodb.connection")'banco.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco_cli.mdb")call abre_banco%><html><head><title>Grupo Mercosul - Situação Financeira</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body leftmargin="1" topmargin="1" marginwidth="1" marginheight="1"><div align="left">  <% strSql="SELECT DISTINCT PROCESSOS.MARCA, PROCESSOS.PROCESSO, PROCESSOS.ULT_DESP FROM CLIENTES INNER JOIN (PARCELAS INNER JOIN (PROCESSOS INNER JOIN PEDIDOS ON PROCESSOS.PROCESSO = PEDIDOS.FIN_PROCESSO) ON PARCELAS.FIN_PEDIDO = PEDIDOS.FIN_PED) ON CLIENTES.CADASTRO = PROCESSOS.CADASTRO_PROC GROUP BY PROCESSOS.MARCA, PROCESSOS.PROCESSO, CLIENTES.ACESSO, PARCELAS.FIN_DT_REC_CH, PROCESSOS.ULT_DESP HAVING (((CLIENTES.ACESSO)='"&codigox&"') AND ((PARCELAS.FIN_DT_REC_CH)>#1/1/1995#)) ORDER BY PROCESSOS.PROCESSO;"set tbBanco3=banco.Execute(strSQL)if not tbbanco3.eof then	do While not tbbanco3.eof%></div><div align="left">  <table width="800" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#006600">	<tr>	  <td height="28" colspan="3" bgcolor="#3399FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Processo: <strong><%=tbbanco3("processo")%></strong></font></td>	  <td colspan="2" bgcolor="#3399FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Marca: <strong><%=tbbanco3("marca")%></strong></font></td>	  <%if tbbanco3("ult_desp")<> "" then%>	  <td colspan="4" bgcolor="#3399FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Prioridade: <strong><%=(tbbanco3("ult_desp"))%> </strong></font></td>		<%else%>	<td width="170" colspan="4" bgcolor="#3399FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Prioridade: <strong><%=tbbanco3("ult_desp")%> </strong></font></td>	<%end if%>	</tr>	<%	strSQL="SELECT DISTINCT PEDIDOS.FIN_PED, PEDIDOS.FIN_SERVICO, PEDIDOS.FIN_DT_PED, PEDIDOS.FIN_VR_PED, PEDIDOS.FIN_EXEC_PED FROM CLIENTES INNER JOIN (PARCELAS INNER JOIN (PROCESSOS INNER JOIN PEDIDOS ON PROCESSOS.PROCESSO = PEDIDOS.FIN_PROCESSO) ON PARCELAS.FIN_PEDIDO = PEDIDOS.FIN_PED) ON CLIENTES.CADASTRO = PROCESSOS.CADASTRO_PROC GROUP BY PEDIDOS.FIN_PED, PEDIDOS.FIN_SERVICO, PEDIDOS.FIN_DT_PED, PROCESSOS.PROCESSO, CLIENTES.ACESSO, PARCELAS.FIN_DT_REC_CH, PROCESSOS.PROCESSO, PEDIDOS.FIN_VR_PED, PEDIDOS.FIN_EXEC_PED HAVING (((PROCESSOS.PROCESSO)="&tbbanco3("processo")&") AND ((CLIENTES.ACESSO)='"&codigox&"') AND ((PARCELAS.FIN_DT_REC_CH)>#1/1/1995#)) ORDER BY PEDIDOS.FIN_PED;"	set tbBanco2=banco.Execute(strSQL)	if not tbbanco2.eof then		do While not tbbanco2.eof%>  	<tr>	  <td height="36" bgcolor="ffffff"> </td>	  <td height="36" colspan="8" bgcolor="#FF9900"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Data pedido: <%=(tbbanco2("fin_dt_ped"))%></strong>   </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> Nº pedido: <%=tbbanco2("FIN_PED")%> </strong></font> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Serviço: <%=(tbbanco2("fin_servico"))%></strong>  </font> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Valor	  Pedido: <%=(tbbanco2("FIN_VR_PED"))%></strong></font>  <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Execussão Pedido: <%=(tbbanco2("fin_exec_ped"))%></strong></font></td>	    </tr>	<tr>	  <td width="37"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">  </font></div></td>	  <td width="87"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">  </font></div></td>	  <td colspan="3" bgcolor="#FFF0C4"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nº parcela</font></div></td>	  <td colspan="2" bgcolor="#FFF0C4"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Valor			Parcela</font></div>		  <div align="center"></div>	</td>	  <td width="332" bgcolor="#FFF0C4"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Data Venc. Parcela</font></div></td>	  <td colspan="2" bgcolor="#FFF0C4"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Data			Rcbto</font></div>	</td>	</tr>	<%		strSql="SELECT DISTINCT PARCELAS.FIN_PEDIDO, PARCELAS.FIN_PARCELA, PARCELAS.FIN_DT_PARCELA, PARCELAS.FIN_VR_PARC, PARCELAS.FIN_DT_REC_CH,PEDIDOS.FIN_DT_PED FROM CLIENTES INNER JOIN (PARCELAS INNER JOIN (PROCESSOS INNER JOIN PEDIDOS ON PROCESSOS.PROCESSO = PEDIDOS.FIN_PROCESSO) ON PARCELAS.FIN_PEDIDO = PEDIDOS.FIN_PED) ON CLIENTES.CADASTRO = PROCESSOS.CADASTRO_PROC GROUP BY PARCELAS.FIN_PEDIDO, PROCESSOS.PROCESSO, CLIENTES.ACESSO, PARCELAS.FIN_DT_REC_CH, PARCELAS.FIN_PARCELA, PARCELAS.FIN_DT_PARCELA, PARCELAS.FIN_VR_PARC, PARCELAS.FIN_DT_REC_CH, PEDIDOS.FIN_DT_PED HAVING (((PARCELAS.FIN_PEDIDO)="&tbbanco2("FIN_PED")&") AND ((PROCESSOS.PROCESSO)="&tbbanco3("processo")&") AND ((CLIENTES.ACESSO)='"&codigox&"') AND ((PARCELAS.FIN_DT_REC_CH)>#1/1/1995#));"		set tbBanco1=banco.Execute(strSQL)				if not tbbanco1.eof then			do While not tbbanco1.eof					novasoma=tbbanco1("fin_vr_parc")%>	<tr>	  <td> </td>	  <td width="87"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">  </font></div></td>	  <td colspan="3" bgcolor="#F0F8FF"><div align="center"></div>		<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=tbbanco1("fin_parcela")%>      </font></div></td>	  <td colspan="2" bgcolor="#F0F8FF" width="120"><div align="right"></div>		  <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(tbbanco1("fin_vr_parc"))%></font></div></td>	  <td width="200" bgcolor="#F0F8FF"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(tbbanco1("fin_dt_ped"))%></font></div>	</td>	  <td colspan="2" bgcolor="#F0F8FF"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(tbbanco1("FIN_DT_REC_CH"))%></font></div>	</td>	</tr>	<%			tbbanco1.movenext			loop		end if			tbbanco1.close		set tbbanco1=nothing		tbbanco2.movenext		loop	end if		tbbanco2.close	set tbbanco2=nothing%>  </table>  <br>  <br>  <%	tbbanco3.movenext	loopend iftbbanco3.closeset tbbanco3=nothing'banco.close'set banco=nothing	call fecha_banco%>  </div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado 
<%  sub abre_banco	Set banco = Server.CreateObject("ADODB.Connection") 	banco.Open "DBQ=e:\home\mercosulweb\dados\banco_cli.mdb;Driver={Microsoft Access Driver (*.mdb)}"  end sub  sub fecha_banco	banco.close	Set banco=nothing  end sub%>

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