Ir para conteúdo

POWERED BY:

Arquivado

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

valsilvinha

Erro em ASP

Por , em ASP Clássico

Recommended Posts

valsilvinha    0

valsilvinha
Postado

Pessoas, me ajudem!

 

Está dando o seguinte erro:

 

error '80040e10'

 

No value given for one or more required parameters.

 

/formularios2/servicos/lista_pendencias.asp, line 45

 

A linha 45 é esta:

 

rs.Open SQL, conexao, 3,3

Set rs = conexao.execute(SQL)

%>

 

É um formulário. Todos os dados já foram preenchidos e esta página deve apenas listar as pendencias. Mas tá dando erro.

 

O código todo é:

 

<!--#include file="conexao1.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")

str_id = trim(request.querystring("id"))

select case(str_id)

	   case "1"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D WHERE S.DEPARTAMENTO = D.CODDEPTO AND S.DEPARTAMENTO= 1 and S.status = 0"
	   case "2"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 2 and  S.status = 0"
	   case "3"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 3 and  S.status = 0"
	   
	   case "4"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 4 and  S.status = 0"
	   
	   case "5"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 5 and  S.status = 0"
	   
	   case "6"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 6 and  S.status = 0"
	   
	   case "7"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 7 and  S.status = 0"
	   
	   case "8"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 8 and  S.status = 0"
	   
	   case "9"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 9 and  S.status = 0"
	   
	   case "10"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 10 and  S.status = 0"
	   
	   case "11"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 11 and  S.status = 0"
	   
		case "12"
	   SQL = "SELECT * FROM SERVICOS S, DEPARTAMENTO D where S.DEPARTAMENTO = D.CODDEPTO AND S.Departamento= 12 and  S.status = 0"
	   
end select

rs.Open SQL, conexao, 3,3
Set rs = conexao.execute(SQL)
%>
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
	
}
body
{ background-color:#CCCCCC;
border-width:medium


}
-->
</style>

	
<table width="80%" border="0" cellspacing="3" cellpadding="3" bgcolor="#FFFFFF" align="center">
<tr> <td colspan="5"><img src="../../formularios/image/logotipoweb.jpg" alt="logo" longdesc="http://src=http://172.19.0.10/formularios/image/logotipoweb.jpg" /> </td></tr>
  <tr bgcolor="#CC0000"> 
	<td bgcolor="#df0305"><span class="style1">Departamento</span></td>
	<td bgcolor="#df0305"><span class="style1">Funcionário</span></td>
	<td bgcolor="#DF0305"><span class="style1">Serviço</span></td>
	<td bgcolor="#df0305"><div align="center"><span class="style1"> Visualizar </span></div></td>
  </tr>
  <%
while not rs.eof
	%>
  <tr> 
	<td><%=rs("D.departamento")%></td>
	<td><%=rs("Funcionario")%></td>
	<td><%=rs("Servico")%></td>
	<td align="center"><a href="../servicos/exib_servicos.asp?id=<%=rs("codigo")%>"><img src="http://172.19.0.10/formularios/image/lupa_so.gif" border="0" /></a>     </td>
  </tr>
  <%
	rs.MoveNext
wend
%>
</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

só de teste:

 

faz assim para todos:

 

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

e retira essa linha:

rs.Open SQL, conexao, 3,3

deixa só a de baixo

Compartilhar este post

Link para o post
Compartilhar em outros sites

valsilvinha    0

valsilvinha
Postado

Deu o seguinte erro quando executo a página diretamente:

 

'80040e0c'

 

Command text was not set for the command object.

 

/formularios2/servicos/lista_pendencias.asp, line 47

Compartilhar este post

Link para o post
Compartilhar em outros sites

valsilvinha    0

valsilvinha
Postado

ficou assim:

 

a linha de erro é a vermelha. (Set rs = conexao.execute(SQL)

 

<!--#include file="conexao1.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")

str_id = trim(request.querystring("id"))

select case(str_id)

	   case "1"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "2"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "3"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "4"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "5"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "6"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "7"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "8"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "9"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "10"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
	   case "11"
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
		
	   case "12"		
	   SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"
	   
end select

Set rs = conexao.execute(SQL)
%>
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
	
}
body
{ background-color:#CCCCCC;
border-width:medium


}
-->
</style>

	
<table width="80%" border="0" cellspacing="3" cellpadding="3" bgcolor="#FFFFFF" align="center">
<tr> <td colspan="5"><img src="../../formularios/image/logotipoweb.jpg" alt="logo" longdesc="http://src=http://172.19.0.10/formularios/image/logotipoweb.jpg" /> </td></tr>
  <tr bgcolor="#CC0000"> 
	<td bgcolor="#df0305"><span class="style1">Departamento</span></td>
	<td bgcolor="#df0305"><span class="style1">Funcionário</span></td>
	<td bgcolor="#DF0305"><span class="style1">Serviço</span></td>
	<td bgcolor="#df0305"><div align="center"><span class="style1"> Visualizar </span></div></td>
  </tr>
  <%
while not rs.eof
	%>
  <tr> 
	<td><%=rs("Departamento.departamento")%></td>
	<td><%=rs("Funcionario")%></td>
	<td><%=rs("Servico")%></td>
	<td align="center"><a href="../../formularios2/servicos/exib_servicos.asp?id=<%=rs("codigo")%>"><img src="http://172.19.0.10/formularios/image/lupa_so.gif" border="0" /></a>	 </td>
  </tr>
  <%
	rs.MoveNext
wend
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

veja agora ai:

 

CODE

<%

Set rs = Server.CreateObject("ADODB.Recordset")

str_id = trim(request.querystring("id"))

select case(str_id)

case 1

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 2

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 3

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 4

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 5

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 6

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 7

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 8

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 9

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 10

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 11

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

case 12

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO WHERE SERVICOS.DEPARTAMENTO = DEPARTAMENTO.CODDEPTO AND SERVICOS.DEPARTAMENTO= '1' and SERVICOS.status = '0'"

Case Else

SQL = "SELECT * FROM SERVICOS, DEPARTAMENTO"

end select

Set rs = conexao.execute(SQL)

%>

 

verifique o nome dos campos para ver se está ok junto com as tabelas!

Compartilhar este post

Link para o post
Compartilhar em outros sites

valsilvinha    0

valsilvinha
Postado

o pior é que está.

 

no primeiro formulário, que vem antes desse, a pessoa preenche todos os dados e tudo salva certinho na tabela SERVICOS.

 

Ai quando o aprovador recebe esta tela, que deveria listar as pendências, dá esse erro. Sendo que <%=rs("Departamento.departamento")%></td>

<td><%=rs("Funcionario")%></td>

<td><%=rs("Servico")%></td>

 

são itens da tabela, sem erros. :-(

Compartilhar este post

Link para o post
Compartilhar em outros sites

valsilvinha    0

valsilvinha
Postado

Bom dia!

 

o cnexão1 tá assim:

 

<%

 

'setando conexao bco de dados

 

DIM conexao

SET conexao = server.createobject ("ADODB.connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\formularios\dados\viagens.mdb;"

 

 

 

%>

 

O banco de dados e o viagens mesmo, a tabela que é SERVICOS.

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