Jump to content
Fórum Script Brasil
  • 0

Erro De Atualização / Inclusão


acfelipesilva
 Share

Question

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 [email protected]_OriCon ,[email protected]_GesDir,[email protected]_GesGer            
     ,[email protected]_GesAg ,[email protected]_DatIni ,[email protected]_DatFim ,[email protected]_Obj            
     ,[email protected]_Sta ,[email protected]_datuma ,vchAdv_Jurisdicao  [email protected]_Jurisdicao ,[email protected]                
   where [email protected]_codigo and [email protected]_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

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...