Ir para conteúdo

POWERED BY:

Arquivado

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

Martinsrj

[Resolvido] [Erro] DB Provider for ODBC Drivers error '80040e

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

Olá pessoal, boa tarde!

Após ter inserido um If dentro do While:

<% Do While Not rsDados2.Eof %>
                                    <% If rsDados2("posicao_atual") = "Ativado" Then %>  
                                    
                                    <option value="<% = rsDados2("cod_dados") %>"> <%= rsDados2("cod_dados") %> - <%= rsDados2("nome_projeto") %> </option>
                                    <% End If %>
                                    <%
rsDados2.MoveNext
LOOP%>
                                  </select>

Começou a dar o seguinte erro:

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

 

Command text was not set for the command object.

 

/grupo_demanda/PROJETOS/inclusao_descricao.asp, line 26

OBS.: a linha 26 é essa: Set rsDados2 = conbd_gd.Execute(strSQL2)

 

Abraços a todos!

 

<% Option Explicit 
Response.Charset="utf-8"
Response.AddHeader "Content-Type", "text/html; charset=utf-8"
%>
<% If session("nivel_acesso") = "" Then
  Response.Write "Você não está logado!"
' Response.End
End If
If session("nivel_acesso") = 1 Then
%>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsDados, rsDados2, strSQL, strSQL2, var_nomeprojeto, var_cod_dados, rs_Dados
strSQL = "SELECT * FROM tab_dadosprojeto"
'strSQL = strSQL & " WHERE posicao_atual = 'Ativado'"
strSQL = strSQL & " order by data desc"

strSQL = "SELECT * FROM tab_dadosprojeto"
'strSQL = strSQL & " WHERE posicao_atual = 'Ativado'"
strSQL = strSQL & " order by data desc"


Call AbreConexao

Set rsDados = conbd_gd.Execute(strSQL)
Set rsDados2 = conbd_gd.Execute(strSQL2)

%>
restante do código:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Gerência de Serviços de TI</title>

<link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" />

<style type="text/css">
<!--
body {
	margin-left: 0px;
}
-->
</style>
<script type="text/javascript">
<!--
function MM_validateForm() { //v4.0
  if (document.getElementById){
    var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
    for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=document.getElementById(args[i]);
      if (val) { nm=val.name; if ((val=val.value)!="") {
        if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
          if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
        } else if (test!='R') { num = parseFloat(val);
          if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
          if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
            min=test.substring(8,p); max=test.substring(p+1);
            if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
      } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' \n'; }
    } if (errors) alert('Um dos campos abaixo não foi preenchido:\n'+errors);
    document.MM_returnValue = (errors == '');
} }
//-->
</script>
</head>

<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="topo.asp"--></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#f5f5f5"><div align="center"> <br />
          <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
            <tr>
              <td height="200" valign="top" bgcolor="#FFFFFF"><div align="center"> <br />
                  <table width="98%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="67%" height="20"><span class="style2">Inclusão das Decrições de Atividades 
                      <%
Else 'Curioso
%>
  <a href="projetos.asp">Consultar Projeto</a> 
<%
End If
%>
<%
If session("nivel_acesso") <> 1 Then 
  Response.Write "Você não tem autorização para ver esta página!"
  Response.End
End If
%>
                      </span></td>
                      <td width="33%"><div align="right"><!--#include file="menu.asp"--></div></td>
                    </tr>
                  </table>
                  <br />
                  <table width="99%" border="0" cellspacing="0" cellpadding="0">
                    <form action="ins.descprojeto.asp" method="post" name="inclusao" id="inclusao">
                      <tr>
                        <td valign="top"><table width="100%" border="0" cellspacing="5" cellpadding="0">
                            <tr>
                              <td height="35" bgcolor="f4f4f4" class="style3"> </td>
                              <td bgcolor="f4f4f4"><select name="txt_codprojeto" size="1" >
                                <option>Codigo do Projeto: </option>
                                <% Do While Not rsDados.Eof %>
                                <option value="<% = rsDados("cod_dados")%>"> <%=rsDados("cod_dados")%> </option>
                                <%
rsDados.MoveNext
LOOP%>
                              </select>
                                <%
Set rsDados=nothing 
'rsDados.Close
'Call FechaConexao
%>
                              <select name="txt_nomeprojeto" size="1" >
                                    <option>Nao sabe o codigo, clique aqui: </option>
                                    <% Do While Not rsDados2.Eof %>
                                    <% If rsDados2("posicao_atual") = "Ativado" Then %>  
                                    
                                    <option value="<% = rsDados2("cod_dados") %>"> <%= rsDados2("cod_dados") %> - <%= rsDados2("nome_projeto") %> </option>
                                    <% End If %>
                                    <%
rsDados2.MoveNext
LOOP%>
                                  </select>
                                  <%
Set rsDados2=nothing 
'rsDados2.Close
'Call FechaConexao
%>                              </td>
                          </tr>
                            <tr>
                              <td width="18%" height="35" bgcolor="f4f4f4" class="style3"><div align="right">Ação:</div></td>
                              <td width="82%" bgcolor="f4f4f4"><label></label>
                                  <textarea name="txt_acao" cols="90" rows="2" class="campocombo" id="txt_acao" onblur="MM_validateForm('txt_acao','','R');return document.MM_returnValue"></textarea>                              </td>
                            </tr>
                            <tr>
                              <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Status:</div></td>
                              <td bgcolor="f4f4f4"><label>
                              <select name="txt_status" size="size"1">
                                    <option>Escolher Status</option>
                                    <option value="Concluido">Concluído</option>
                                    <option value="Em andamento - Atencao">Em andamento - Atenção</option>
                                    <option value="Em andamento - Critico">Em andamento - Crítico</option>
                                    <option value="Em andamento - Normal">Em andamento - Normal</option>
                                    <option value="Nao Iniciado">Não Iniciado</option>
                                    <option value="On-going">On-going</option>
                                  </select>
                              </label></td>
                            </tr>
                            <tr>
                              <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Responsável:</div></td>
                              <td bgcolor="f4f4f4"><input name="txt_responsavel" type="text" class="campocombo" id="txt_prod" onblur="MM_validateForm('txt_prod','','R');return document.MM_returnValue" size="40" /></td>
                            </tr>
                            <tr>
                              <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Data:</div></td>
                              <td bgcolor="f4f4f4"><select name="date_dia" id="text_data">
                                <option>Dia</option>
                                <option value="01">01</option>
                                <option value="02">02</option>
                                <option value="03">03</option>
                                <option value="04">04</option>
                                <option value="05">05</option>
                                <option value="06">06</option>
                                <option value="07">07</option>
                                <option value="08">08</option>
                                <option value="09">09</option>
                                <option value="10">10</option>
                                <option value="11">11</option>
                                <option value="12">12</option>
                                <option value="13">13</option>
                                <option value="14">14</option>
                                <option value="15">15</option>
                                <option value="16">16</option>
                                <option value="17">17</option>
                                <option value="18">18</option>
                                <option value="19">19</option>
                                <option value="20">20</option>
                                <option value="21">21</option>
                                <option value="22">22</option>
                                <option value="23">23</option>
                                <option value="24">24</option>
                                <option value="25">25</option>
                                <option value="26">26</option>
                                <option value="27">27</option>
                                <option value="28">28</option>
                                <option value="29">29</option>
                                <option value="30">30</option>
                                <option value="31">31</option>
                              </select>
                          <label>
                                  <select name="date_mes" id="select2">
                                    <option>Mês</option>
                                    <option value="01">Janeiro</option>
                                    <option value="02">Fevereiro</option>
                                    <option value="03">Marco</option>
                                    <option value="04">Abril</option>
                                    <option value="05">Maio</option>
                                    <option value="06">Junho</option>
                                    <option value="07">Julho</option>
                                    <option value="08">Agosto</option>
                                    <option value="09">Setembro</option>
                                    <option value="10">Outubro</option>
                                    <option value="11">Novembro</option>
                                    <option value="12">Dezembro</option>
                                  </select>
                                  <select name="date_ano" id="select3">
                                    <option>Ano</option>
                                    <option value="2009">2009</option>
                                    <option value="2010">2010</option>
                                    <option value="2011">2011</option>
                                    <option value="2012">2012</option>
                                  </select>
                                </label></td>
                            </tr>
                            <tr>
                              <td height="50" bgcolor="f4f4f4"> </td>
                              <td bgcolor="f4f4f4"><label>
                                <input name="btEnviar" type="submit" class="botao" id="btEnviar" onclick="MM_validateForm('txt_prod','','R','txt_acao','','R');return document.MM_returnValue" value="Cadastrar" />
                                <input type="reset" name="btLimpa" id="btLimpa" class="botao" value="Limpar" />
                              </label></td>
                            </tr>
                        </table></td>
                      </tr>
                    </form>
                  </table>
                  <br />
<br />
                <br />
              
              </div></td>
            </tr>
          </table>
        <br />
    </div></td>
  </tr>
</table><!--#include file="../rodape.asp" -->
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

é verdade campeão

Resolvido!!!!!!!!!!!!!!!!!!

 

Abração 'Humberto Rodrigues'

 

Cadê a variável strSQL2? Eu não achei no código

 

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