Ir para conteúdo

POWERED BY:

Arquivado

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

Boris

Operação não permitida

Recommended Posts

Bom dia Galera, semana passada estava tentando fazer um inner join com dois bancos porem como está de uma certa forma dificil resolver este problema resolvi criar a tabela no mesmo banco ou seja deixar tudo no mesmo banco.

 

fiz como nosso amigo Hargon me orientou

 

SQL="SELECT B.codigo_filial FROM loja_venda_pgto A INNER JOIN tb_fecha_caixa B ON A.codigo_filial = B.codigo_filial"

<% =Dados("codigo_filial") %>

 

 

porem esta aparecendo a seguinte mensagem:

 

Objeto Response erro 'ASP 0104 : 80070057'

 

Operação não permitida

 

/sys_hbf/busca_relat_diferenca.asp, line 0

 

 

alguem pode me ajudar

 

 

Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tenta:

<% =cLng(Dados("codigo_filial")) %>

 

Se não resolver, posta o código inteiro da página com erro.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tenta:

<% =cLng(Dados("codigo_filial")) %>

 

Se não resolver, posta o código inteiro da página com erro.

 

apareceu o seguinte erro:

Objeto Response erro 'ASP 0104 : 80070057'

 

Operação não permitida

 

/sys_hbf/busca_relat_diferenca.asp, line 0

 

 

 

meu codigo:

 

<!--#include file="conexao01.asp"-->
<html>
<title></title>
<style type="text/css">
<!--
.style1 {font-size: 16px}
-->
</style>
<head>
</head>
<link href="style.css" rel="stylesheet" type="text/css">
<body topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">
<br>
<table width="630" border="0" align="center" cellpadding="1" cellspacing="0">
  <tr>
	<td bgcolor="#ffcc66"><table width="640" height="480" border="0" align="center" cellpadding="0" cellspacing="0">
	  <tr>
		<td bgcolor="#FFFFFF"><table width="640" border="0" cellspacing="0" cellpadding="0">
			<tr>
			  <td height="25" bgcolor="#ffcc66"> </td>
			</tr>
			<tr>
			  <td height="405" align="left" valign="top"><form name="busca" method="post" action="busca_relat_diferenca.asp">
				<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
				  <tr>
					<td height="50" valign="top"> </td>
				  </tr>
				  <tr>
					<td height="10" align="center" valign="middle"><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
						<tr>
						  <td height="28" background="Imagens/line_fundo.jpg"><div align="right">
							  <TABLE width="100%" border=0 align=center cellPadding=0 cellSpacing=0 class=texto>
								<TR>
								  <TD height="1" align="center" nowrap><table width="100%" height="24" border="0" cellspacing="2">
									  <tr align=center class=texto>
										<td width="33%" height="23"><div align="right" class="style48"><span class="LegendaTxt"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Loja</font></strong></span><span class="style50"><font face="Verdana, Arial, Helvetica, sans-serif">
<% 
Set Dados = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM filiais where cod_filial<>'999999' and cod_filial<>'000001' and cod_filial<>'000002' and cod_filial<>'000004' and cod_filial<>'000009' and cod_filial<>'000020' and cod_filial<>'000021' and cod_filial<>'777777' and cod_filial<>'000008' order by filial asc"
Dados.Open SQL, conexao01, 3 
%>
											<font face="Verdana, Arial, Helvetica, sans-serif">
											<select class="LegendaTxt"  name='filial'>
											  <option value='0'>Selecione</option>
<%
If Not Dados.EOF Then
  While Not Dados.EOF
	Response.Write "<OPTION VALUE='" & Dados("filial") & "'"
	If Request("cod_filial") = Dados("filial") Then Response.Write " selected"
	Response.Write ">" & Dados("filial") & "</OPTION>"
	Dados.MoveNext
  Wend
End If
%>
											</select>
											</font>
<%
set Dados = Nothing
%>
										</font></span></div></td>
										<td width="17%"> </td>
										<td width="31%" height="23" class="LegendaTxt"><span class="style48"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Data</font></strong>
											<input type="text" name="frm_data" class="LegendaTxt">
										</span></td>
										<td width="8%"> </td>
										<td width="11%"><div align="left"><strong><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
											<input type="image" src=Imagens/buscar.jpg align=absmiddle style="font-family=Tahoma; font size=10" id=image12 name=image1>
										</font></strong></div></td>
									  </table></TD>
								</TR>
							  </TABLE>
						  </div>
							  <div align="center"></div></td>
						</tr>
						<tr>
						  <td height="36" valign="top"><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
							  <tr>
								<td height="300" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
									<tr bgcolor="#FFFFFF">
									  <td valign="top"><div align="center"><span class="style31"><br>
									  </span></div>
										  </td>
									</tr>
								</table>
								  <div align="center"><span class="LoginBox style1">Resultado da Busca </span><br>
								  </div>
								  <table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
									<tr>
									  <td height="207" valign="top" bgcolor="#FFFFFF"><div align="center"><font face="Comic Sans MS"> </font>
											  <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
												<tr>
												  <td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
													  <tr>
														<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
															<tr>
															  <td width="20%" height="22" class="cx"><div align="center" class="style47"></div></td>
															  <td width="22%" class="cx"><div align="center" class="style47"></div></td>
															  <td width="16%" class="cx"><div align="center" class="style47"></div></td>
															  <td width="17%" class="cx"><div align="center" class="style47"></div></td>
															  <td width="25%" class="cx"><div align="center" class="style47"></div></td>
															</tr>
														</table></td>
													  </tr>
													  <tr>
														<td valign="top">
<%

set rs = conexao01.execute("SELECT * FROM tb_fecha_caixa")

SQL="SELECT B.data_registro, B.codigo_filial FROM loja_venda_pgto A INNER JOIN tb_fecha_caixa B ON A.codigo_filial = B.codigo_filial"

Set Dados = Server.CreateObject("ADODB.Recordset")
Dados.Open SQL, conexao01, 3 

%>														
															<table border="0" width="100%" cellspacing="1">
<% while not Dados.EOF %>
															  <tr>
																<td width="20%" height="20" bgcolor="#F0F0F0" class="style39"><div align="center" class="LegendaTxt">					
																	<% =cLng(Dados("codigo_filial")) %>
																</div></td>
																<td width="22%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"><span class="LegendaTxt">
																  <%' =Dados("filial") %>
																</span></div></td>
																<td width="16%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"></div></td>
																<td width="17%" bgcolor="#F0F0F0" class="style39"><div align="center" class="style36"></div></td>
																<td bgcolor="#F0F0F0" class="style39"><div align="right" class="style36">
																	<div align="center">
																	 
																  </div>
																</div></td>
															  </tr>
															  <%

Dados.MoveNext
wend

%>
															</table>
<%

'end if
'Dados.close
'wend
'Set Dados = Nothing

%>
														</td>
													  </tr>
												  </table></td>
												</tr>
											  </table>
									  </div></td>
									</tr>
									<tr>
									  <td height="10" valign="top" bgcolor="#FFFFFF"><div align="center"></div></td>
									</tr>
								  </table></td>
							  </tr>
						  </table></td>
						</tr>
						<tr>
						  <td height="19" valign="top"><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
						  </table></td>
						</tr>
					</table></td>
				  </tr>
				</table>
			  </form></td>
			</tr>
			<tr>
			  <td height="50" bgcolor="#ffcc66">			   </td>
			</tr>
		</table>
</td>
	  </tr>
	</table></td>
  </tr>
</table>
</body>
</html>

 

Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você está usando MySQL?

 

Veja onde está sendo acessado campos numéricos no seu código e converta utilizando CLNG, conforme no exemplo acima. Faça isso com todos vindo do banco de dados.

 

Poste o resultado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você está usando MySQL?

 

Veja onde está sendo acessado campos numéricos no seu código e converta utilizando CLNG, conforme no exemplo acima. Faça isso com todos vindo do banco de dados.

 

Poste o resultado.

Boa Tarde hargon, eu procurei criar uma pagina de teste e mudar um pouco a logica do mesmo.

 

Antes de comparar loja_venda_pgto.data = tb_fecha_caixa.data_registro havia dado certo quando fui fazer a comparação de data apareceu o seguinte erro:

 

Microsoft OLE DB Provider for SQL Server erro '80040e07'

 

The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

 

/teste4.asp, line 11

 

 

meu codigo ficou assim:

<% Session.LCID = 1033 %>
<% Session.LCID = 1046 %>

<%
set conexao=server.CreateObject("adodb.connection")
dados_sys = "Provider=sqloledb;Data Source=CMAX\SQLEXPRESS;Initial Catalog=TESTE_HANDBOOK_580;User Id=sa;Password=cmax2207;"
conexao.open dados_sys

SQL = "SELECT loja_venda_pgto.codigo_filial, loja_venda_pgto.data, loja_venda_pgto.numero_cupom_fiscal, tb_fecha_caixa.codigo_filial, tb_fecha_caixa.data_registro, tb_fecha_caixa.total FROM loja_venda_pgto loja_venda_pgto, tb_fecha_caixa tb_fecha_caixa WHERE loja_venda_pgto.codigo_filial = tb_fecha_caixa.codigo_filial and loja_venda_pgto.data = tb_fecha_caixa.data_registro ORDER BY loja_venda_pgto.codigo_filial"
Set Dados = Server.CreateObject("ADODB.Recordset")
Dados.Open SQL, conexao, 3 
%>

<% =Dados("codigo_filial")%><br>

<% =Dados("total")%><br>

 

espero que tenha ficado mais facil pra vcs me ajudar obrigado a todos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

uma das possibilidades para o erro inicial seria um loop infinito verifique se esqueceu de algo para ver se muda para um erro mais especifico

Compartilhar este post


Link para o post
Compartilhar em outros sites

Este erro acontece geralmente quando tenta de inserir uma data no SQL Server com # delimitadores;

tentativa de inserir uma data no Access ou o SQL Server sem delimitadores, ou

tentativa de inserir um malformed data.

 

da um response.write na sua string SQL, para ver o que esta sendo passada.

Compartilhar este post


Link para o post
Compartilhar em outros sites

É, o erro agora já mudou. O primeiro erro era na linha 0 e agora na linha 11.

 

Verifica as observações do Xan, e poste aqui o resultado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Este erro acontece geralmente quando tenta de inserir uma data no SQL Server com # delimitadores;

tentativa de inserir uma data no Access ou o SQL Server sem delimitadores, ou

tentativa de inserir um malformed data.

 

da um response.write na sua string SQL, para ver o que esta sendo passada.

bom o problema resolveu quanto eu coloquei a data como datetime da mesma maneira que esta a outra tabela porem agora não consigo fazer a inserir os dados

 

aparece :

Microsoft OLE DB Provider for SQL Server erro '80040e07'

 

The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

 

/sys_hbf/insere_close_caixa.asp, line 94

meu codigo de inserção é :

 

<!-- #include file = "conexao01.asp" -->
<%
frm_dinheiro 			= request.form("frm_dinheiro")
frm_ch_avista 			= request.form("frm_ch_avista")
frm_ch_predatado		= request.form("frm_ch_predatado")	

frm_master_ticket		= request.form("frm_master_ticket")
frm_master_debito		= request.form("frm_master_debito")
frm_master_credito		= request.form("frm_master_credito")
frm_master_parc_adm		= request.form("frm_master_parc_adm")
frm_master_parc_2x		= request.form("frm_master_parc_2x")
frm_master_parc_3x		= request.form("frm_master_parc_3x")
frm_master_parc_4x		= request.form("frm_master_parc_4x")
frm_master_parc_5x		= request.form("frm_master_parc_5x")
frm_master_parc_6x		= request.form("frm_master_parc_6x")
frm_master_subtotal		= request.form("frm_master_subtotal")

frm_visa_ticket			= request.form("frm_visa_ticket")
frm_visa_debito			= request.form("frm_visa_debito")
frm_visa_credito		= request.form("frm_visa_credito")
frm_visa_parc_adm		= request.form("frm_visa_parc_adm")
frm_visa_parc_2x		= request.form("frm_visa_parc_2x")
frm_visa_parc_3x		= request.form("frm_visa_parc_3x")
frm_visa_parc_4x		= request.form("frm_visa_parc_4x")
frm_visa_parc_5x		= request.form("frm_visa_parc_5x")
frm_visa_parc_6x		= request.form("frm_visa_parc_6x")
frm_visa_subtotal		= request.form("frm_visa_subtotal")

frm_hiper_ticket		= request.form("frm_hiper_ticket")
frm_hiper_credito		= request.form("frm_hiper_credito")
frm_hiper_parc_adm		= request.form("frm_hiper_parc_adm")
frm_hiper_parc_2x		= request.form("frm_hiper_parc_2x")
frm_hiper_parc_3x		= request.form("frm_hiper_parc_3x")
frm_hiper_parc_4x		= request.form("frm_hiper_parc_4x")
frm_hiper_parc_5x		= request.form("frm_hiper_parc_5x")
frm_hiper_parc_6x		= request.form("frm_hiper_parc_6x")
frm_hiper_subtotal		= request.form("frm_hiper_subtotal")

frm_american_ticket		= request.form("frm_american_ticket")	
frm_american_credito	= request.form("frm_american_credito")	
frm_american_parc_adm	= request.form("frm_american_parc_adm")
frm_american_parc_2x	= request.form("frm_american_parc_2x")
frm_american_parc_3x	= request.form("frm_american_parc_2x")
frm_american_parc_4x	= request.form("frm_american_parc_2x")
frm_american_parc_5x	= request.form("frm_american_parc_2x")
frm_american_parc_6x	= request.form("frm_american_parc_2x")
frm_american_subtotal	= request.form("frm_american_subtotal")
	
frm_vale_produto		= request.form("frm_vale_produto")
frm_vale_cliente		= request.form("frm_vale_cliente")
frm_convenio			= request.form("frm_convenio")
frm_vale_func_loja		= request.form("frm_vale_func_loja")
frm_vale_func_folha		= request.form("frm_vale_func_folha")
		
sobra_falta				= request.form("sobra_falta")
frm_comanda				= request.form("frm_comanda")
frm_total				= request.form("frm_total")

sData	 				= Date
hora 					= Time


'Response.Write("Resultado: "&sdata&"<br>"&hora&"<br>")
'Response.end()
%>

<table border="0" cellspacing="0" cellpadding="2" align="center" bordercolor="#000000" width="700">
  <tr>
	<td><table width="656" border="0" cellspacing="0" cellpadding="0" align="center">
	  <tr>
		<td> </td>
	  </tr>
	  <tr>
		<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
			<tr>
			  <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td>
						<table width="100%" border="0" cellspacing="0" cellpadding="0">
						  <tr class="texto8">
							<td height="13"> </td>
						  </tr>
						</table>
					  
						<table width="597" border="0" align="center" cellpadding="0" cellspacing="0">
						  <tr>
							<td width="597" class="texto8"><table width="100%" border="0" cellspacing="0" cellpadding="0">
								<tr>
								  <td width="16%"> </td>
								  <td width="84%" class="texto8">
<%
sql = "Insert into tb_fecha_caixa (dinheiro, ch_avista, ch_predatado, n_ticket_master,master_debito, master_credito, master_parc_adm, master_2x, master_3x, master_4x, master_5x, master_6x, master_subtotal, n_ticket_visa, visa_debito, visa_credito, visa_parc_adm, visa_2x, visa_3x, visa_4x, visa_5x, visa_6x,  visa_subtotal, n_ticket_hiper, hiper_credito, hiper_parc_adm, hiper_2x, hiper_3x, hiper_4x, hiper_5x, hiper_6x,  hiper_subtotal, n_ticket_american, american_credito, american_parc_adm, american_2x, american_3x, american_4x, american_5x, american_6x, american_subtotal,vale_produto, vale_cliente, convenio, vale_func_loja, vale_func_folha, sobra_falta, comanda, total, data_registro, hora_registro) values ('"&frm_dinheiro&"', '"&frm_ch_avista&"', '"&frm_ch_predatado&"', '"&frm_master_ticket&"', '"&frm_master_debito&"', '"&frm_master_credito&"', '"&frm_master_parc_adm&"', '"&frm_master_parc_2x&"', '"&frm_master_parc_3x&"', '"&frm_master_parc_4x&"', '"&frm_master_parc_5x&"', '"&frm_master_parc_6x&"', '"&frm_master_subtotal&"', '"&frm_visa_ticket&"', '"&frm_visa_debito&"', '"&frm_visa_credito&"', '"&frm_visa_parc_adm&"', '"&frm_visa_parc_2x&"', '"&frm_visa_parc_3x&"', '"&frm_visa_parc_4x&"', '"&frm_visa_parc_5x&"', '"&frm_visa_parc_6x&"', '"&frm_visa_subtotal&"', '"&frm_hiper_ticket&"', '"&frm_hiper_credito&"', '"&frm_hiper_parc_adm&"', '"&frm_hiper_parc_2x&"', '"&frm_hiper_parc_3x&"', '"&frm_hiper_parc_4x&"', '"&frm_hiper_parc_5x&"', '"&frm_hiper_parc_6x&"', '"&frm_hiper_subtotal&"', '"&frm_american_ticket&"', '"&frm_american_credito&"', '"&frm_american_parc_adm&"', '"&frm_american_parc_2x&"', '"&frm_american_parc_3x&"', '"&frm_american_parc_4x&"', '"&frm_american_parc_5x&"', '"&frm_american_parc_6x&"', '"&frm_american_subtotal&"', '"&frm_vale_produto&"', '"&frm_vale_cliente&"', '"&frm_convenio&"', '"&frm_vale_func_loja&"', '"&frm_vale_func_folha&"', '"&sobra_falta&"', '"&frm_comanda&"', '"&frm_total&"', '"&sData&"', '"&hora&"')"
conexao01.Execute(sql)
%>

</td>
								</tr>
							</table></td>
						  </tr>
						  <tr>
							<td height="19" valign="top" class="texto8bold"><table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
								<tr>
								  <td>
									  </td>
								</tr>
							  </table>
							  
							  </td>
						  </tr>
						  <tr>
							<td valign="top" height="10"></td>
						  </tr>
						</table>
					  
						<table width="100%" border="0" cellspacing="0" cellpadding="2">
						  <tr>
							<td><hr size="1" color="#CCCCCC">
							</td>
						  </tr>
						  <tr>
							<td valign="top"> </td>
						  </tr>
					  </table></td>
				  </tr>
			  </table></td>
			</tr>
		</table></td>
	  </tr>
	  <tr>
		<td> </td>
	  </tr>
	</table></td>
  </tr>
</table>

 

obrigado pela força

Compartilhar este post


Link para o post
Compartilhar em outros sites

da um response.write na sua outra string SQL, para ver o que esta sendo passada.

Compartilhar este post


Link para o post
Compartilhar em outros sites

da um response.write na sua outra string SQL, para ver o que esta sendo passada.

Bom dia ok, coloquei da seguinte forma o response.write

 

<%
set conexao=server.CreateObject("adodb.connection")
dados_sys = "Provider=sqloledb;Data Source=CM\SQLEXPRESS;Initial Catalog=HB;User Id=sa;Password=123456;"
conexao.open dados_sys

SQL = "SELECT loja_venda_pgto.codigo_filial, loja_venda_pgto.data, loja_venda_pgto.numero_cupom_fiscal, tb_fecha_caixa.codigo_filial, tb_fecha_caixa.data_registro, tb_fecha_caixa.total FROM loja_venda_pgto loja_venda_pgto, tb_fecha_caixa tb_fecha_caixa WHERE loja_venda_pgto.codigo_filial = tb_fecha_caixa.codigo_filial AND loja_venda_pgto.data = tb_fecha_caixa.data_registro ORDER BY loja_venda_pgto.codigo_filial"
Set Dados = Server.CreateObject("ADODB.Recordset")
Dados.Open SQL, conexao, 3 

'#########################################
response.write SQL:response.end
'#########################################
%>

<% =Dados("codigo_filial")%> - <% =Dados("total")%> - <% =dados("data")%>

Apareceu o seguinte erro:

 

Microsoft OLE DB Provider for SQL Server erro '80040e07'

 

The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

 

/teste4.asp, line 10

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você tem que dar o response.write antes da linha:

Dados.Open SQL, conexao, 3

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você tem que dar o response.write antes da linha:

Dados.Open SQL, conexao, 3

 

SQL = "SELECT loja_venda_pgto.codigo_filial, loja_venda_pgto.data, loja_venda_pgto.numero_cupom_fiscal, tb_fecha_caixa.codigo_filial, tb_fecha_caixa.data_registro, tb_fecha_caixa.total FROM loja_venda_pgto loja_venda_pgto, tb_fecha_caixa tb_fecha_caixa WHERE loja_venda_pgto.codigo_filial = tb_fecha_caixa.codigo_filial AND loja_venda_pgto.data = tb_fecha_caixa.data_registro ORDER BY loja_venda_pgto.codigo_filial"
Set Dados = Server.CreateObject("ADODB.Recordset")
response.write SQL:response.end
Dados.Open SQL, conexao, 3

apareceu a seguinte mensagem:

 

Microsoft OLE DB Provider for SQL Server erro '80004005'

 

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado.

 

/teste4.asp, line 4

Compartilhar este post


Link para o post
Compartilhar em outros sites

Outro erro totalmente diferente.

 

Qual é a linha 4?

Compartilhar este post


Link para o post
Compartilhar em outros sites

da uma olhada aki, pode te ajudar

Compartilhar este post


Link para o post
Compartilhar em outros sites

Outro erro totalmente diferente.

 

Qual é a linha 4?

 

 

<%

set conexao=server.CreateObject("adodb.connection")

dados_sys = "Provider=sqloledb;Data Source=CM\SQLEXPRESS;Initial Catalog=HB;User Id=sa;Password=123456;"

conexao.open dados_sys

 

a linha quatro está em negrigo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Agora você está com erro na conexão com o banco de dados.

 

Verifica o link que o Xan postou, e poste o resultado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu já verifiquei e não consta nada semelhante.

 

Estou desesperado não tenho nem ideia de como fazer isso.... o sistema empacou nesse processo...

 

 

Valew galera

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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