---
title: "Campact & repair access db online!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/129932-campact-repair-access-db-online"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jimpa"
published: "2005-06-13T18:24:28.000Z"
updated: "2006-01-16T17:02:24.000Z"
replies: 5
views: 423
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/129932-campact-repair-access-db-online"
---

# Campact & repair access db online!

## #1 — jimpa, 2005-06-13T18:24Z

Hej,

Jag använder följande script för komprimera min databas. Vilket fungerar utmärkt. 

```
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		 If objFSO.FileExists(strTmpPath) Then
			Set objEngine = CreateObject("JRO.JetEngine")
				objEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strTmpPath, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strServerPath & "temp.mdb"
		 objFSO.CopyFile strServerPath & "temp.mdb", strTmpPath
		 objFSO.DeleteFile(strServerPath & "temp.mdb")
		Set objFSO = Nothing : Set objEngine = Nothing
```

Problemet är att om jag har en lösenord skyddad databas får jag ett felmeddelande om att "Not a valid password." Jag har provat att lägga till följande

```
objEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strTmpPath, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strServerPath & "temp.mdb;pwd=dbPwd"
```

Men jag får fortfarande samma felmeddelande!
Är det någon som kan se vad jag gör för fel?

Mvh,
Jimmy

Permalänk: https://www.webforum.nu/p/129932

## #2 — Guffa, 2005-06-13T18:28Z

Ange lösenordet på uppkopplingssträngen för den databas som ska komprimeras.

Permalänk: https://www.webforum.nu/p/1630254

## #3 — jimpa, 2005-06-13T19:20Z

Har provat det men det hjälpte!

Det verkar som att det inte funkar på lösenordsskyddad databas?!

Kolla in denna artikel: <http://www.paulsadowski.com/WSH/compactdbs.htm>

Där skriver han att databasen inte får vara lösenordskyddad och refererar till microsofts hemsida för mer information. Men jag kan inte se att dom nämner någonting om att databasen inte får vara lösenordskyddad!! 
Förstår inte varför de då skriver in lösenord i sina exempel?

Permalänk: https://www.webforum.nu/p/1630282

## #4 — Guffa, 2005-06-14T01:21Z

Testa att ange användarnamnet (Admin) också.

Permalänk: https://www.webforum.nu/p/1630407

## #5 — devotion, 2006-01-15T08:55Z

Hej!
Dags att ta upp en gammal tråd...

Någon som kan förklara vad den här koden gör:

```
Set objFSO = CreateObject("Scripting.FileSystemObject")
		 If objFSO.FileExists(strTmpPath) Then
			Set objEngine = CreateObject("JRO.JetEngine")
				objEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strTmpPath, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strServerPath & "temp.mdb"
		 objFSO.CopyFile strServerPath & "temp.mdb", strTmpPath
		 objFSO.DeleteFile(strServerPath & "temp.mdb")
		Set objFSO = Nothing : Set objEngine = Nothing
```

Mvh
Henrik

Permalänk: https://www.webforum.nu/p/1746385

## #6 — devotion, 2006-01-16T17:02Z

Ingen som kan förklara hur komprimeringskoden fungerar?

Mvh
Henrik

Permalänk: https://www.webforum.nu/p/1747224

---

Tråden på webben: https://www.webforum.nu/amne/asp/129932-campact-repair-access-db-online