none
Compactação DataBase Access RRS feed

  • Pergunta

  • Colegas.

    No código abaixo, está dando um erro de DbEngine não declarado, assim como DoEvents e Name.

    O que pode ser? Será que falta um namespace específico?

    me ajudem por favor.

    <%@ import Namespace="Microsoft.VisualBasic" %>

    <%@ Page Language="vb"%>

    <script runat="server">

    '===================

    'COMPACT DATABASE

    '===================

    Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)

    Dim sDBPATH As String, sDBNAME As String, sDB As String, sDBtmp As String

    Dim sDBFILE As String

    sDBFILE = "d:\inetpub\wwwroot\taveira\notas.mdb"

    sDBNAME = sDBFILE 'extrapulate the file name

    Do While InStr(1, sDBNAME, "\") > 0

    sDBNAME = Right(sDBNAME, Len(sDBNAME) - InStr(1, sDBNAME, "\"))

    Loop

    'get the path name only

    sDBPATH = Left(sDBFILE, Len(sDBFILE) - Len(sDBNAME))

    sDB = sDBPATH & sDBNAME

    sDBtmp = sDBPATH & "tmp" & sDBNAME

    'Call the statement to execute compact...

    Call DBEngine.CompactDatabase(sDB, sDBtmp)

    'wait for the app to finish

    DoEvents()

    'remove the uncompressed original

    Kill(sDB)

    'rename the compressed file to the original to restore for other functions

    Name sDBtmp As sDB

    End Sub

    </script>

    %>

    <html>

    <body>

    </body>

    </html>

    sábado, 14 de outubro de 2006 15:34

Respostas

  • Ola,

    De uma uma olhada onde vocÊ pegou o código assima pois os objetos que estão acusando erro devem ser funções.

    Para que possam funcionar você deverá adicionar as mesmas no seu projeto.

    segunda-feira, 16 de outubro de 2006 11:59

Todas as Respostas

  • Ola,

    De uma uma olhada onde vocÊ pegou o código assima pois os objetos que estão acusando erro devem ser funções.

    Para que possam funcionar você deverá adicionar as mesmas no seu projeto.

    segunda-feira, 16 de outubro de 2006 11:59
  • Valeu Alvaro.

    O problema era a falta de uma referência do ADO no projeto.

    Obrigado.

    Taveira

    segunda-feira, 16 de outubro de 2006 12:32