Sistema de Compactação de Base dados

[Davide Ricardo 0]

Boas pessoal, Eu queria implementar na administração de um site que tou a fazer, um sistema para compactar a base de dados (access neste momento)...Mas infelizmente, inda nao encontrei nda que funcionasse.. Já vi aqui no fórum DOIS exemplos, mas não os consegui por a funkar..Se puderem ajudar, agradecia imensoAbraços

[Davide Ricardo 0]

Pessoal, encontrei este script..mas o problema é que não consigo colocá-lo a funcionar quando as bd's tem password...se puderem ajudar agradecia..

Outra coisa: não há modo do caminho da BD ficar predefinido..como fazemos na parte conexão..pk a página vai p um servidor não fica com o caminho C:\sdadsds\wdsadsa.mdb... da p mudar isso certo?como?

 

ai vai:

 

<%'Dimension variablesDim objJetEngine  'Holds the jet database engine objectDim objFSO	   'Holds the FSO objectDim strCompactDB  'Holds the destination of the compacted databasedim strDbPathAndNamestrDbPathAndName = "D:\caminhodabd\basedados.mdb"'Create an intence of the FSO objectSet objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Back up the databaseobjFSO.CopyFile strDbPathAndName, Replace(strDbPathAndName, ".mdb", "-backup.mdb", 1, -1, 1)	Response.Write("<li>Base de dados copiada para:<br/><b>" & Replace(strDbPathAndName, ".mdb", "-backup.mdb", 1, -1, 1) & "</b><br /><br /></li>")'Create an intence of the JET engine objectSet objJetEngine = Server.CreateObject("JRO.JetEngine")'Get the destination and name of the compacted databasestrCompactDB = Replace(strDbPathAndName, ".mdb", "-tmp.mdb", 1, -1, 1)'Compact databaseobjJetEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDbPathAndName, "; JET OLEDB:Database Password=aminhapass; Persist Security Info=False; Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strCompactDB	'Display text that new compact db is createdResponse.Write("<li>Nova base dados compactada:-<br/><b>" & strCompactDB & "</b><br /><br /></li>")	'Release Jet objectSet objJetEngine = Nothing	'Delete old databaseobjFSO.DeleteFile strDbPathAndName	'Display text that that old db is deletedResponse.Write("<li>Base dados descompactada excluída:-<br/><b>" & strDbPathAndName & "</b><br /><br /></li>")	'Rename temporary database to old nameobjFSO.MoveFile strCompactDB, strDbPathAndName	'Display text that that old db is deletedResponse.Write("<li>Renomeando base dados de::-<br/><b>" & strCompactDB & "</b><br />para:-<br /><b>" & strDbPathAndName & "</b><br /><br /></li>")	'Release FSO objectSet objFSO = Nothing	Response.Write("Base dados compactada e reparada")%><center><br><br><a href=admin.asp>voltar à página de administração</a></center></body></html>

[Roney 0]

Não manjo de Acess, mas na string de conexão não estaria faltando o login name?abs,

[Davide Ricardo 0]

nops..não é preciso isso..pk no ficheiro conectar eu faço praticamente a mesma coisa..e não utilizo nada de login name..

[Davide Ricardo 0]

Então pessoal, não conseguem soluccionar este problema que aparenta ser de Conexão à BD?Ajudem se puderem.,.,

[jrcardozo 4]

para caminho do banco use:

 

strDbPathAndName = server.mappath("basedados.mdb")

 

para usar senha e usuario proceda conforme orientações no site http://www.connectionstrings.com/

[Davide Ricardo 0]

obrigado..mas continua a dar o mesmo erro...nesta linha:

objJetEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDbPathAndName, "; JET OLEDB:Database Password=pass; Persist Security Info=False; Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strCompactDB

eu axo que pode ser, por causa de eu tentar ligar dois DATA SOURCE's na mesma string..não..ou será que tenho que introduzir na mesma string, duas vezes a mesma password?