Jump to content
Fórum Script Brasil
  • 0

Microsoft Jet Database Engine Error '80004005'


Perk

Question

Tenho um banco de dados Access, apenas para consulta. E dia sim, dia não sempre aparece este erro no momento em que alguém vai fazer a consulta:

Microsoft JET Database Engine error '80004005'

Cannot open database ''. It may not be a database that your application recognizes, or the file may be corrupt.

Ligo no provedor e eles dizem que é um problema de JET, restartam o serviço e tudo volta a funcionar por mais um ou dois dias.

Alguém poderia dar uma luz e dizer o que está acontecendo ?

Grato.

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Taí o código:

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\inetpub\dbpag\consulta\dados.mdb;Persist Security Info=False;"

Conexao.Open

Where = ""

If Not Vazio(Request("nome")) Then

Where = " UCase(Nome) = '" & UCase(Trim(Request("nome"))) & "'"

End If

If Not Vazio(Request("sobrenome")) Then

If Where <> "" Then

  Where = Where & " AND "

End If

Where = Where & " UCase(Sobrenome) = '" & UCase(Trim(Request("Sobrenome"))) & "'"

End If

If Not Vazio(Request("ano")) Then

If Where <> "" Then

  Where = Where & " AND "

End If

Where = Where & " (Chegada >= " & Trim(Request("ano")) & " - 5 AND Chegada <= " & Trim(Request("ano")) & " + 5)"

End If

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

Set rsTemp.ActiveConnection = Conexao

rsTemp.Source = "SELECT * FROM Dados WHERE " & Where & " ORDER BY NOME, CHEGADA"

rsTemp.CursorType = adOpenForwardOnly

rsTemp.CursorLocation = adUseClient

rsTemp.Open

If Not rsTemp.EOF And Not rsTemp.BOF Then

<%

Do While Not RsTemp.EOF

%>

                <TR>

                  <TD bgcolor="#f2f2f2"><A HREF="detalhe.asp?NLIVRO=<% = RsTemp.Fields("NLIVRO") %>&NPAG=<% = RsTemp.Fields("NPAG") %>&FAMILIA=<% = RsTemp.Fields("FAMILIA") %>&NOME=<% = Server.URLEncode(Trim(RsTemp.Fields("Nome") & " " & RsTemp.Fields("Sobrenome"))) %>"><% If Not Vazio(RsTemp.Fields("Nome")) Then Response.Write(RsTemp.Fields("Nome")) Else Response.Write("-------") %></A></TD>

                  <TD bgcolor="#f2f2f2"><% If Not Vazio(RsTemp.Fields("Sobrenome")) Then Response.Write(RsTemp.Fields("Sobrenome")) Else Response.Write("-") %></TD>

                </TR>

<%

  RsTemp.MoveNext

Loop

%>

              </TABLE>

<%

Else

Response.Write("<P><STRONG>Não foi encontrado nenhum registro. Tente novamente.</STRONG></P>")

End If

rsTemp.Close

Set rsTemp.ActiveConnection = Nothing

Set rsTemp = Nothing

Conexao.Close

Set Conexao = Nothing

%>

Link to comment
Share on other sites

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.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...