Command Line Access

[nexes]

I have written a script to back/compact/repair an msaccess db it works
fine however i would like to determine if access successfully compact
and repaired the database. How could i do this?

I am running Access2k

Here is the batch script:

@echo off

copy "w:\l&c\stats\StatsConvert2k.mdb" c:\backups\stats\%date:~-4,
4%%date:~-7, 2%%date:~0,2%StatsConvert2k.mdb

IF ERRORLEVEL = 1 GOTO COPYERR

REM This compacts and repairs the live database
START "" /B /MAX /REALTIME /WAIT
c:\progra~1\micros~3\Office\msaccess.exe
"w:\l&c\stats\StatsConvert2k.mdb" /COMPACT /WRKGRP
c:\progra~1\common~1\system\System.mdw

echo Task complete
@echo %date:~-4, 4%%date:~-7, 2%%date:~0,2% STATS BACKED
UP/COMPACTED/REPAIRED >c:\backups\log.txt
exit

:COPYERR
echo Error making backup compact/repair aborted
echo %date:~-4,4%%date:~-7,2%%date:~0,2% COPY FAILED >>
c:\backups\log.txt

[ManningFan]

I don't understand the question. If it errors out, your log file will
report that.

nexes wrote:

I have written a script to back/compact/repair an msaccess db it works
fine however i would like to determine if access successfully compact
and repaired the database. How could i do this?

I am running Access2k

Here is the batch script:

@echo off

copy "w:\l&c\stats\StatsConvert2k.mdb" c:\backups\stats\%date:~-4,
4%%date:~-7, 2%%date:~0,2%StatsConvert2k.mdb

IF ERRORLEVEL = 1 GOTO COPYERR

REM This compacts and repairs the live database
START "" /B /MAX /REALTIME /WAIT
c:\progra~1\micros~3\Office\msaccess.exe
"w:\l&c\stats\StatsConvert2k.mdb" /COMPACT /WRKGRP
c:\progra~1\common~1\system\System.mdw

echo Task complete
@echo %date:~-4, 4%%date:~-7, 2%%date:~0,2% STATS BACKED
UP/COMPACTED/REPAIRED >c:\backups\log.txt
exit

:COPYERR
echo Error making backup compact/repair aborted
echo %date:~-4,4%%date:~-7,2%%date:~0,2% COPY FAILED >>
c:\backups\log.txt

[nexes]

It only will report on a copy not if access errors for some reason
whenever i try and put an if errorlevel for the compact of the database
it does not show an error if access failed.

ManningFan wrote:

I don't understand the question. If it errors out, your log file will
report that.

nexes wrote:

I have written a script to back/compact/repair an msaccess db it works
fine however i would like to determine if access successfully compact
and repaired the database. How could i do this?

I am running Access2k

Here is the batch script:

@echo off

copy "w:\l&c\stats\StatsConvert2k.mdb" c:\backups\stats\%date:~-4,
4%%date:~-7, 2%%date:~0,2%StatsConvert2k.mdb

IF ERRORLEVEL = 1 GOTO COPYERR

REM This compacts and repairs the live database
START "" /B /MAX /REALTIME /WAIT
c:\progra~1\micros~3\Office\msaccess.exe
"w:\l&c\stats\StatsConvert2k.mdb" /COMPACT /WRKGRP
c:\progra~1\common~1\system\System.mdw

echo Task complete
@echo %date:~-4, 4%%date:~-7, 2%%date:~0,2% STATS BACKED
UP/COMPACTED/REPAIRED >c:\backups\log.txt
exit

:COPYERR
echo Error making backup compact/repair aborted
echo %date:~-4,4%%date:~-7,2%%date:~0,2% COPY FAILED >>
c:\backups\log.txt

[nexes]

Basically i need a way to get an errorlevel from access whenever it
fails to compact

nexes wrote:

It only will report on a copy not if access errors for some reason
whenever i try and put an if errorlevel for the compact of the database
it does not show an error if access failed.

ManningFan wrote:

I don't understand the question. If it errors out, your log file will
report that.

nexes wrote:

I have written a script to back/compact/repair an msaccess db it works
fine however i would like to determine if access successfully compact
and repaired the database. How could i do this?
>
I am running Access2k
>
Here is the batch script:
>
@echo off
>
copy "w:\l&c\stats\StatsConvert2k.mdb" c:\backups\stats\%date:~-4,
4%%date:~-7, 2%%date:~0,2%StatsConvert2k.mdb
>
IF ERRORLEVEL = 1 GOTO COPYERR
>
REM This compacts and repairs the live database
START "" /B /MAX /REALTIME /WAIT
c:\progra~1\micros~3\Office\msaccess.exe
"w:\l&c\stats\StatsConvert2k.mdb" /COMPACT /WRKGRP
c:\progra~1\common~1\system\System.mdw
>
echo Task complete
@echo %date:~-4, 4%%date:~-7, 2%%date:~0,2% STATS BACKED
UP/COMPACTED/REPAIRED >c:\backups\log.txt
exit
>
:COPYERR
echo Error making backup compact/repair aborted
echo %date:~-4,4%%date:~-7,2%%date:~0,2% COPY FAILED >>
c:\backups\log.txt

[Jerry Porter]

I think I would create an mdb that includes the code to do
repair/compact your database. Then call this mdb from your batch file.
That should give you more control over the error handling.

[Lyle Fairfield]

"nexes" <ne******@gmail.comwrote in
news:11**********************@b28g2000cwb.googlegr oups.com:

It only will report on a copy not if access errors for some reason
whenever i try and put an if errorlevel for the compact of the
database it does not show an error if access failed.

ManningFan wrote:

>I don't understand the question. If it errors out, your log file
will report that.

nexes wrote:

I have written a script to back/compact/repair an msaccess db it
works fine however i would like to determine if access successfully
compact and repaired the database. How could i do this?

I am running Access2k

Here is the batch script:

@echo off

copy "w:\l&c\stats\StatsConvert2k.mdb" c:\backups\stats\%date:~-4,
4%%date:~-7, 2%%date:~0,2%StatsConvert2k.mdb

IF ERRORLEVEL = 1 GOTO COPYERR

REM This compacts and repairs the live database
START "" /B /MAX /REALTIME /WAIT
c:\progra~1\micros~3\Office\msaccess.exe
"w:\l&c\stats\StatsConvert2k.mdb" /COMPACT /WRKGRP
c:\progra~1\common~1\system\System.mdw

echo Task complete
@echo %date:~-4, 4%%date:~-7, 2%%date:~0,2% STATS BACKED
UP/COMPACTED/REPAIRED >c:\backups\log.txt
exit

:COPYERR
echo Error making backup compact/repair aborted
echo %date:~-4,4%%date:~-7,2%%date:~0,2% COPY FAILED >>
c:\backups\log.txt

Assuming a modern version of Access I would try something like this more
or less air code:

Public Sub CompactExternalFile(ByVal dbname As String)
Dim a As Access.Application
Dim TempName As String
Set a = New Access.Application
TempName = Replace(dbname, ".", Format(Now(), "YYYYMMDDHHNNSS."))
With a
If .CompactRepair(dbname, TempName, True) Then
Kill dbname
Name TempName As dbname
Else
On Error Resume Next
Kill TempName
On Error GoTo 0
MsgBox "Check logfile", vbCritical, "Compact Failed"
End If
.Quit
End With
Set a = Nothing
End Sub

Sub temp2()
CompactExternalFile "northwind.mdb"
End Sub

--
Lyle Fairfield