Ir para conteúdo

POWERED BY:

Arquivado

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

rem

Microsoft OLE DB Provider for ODBC Drivers error '

Por , em ASP Clássico

Recommended Posts

rem    0

rem
Postado

Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot open the file '(unknown)'. It is already opened exclusively by another user, or you need permission to view its data. /servicos/G_Mudancas/envio1.asp, line 35 Isso ocorre quando clico no botão enviar da minha página.<html><head><title>Gerência de Mudanças</title><meta name="Autor" content="Renata M"><meta name="GENERATOR" content="Microsoft FrontPage 4.0"></head><body background="fundo.gif" bgproperties="fixed" leftmargin="30"><p><img src="barra_foto3.jpg" width="117" height="43"><strong><font face="Verdana"><small>   Infra-Estrutura</small> <small><small><font color="#008080">-------------------------------Gerência de Mudanças</font></small></small></font></strong></p><table border="0" width="99%"> <tr> <td width="100%"><form method="get" action="envio1.asp"> <div align="left"><p> <img src="bolinha.gif" width="11" height="11" alt="bolinha.gif (844 bytes)"> <font color="#FF0000" face="Verdana"><small>Obrigatório preenchimento de todos os campos</small></font></p> </div><table border="0" width="441"> <td width="469"> <table border="0" width="467"> <tr> <td width="343"><small><font face="Verdana"><b>Data:</b></font></small></td> <td width="659"><input type="text" name="Data" size="12"> <font face="Verdana" color="#FF0000"><small><small>(Campo obrigatório)</small></small></font></td> </tr> <tr> <td width="343"><small><font face="Verdana"><b>Analista:</b></font></small> <td width="659"><select> <option value="Selecionar analista">Selecionar analista</option> <%Set conn = Server.CreateObject("ADODB.Connection")conn.Open "g_mudancas"q ="select distinct cod_Analista, analista from analista"set tab = conn.execute(q)while not tab.EOF%> <option value="<%= tab("analista")%>"><%= tab("analista")%></option><%tab.movenextwend%> </select> </select> </td> </tr> </table> <table border="0" width="467"> <tr> <td width="145"><small><font face="Verdana"><b>Area:</b></font></small></td> <td width="308"><select name="area" size="1"> <option value="Selecionar area">Selecionar area</option><%rem Set conn = Server.CreateObject("ADODB.Connection")rem conn.Open "g_mudancas"q ="select distinct codArea, area from area"set tab = conn.execute(q)while not tab.EOF%> <option value="<%= tab("area")%>"><%= tab("area")%></option><%tab.movenextwendtab.closeSet tab = nothing%> </select></td> </tr> </table> <table border="0" width="100%" height="194"> <tr> <td width="18%" height="25"><small><font face="Verdana"><b>Ambiente:</b></font></small></td> <td width="82%" height="25"><select name="Ambiente" size="1"> <option value="Selecionar Ambiente">Selecionar Ambiente</option><%rem Set conn = Server.CreateObject("ADODB.Connection")rem conn.Open "g_mudancas"q ="select distinct codAmbiente, Ambiente from Ambiente"set tab = conn.execute(q)while not tab.EOF%> <option value="<%= tab("Ambiente")%>"><%= tab("Ambiente")%></option><%tab.movenextwendtab.closeSet tab = nothing%> </select></td> </tr> <tr> <td width="18%" height="34"><small><font face="Verdana"><b>Software/Hardware envolvido:</b></font></small></td> <td width="82%" height="34"><input type="text" name="Software/Hardware envolvido" size="42"> <font face="Verdana" color="#FF0000"><small></small></font></td> </tr> <tr> <td width="18%" height="123"><small><font face="Verdana"><b>Motivo da Alteração:</b></font></small></td> <td width="82%" height="123"> <font face="Verdana" color="#FF0000"><small><textarea rows="4" name="S1" cols="36"></textarea></small></font></td> </tr> </table> <p>                                         <input type="submit" value="Enviar" name="Enviar">      <input type="reset" value="Limpar" name="Limpar"></p> </form></table></body>PORQUE ELE CHAMA ESSA PÁGINA ABAIXO: envio1.asp<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><meta name="Author" content="Renata M"><meta name="GENERATOR" content="Microsoft FrontPage 4.0"><title>Pagina de Inclusao do Chamado</title><script LANGUAGE="VBScript"></script><meta name="Microsoft Theme" content="none, default"></head><body leftmargin="30" background="file:///D:/servicos/infraestrutura/Formosa/fundo.gif" bgproperties="fixed"><p><img src="file:///D:/servicos/infraestrutura/Formosa/barra_foto3.jpg" width="117" height="43"><strong><font face="Verdana"><small>   Infra-Estrutura</small> <small><small><font color="#008080">-------------------------------Solicitação de Serviço</font></small></small></font></strong></p><font size="3"><%Dim IPVar%><% login = Lcase(Request.ServerVariables("LOGON_USER")) %><% IPVar=Request.ServerVariables("REMOTE_ADDR") %><% syshora=time() %><% sysdata=date() %><% reqcidade=("SP") %><%Reqnome=Request.QueryString("ANALISTA")AREA=("AREA")Reqdata=request.querystring("DATA")Reqambiente=request.querystring("AMBIENTE")Reqsoftware/hardware envolvido=request.querystring("software/hardware envolvido")Reqmotivo da alteração=request.querystring("motivo da alteração")%><%Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open "G_Mudancas" sql = "UPDATE analista"Set RS = conexao.Execute(sql) set conexao = nothing%></font><font size="2"><%Set DelCoo = Server.CreateObject("ADODB.Connection")DelCoo.Open "infraestrutura"sql = "SELECT cod_analista, analista FROM analista WHERE analista = '"& Reqnome &"' "Set RRS=DelCoo.Execute(sql)%><%Set InfraConn = Server.CreateObject("ADODB.Connection")InfraConn.Open "infraestrutura"MT = "SELECT numero FROM numocor "Set FFF=InfraConn.execute(MT)Num = FFF("numero") + 1Sql = "UPDATE numocor set numero = "& numSet RT = InfraConn.execute(sql)sql = "INSERT INTO solicitacao (numero, login, datainc, horainc, cidade, codusuario, ccusto, servico, sala, IP) VALUES ('"& num &"','"& login &"','"& sysdata &"','"& syshora &"','"& reqcidade &"','"& RRS("codusuario") &"','"& RRS("ccusto") &"','"& Reqservico &"','"& Reqsala &"','"& IPVar &"')"Set RS=InfraConn.Execute(sql) MX = "SELECT numero FROM solicitacao WHERE numero = "& num &" "Set QR=InfraConn.Execute(MX)%></font><p align="center"><strong><font size="2" face="Verdana"><br>Sua solicitação foi enviada à Infra-Estrutura<br></font><font face="Verdana" size="1"><br></font><font size="2" face="Verdana">Número da solicitação:</font></strong><fontsize="2"> </font><font color="#0000FF" face="Verdana" size="2"><big><strong><% = QR("numero") %></strong></big></font><small><fontsize="2"><br></font><b><font face="Verdana" color="#FF0000"><strong>Anote o número da suasolicitação, para consultas posteriores.<p align="center"> <%syshora=time()mudou=0if syshora < #08:00:00# then mudou=1end ifif syshora > #18:00:00# then mudou=1end ifif mudou = 1 thenresponse.write "A Infra Estrutura funciona nos dias úteis das 08:00 horas às 18:00 horas. <br>Seu chamado será atendido no próximo dia útil."end if%></strong></font><font face="Verdana"> </font></b></small></p><table border="1" width="97%" cellspacing="0" cellpadding="0"> <tr> <td width="28%"><font size="2" face="Verdana">Nome:</font></td> <td width="72%"><% =Reqnome %></td> </tr> <tr> <td width="28%"><font size="2" face="Verdana">Área: </font></td> <td width="72%"><% =RRS("area") %></td> </tr> <tr> <td width="28%"><font size="2" face="Verdana">Centro de Custo: </font></td> <td width="72%"><% =RRS("ccusto") %></td> </tr> <tr> <td width="28%"><small><font face="Verdana">Andar e Setor:</font></small></td> <td width="72%"><% =Reqsala %></td> </tr> <tr> <td width="28%"><font size="2" face="Verdana">Ordem de Serviço: </font></td> <td width="72%"><% =Reqservico %></td> </tr></table><font face="Verdana"><b><h2 align="center"><small><small><font face="Verdana"><%InfraConn.closedelcoo.close%> </font></small></small></h2><p><br><a href="infrabh.htm"><img src="../Formosa/back2.gif" border="0"></a></p></b></font></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o arquivo mdb esta aberto em modo de estrutura???

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