Erro De Atualização / Inclusão

acfelipesilva · Julho 23, 2007

Olá Gente,

Estou tentando atualizar meus dados através de páginas asp com BD SQl Server, mas toda vez que tento aparece o erro abaixo:

Número do erro: -2147217908

Descrição fornecida: Command text was not set for the command object.

Peço a vocês que possuem muito mais experiência, pois eu nunca havia me deparado com uma situação destas antes, postei os fontes das páginas e da stored procedure, para ver se vocês podem me dar uma luz...

Grato a todos!

cadastroterceirizado.asp

<%
response.cookies("id").expires = DateAdd("d",0,Now)
response.expires=0 'vence instantaneamente 
Response.CacheControl = "Private"

Dim sql
sqlADV = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from sapj2000..vw_advogados_terc where ai_nivel in (2,3) order by at_nome"

set objCmm  = CreateObject("ADODB.Connection")
set sqlC  = server.CreateObject("ADODB.Recordset")

objCmm.Open  Application("strConn")

SET sqlC = objCmm.Execute (sqlADV)

codigo = request("codadv")
numContrato = Request("numcontrato")

If request("codadv") <> "0" and request("codadv")<>""  then 
    codigo = request("codadv")
    stQuery = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from tbadvogados where ai_Codigo = " & codigo
    SET obRS = objCmm.Execute (stQuery)
 ai_Codigo  = obRS("ai_CODIGO")
 at_END     = obRS("at_END")
 at_UF      = obRS("at_UF")
 at_CEP     = obRS("at_CEP")
 at_TEL_FAX = obRS("at_TEL_FAX")
 at_CID     = obRS("at_CID")   
 controle="2"

else

   ai_Codigo  = ""
   at_END     = ""
   at_UF      = ""
   at_CEP     = ""
   at_TEL_FAX = ""
   at_CID     = ""
   controle="1"
 End if    

 if numContrato <> "" and numContrato <> "0"  then
    stQuery2 = "ConsultaContrato " & Codigo &  " , " & numContrato  

    set obRS2  = server.CreateObject("ADODB.Recordset")
    SET obRS2 = objCmm.Execute (stQuery2)
 at_contrato  = obRS2("numadv_contrato")
 at_jurisdicao = obRS2("vchAdv_Jurisdicao")
 at_objeto = obRS2("vchAdv_Obj")
 at_inicio = obRS2("vchAdv_DatIni")
 at_fim = obRS2("vchAdv_DatFim")
 at_origem= obRS2("vchAdv_OriCon")
 at_dirger= obRS2("vchAdv_GesDir")
 at_gereg =  obRS2("vchAdv_GesGer")
 at_agencia=obRS2("vchAdv_GesAg")

 obRS2.close()
 set obRS2=nothing

else

   at_contrato  = ""
   at_jurisdicao     = ""
   at_objeto      =  ""
   at_inicio=""
   at_fim=""
   at_origem=""
   at_dirger="0"
   at_gereg = "0"
   at_agencia="0"

 End if    
%>


<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>portaljuridico - Portal Juridico</title>
<link rel="stylesheet" type="text/css" href="http://basanet/estilos/css.css">
<link rel="stylesheet" type="text/css" href="estilos/css.css">
<!-- #include file="ValidaData.Inc" -->
</head>
<script language="JavaScript"> 

function txtBoxFormat(objForm, strField, sMask, evtKeyPress) {
     var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla;

     if(document.all) { // Internet Explorer
       nTecla = evtKeyPress.keyCode; }
     else if(document.layers) { // Nestcape
       nTecla = evtKeyPress.which;
     }

     sValue = objForm[strField].value;

     // Limpa todos os caracteres de formatação que
     // já estiverem no campo.
     sValue = sValue.toString().replace( "-", "" );
     sValue = sValue.toString().replace( "-", "" );
     sValue = sValue.toString().replace( ".", "" );
     sValue = sValue.toString().replace( ".", "" );
     sValue = sValue.toString().replace( "/", "" );
     sValue = sValue.toString().replace( "/", "" );
     sValue = sValue.toString().replace( "(", "" );
     sValue = sValue.toString().replace( "(", "" );
     sValue = sValue.toString().replace( ")", "" );
     sValue = sValue.toString().replace( ")", "" );
     sValue = sValue.toString().replace( " ", "" );
     sValue = sValue.toString().replace( " ", "" );
     fldLen = sValue.length;
     mskLen = sMask.length;

     i = 0;
     nCount = 0;
     sCod = "";
     mskLen = fldLen;

     while (i <= mskLen) {
       bolMask = ((sMask.charAt(i) == "-") || (sMask.charAt(i) == ".") || (sMask.charAt(i) == "/"))
       bolMask = bolMask || ((sMask.charAt(i) == "(") || (sMask.charAt(i) == ")") || (sMask.charAt(i) == " "))

       if (bolMask) {
         sCod += sMask.charAt(i);
         mskLen++; }
       else {
         sCod += sValue.charAt(nCount);
         nCount++;
       }

       i++;
     }

     objForm[strField].value = sCod;

     if (nTecla != 8) { // backspace
       if (sMask.charAt(i-1) == "9") { // apenas números...
         return ((nTecla > 47) && (nTecla < 58)); } // números de 0 a 9
       else { // qualquer caracter...
         return true;
       } }
     else {
       return true;
     }
   }
//Fim da Função Máscaras Gerais
</script>
<script language="vb script:buscarAdvogado2()">
    <option selected value="0">Selecione um Nome</option>
   <%while not sqlC.EOF
      if codadv <> "0" Then
     if trim(sqlC("ai_CODIGO")) = trim(ai_CODIGO) Then%>
              <option selected value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option><%
           else%>
              <option value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option><%
           end if
        else%>
            <option value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option>                    
      <%end if
      sqlC.moveNext
   wend%>    
  </select>
  </td>
 </tr>
</table>
<br>
<table width="540" class="borda" align="center" border="0">
 <tr>
  <td width="140"><font class="textoss">
   Endereço:</font>
  </td>
  <td align="left" colspan="5"><input name="endereco" type="text" class="textoss" id="endereco" size="60" maxlength="80" readonly value="<%=at_end%>">
  </td>
 </tr>
 <tr>
  <td width="140"><font class="textoss">Cidade:</font></td>
  <td align="left"><input name="cidade" type="text" class="textoss" id="cidade" size="20" maxlength="30" readonly value="<%=at_CID%>"></td>
  <td align="right"><font class="textoss">UF:</font></td>
  <td align="left"><input name="UF" type="text" class="textoss" id="UF" size="2" maxlength="2" readonly value="<%=at_uf%>"></td>        
 </tr>
 <tr>
  <td align="left" width="140"><font class="textoss">CEP:</font></td>
  <td align="left"><input name="cep" type="text" class="textoss" id="cep" size="8" maxlength="8" readonly value="<%=at_cep%>"></td>  
 </tr>
 <tr>
  <td align="left" width="140"><font class="textoss">Tel / Fax:</font></td>
  <td align="left"><input name="tel" type="text" class="textoss" id="tel" size="25" maxlength="25" readonly value="<%=at_TEL_FAX%>"></td>  
 </tr>
</table>

<br>


<%

'Response.write "controle: " & "-" & controle & len(controle)


if controle= " " or len(controle)= 0 or controle= "2" then
'if controle= "0" or len(controle)= 0 then

%>
<div id="carregando" align="center">
<table width="540" class="borda" align="center" border="0">
    <tr>
  <td width="140"><font class="textoss">
   Origem do Contrato:</font>
  </td>
  <td align="left"><select name="origem" id="origem">
      <option selected value="">Selecione</option>
      <option value="CREDENCIADOS">Credenciado</option>
      <option value="DIRETAS">Contratação Direta</option>    
      <option value="EXTRAJUDICIAIS">Cobrança Extrajudicial</option>        
      <option value="LICITADOS">Contratação Licitação</option>                
    </select>
    <script>document.advogados.origem.value="<%=at_origem%>";</script>

  </td>

  <td rowspan="7" width="10">&nbsp;
  </td>
 </tr>
 <tr>
  <td width="140"><font class="textoss">
   Número do Contrato:</font>
  </td>
  <td align="left"><input name="numcontrato" type="text" class="textoss" id="numcontrato" size="20" maxlength="30" OnKeyPress="vb script:Valida_data(iniciovig,iniciovig,'','','','')" value="<%=at_inicio%>" title="Inicio">
         </td>
        </tr>
        <tr>
         <td width="120" align="center"><font class="textoss">Término:</font>
         </td>
         <td align="left"><input name="fimvig" type="text" class="textoss" id="fimvig" size="10" onKeyPress="return txtBoxFormat(document.advogados, 'fimvig', '99/99/9999', event)" maxlength="10" onBlur="java script:Valida_data(fimvig,fimvig,'','','','')" value="<%=at_fim%>" title="Término">
         </td>
        </tr>
        <tr>
         <td width="120" align="center"><font class="textoss">Objeto:</font>
         </td>
        </tr>
        <tr>
         <td colspan="2" align="center">
           <textarea name="objtext" cols="30" rows="4" class="textoss" id="objtext">
           </textarea>
           <script>document.advogados.objtext.value="<%=trim(at_objeto)%>";</script>
         </td>
        </tr>       
    <!--/table-->
<!--/div--> 
<%'end if%>

</table>
<br><div align="center">
 <input type="button" value="Atualizar" onClick="incluir()" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit1" name="submit1" >
 &nbsp;&nbsp;
    <input onClick="reset2()" value="Limpar" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit2" name="submit2" size="20">&nbsp;&nbsp;
    <input type="button" value="Fechar" onClick="self.location='inicial.asp'" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit3" name="submit3">&nbsp;&nbsp;
<br></div>


<!--CADASTRO-->
<table width="600" class="borda" align="center" border="0">
 <tr>
   <td width="100%" ALIGN="CENTER">
     <div style="position:relative; width:600; height:145;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto">&nbsp;<div class="links">
     <table width="84%" border="0" cellspacing="0" cellpadding="0" bgcolor="#Fffffb" height="40">
       <tr> 
         <td height="20" valign="top" width="2%">&nbsp;</td>
        <td height="20" valign="top" width="96%"> 
          <table width="100%" style="border-bottom: 1 solid #999999" class="textosleft">
            <tr bgcolor="#008000"> 
          <td width="40%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b><font class="textoss">Número do Contrato</b></font></td>
          <td width="30%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b>Origem do Contrato:</b></font></td>
       <td width="30%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b>Status do Contrato:</b></font></td>
            </tr>
          </table>
        </td>
       <td height="0" valign="top" width="2%">&nbsp;</td>
      </tr>  
        <tr> 
    <td height="85" valign="top" bgcolor="#Fffffb" width="2%"></td>
    <td height="85" valign="top" bgcolor="#Fffffb" width="50%"> 
     <div style="position:relative; width:100%; height:80; visibility: visible;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto"> 
      <table width="100%" border="0" bgcolor="#Fffffb" cellspacing="0" cellpadding="0">
          <% 
          set listagem = server.CreateObject("ADODB.Recordset")
          if codigo <> "" then
         sql2 = "select top 10 * from tbAdvogado where numAdv_Codigo=" & codigo & "order by dtmAdv_datuma desc"
          else
         sql2 = "select * from tbAdvogado order by dtmAdv_datuma "
          end if

          SET listagem = objCmm.Execute (sql2)
          IF not listagem.EOF then
            CorAtu = "#FFFFFF"
               while not listagem.EOF%>
           <tr bgcolor="<%=CorAtu%>" style="cursor:hand" onMouseOver="java script:this.className='linkover'" onMouseOut="java script:this.className='linkout'">
         <td width="40%" bgcolor="<%=CorAtu%>" class="textosleft" style=" cursor: hand" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value  & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="left"><img border="0" src="images/BtnGridEdit.gif" WIDTH="16" HEIGHT="16">&nbsp;<%=listagem("numAdv_contrato").value%></div></font></td>
         <td class="textoscenter" width="30%" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value  & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="center"><%=listagem("vchAdv_OriCon").value%></div></font></td>
         <td class="textoscenter" width="30%" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value  & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="center"><%=listagem("statusctr").value%></div></font></td>
           <%'codadv
           if CorAtu = "#FFFFFF" then
             CorAtu = "#E9E9E9"
           else
             CorAtu = "#FFFFFF"
           end if
           listagem.MoveNext
           i = i + 1    
           wend
         else
           %> <tr bgcolor="<%=CorAtu%>" border="0">
            <td class="textosleft" width="70%" class="border" bgcolor="#Fffffb">
             <div align="center"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000">O advogado não possui contrato vinculado</font></div>
            </td>
           </tr>
           <% end if
           listagem.Close()
           set listagem=nothing
            %>   
         </table>
        </div>  
      </td>
     </tr>
     </table>
    </div>


 </tr>
</table>





</div>


<%end if%>
<script language="vbscript">
function buscarAdvogado2()
    if document.advogados.Adv.value <> "" then
  navigate("cadastroterceirizado_atualiza.asp?codadv=" & document.advogados.Adv.value)
 end if 
end function

</script>


</form>
</body>
</html>


<%
objCmm.Close()
set objCmm=nothing 
%>

------------------------------------------------------------//--------------------------------------- CadTer_Atualiza.asp

<HTML>
<HEAD>
</HEAD>
<BODY>
<%

Dim UserID, wUserName, wDominio, wUser, oUser
UserID = ""
If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then
UserID = Request.ServerVariables("LOGON_USER")
UserID = LCase(UserID)
 If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then
  Response.Status = "401 Acesso Negado"
  Response.Write ("Negado. Você não está autorizado a este site.")
  Response.End
 Else
  UserID = Replace(UserID, "\", "/")
  If InStr(UserID, "/") < 1 Then
   UserID = "defaultdomain/" & UserID
  End If
 End If
End If
GetName = ""
wUserName = "Usuário não cadastrado"
mudar = Split(UserID, "/")
wDominio = mudar(0)
wUser = mudar(1)
Set oUser = GetObject("WinNT://" & wDominio & "/" & wUser)
wUserName = oUser.FullName
If err.Number <> 0 Then
 err.Clear
 wUserName = "erro - Usuário não cadastrado"
End If


Session("UsuarioLogado")  = wUserName
Session("Login") = UCase(wUser)
Session("Dominio") = UCase(wDominio)


sug_dominio = UCase(wDominio)
login =  UCase(wUser)
sisid="1" on error resume next 
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Dim clipConexao , clipSql, DataNot, ano, mês, dia, foto, foto1, n, Assunto, Manchete, Fonte, Noticia
dim ID_ARQ,ID_TIPOARQ
dim doc_nom,doc_caminho
dim materia
dim tipo_doc
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest  RequestBin 'CAMINHO FÍSICO DA INSERÇÃO DO ARQUIVO
 'pasta= (server.mappath("\"))& "\portaljuridico\arquivos\" 
 'TIPO DO ARQUIVO(WORD,FOTO)
 'contentType = UploadRequest.Item("foto").Item("ContentType") 
 'CAMINHO FÍSICO COMPLETO DO ARQUIVO
 'pega o valor do documento
 'filepathname2 =  UploadRequest.Item("agencia").Item("Value")
'0


'1
 fileEndereco =  UploadRequest.Item("endereco").Item("Value")
 fileCidade =  UploadRequest.Item("cidade").Item("Value")
 fileUf =  UploadRequest.Item("Uf").Item("Value")
 fileCep =  UploadRequest.Item("cep").Item("Value")
 filetel=  UploadRequest.Item("tel").Item("Value")
'2
 fileOrigem =  UploadRequest.Item("origem").Item("Value")
 filenumcontrato =  UploadRequest.Item("numcontrato").Item("Value")
 filedirger =  UploadRequest.Item("dirger").Item("Value")
 filegereg =  UploadRequest.Item("gereg").Item("Value")
 fileAgencia =  UploadRequest.Item("agencia").Item("Value")
 filejurisdicao =  UploadRequest.Item("jurisdicao").Item("Value")
 fileAdv =  UploadRequest.Item("Adv").Item("Value")

 fileIniciovig =  UploadRequest.Item("iniciovig").Item("Value")
 if fileIniciovig="" then 
  fileIniciovig= "17530101"
    else
  fileIniciovig= right(fileIniciovig,4) &   right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 ) 
    end if  


 fileFimvig =  UploadRequest.Item("fimvig").Item("Value")
 if fileFimvig="" then 
  fileFimvig= "17530101"
    else
  fileFimvig= right(fileFimvig,4) &   right(left( fileFimvig ,5 ),2) & left(fileFimvig,2 ) 
    end if  

 fileObjtext =  UploadRequest.Item("objtext").Item("Value")
 filedtastatus = UploadRequest.Item("dtastatus").Item("Value")

 if filegereg= "" then
  filegereg="0"
 end if
 if fileAgencia= "" then
  fileAgencia="0"
 end if

'criando a variavel de conexao
set objCmm = CreateObject("ADODB.Connection")
'criando a variavel do recordset
set sqlC  = server.CreateObject("ADODB.Recordset")
'fazer a minha variavel de conexao receber a conexao do global asa
objCmm.Open     Application("strConn")

if filedirger = "" then 
 filedirger="0"
end if
if filegereg = "" then 
 filegereg="0"
end if  

if fileAgencia = "" then 
 fileAgencia="0"
end if  

if filejurisdicao="" then
filejurisdicao= "0"
end if

sql "exec sp_ATUALIZA_cadctrterceiro  '" & login & "'," & fileAdv & ",'"  & filenumcontrato & "','" & fileOrigem & "','" & filedirger & "' ,'" & filegereg &  "'," & fileAgencia & ",'" & filejurisdicao &"','"  & fileObjtext  & "','" & fileIniciovig  & "','" & fileFimvig  &"','" & filedtastatus & "'"

SET sqlC = objCmm.Execute (sql) 
if objCmm.Errors.Count <> 0 then
      Response.Write "Ocorreu um erro nesta página!<BR>"
      Response.Write "Número do erro: " & Err.number & "<BR>"
      Response.Write "Descrição fornecida: " & Err.Description & "<BR>"
else
      Response.Write "Atualização com Sucesso!"
end if

objCmm.Close()
set objCmm=nothing


%>
 <!--#include file="upload.asp"-->

   </BODY>
</HTML>

-------------------------------------------------------------//------------------------------------------------- stored procedure de atualização - sql server 2000

ALTER PROCEDURE sp_ATUALIZA_cadctrterceiro      
-- Criado por Augusto César            
 @Login varchar (50),            
 @numAdv_codigo int,            
 @numAdv_contrato varchar(50),            
 @vchAdv_OriCon varchar (50) ,            
 @vchAdv_GesDir int,            
 @vchAdv_GesGer int,            
 @vchAdv_GesAg int ,            
 @vchAdv_Jurisdicao varchar(50),            
 @vchAdv_Obj varchar (50) = null    ,         
 @vchAdv_DatIni datetime = '17530101',            
 @vchAdv_DatFim datetime = '17530101',            
 @statusctr varchar (50)          

as set nocount on declare  @dtmAdv_datuma datetime      ,@vchAdv_Sta varchar (50)      

set @dtmAdv_datuma=getdate()            

/* EXECUTO O TESTE, UTILIZANDO IF...ELSE */      
IF @vchAdv_DatFim > @dtmAdv_datuma      
BEGIN SET @statusctr = 'ATIVO'      
END      
ELSE      
 IF @vchAdv_DatFim < @dtmAdv_datuma      
 BEGIN SET @statusctr = 'ENCERRADO'      
END      

BEGIN TRAN      
  BEGIN update tbAdvogado set vchAdv_OriCon=@vchAdv_OriCon ,vchAdv_GesDir=@vchAdv_GesDir,vchAdv_GesGer=@vchAdv_GesGer            
     ,vchAdv_GesAg=@vchAdv_GesAg ,vchAdv_DatIni=@vchAdv_DatIni ,vchAdv_DatFim=@vchAdv_DatFim ,vchAdv_Obj=@vchAdv_Obj            
     ,vchAdv_Sta=@vchAdv_Sta ,dtmAdv_datuma=@dtmAdv_datuma ,vchAdv_Jurisdicao  =@vchAdv_Jurisdicao ,statusctr=@statusctr                
   where numAdv_codigo=@numAdv_codigo and numAdv_contrato=@numAdv_contrato      
  END      
   BEGIN insert into tbMov_Advogado(numAdv_codigo,numAdv_contrato,vchAdv_OriCon,vchAdv_GesDir,vchAdv_GesGer,vchAdv_GesAg,vchAdv_DatIni,vchAdv_DatFim,vchAdv_Obj,vchAdv_Sta,vchAdv_Login,dtmAdv_datuma,vchAdv_Jurisdicao,statusctr) values(@numAdv_codigo,@numAdv_contrato,@vchAdv_OriCon,@vchAdv_GesDir,@vchAdv_GesGer,@vchAdv_GesAg,@vchAdv_DatIni,@vchAdv_DatFim,@vchAdv_Obj,@vchAdv_Sta,@login,@dtmAdv_datuma,@vchAdv_Jurisdicao,@statusctr)      
   END      
    if @@error=0      
     begin commit tran            
     end             
    else            
     begin rollback            
     end

bareta · Julho 24, 2007

qual arquivo e linha do erro?

Entrar

Erro De Atualização / Inclusão

Pergunta

acfelipesilva

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades