Campact & repair access db online!

5 svar · 406 visningar · startad av jimpa 13 juni 2005

jimpaMedlem sedan jan. 2001361 inlägg

Frågan13 juni 2005 18:24#1

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

GuffaMedlem sedan juni 2004533 inlägg

13 juni 2005 18:28#2

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

jimpaMedlem sedan jan. 2001361 inlägg

13 juni 2005 19:20#3

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?

GuffaMedlem sedan juni 2004533 inlägg

14 juni 2005 01:21#4

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

devotionMedlem sedan jan. 20013 582 inlägg

15 jan. 2006 08:55#5

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

devotionMedlem sedan jan. 20013 582 inlägg

16 jan. 2006 17:02#6

Ingen som kan förklara hur komprimeringskoden fungerar?

Mvh
Henrik