Salve. Sapreste dirmi cortesemente come si compattano i db access in asp.net? Ho cercato un pò su diversi siti, ma trovo sempre e soltanto la soluzione in asp classico, con jro.
![]()
Salve. Sapreste dirmi cortesemente come si compattano i db access in asp.net? Ho cercato un pò su diversi siti, ma trovo sempre e soltanto la soluzione in asp classico, con jro.
![]()
girando qui e la ho trovato questo:
codice:using System; namespace ConsoleApplication5 { class Class1 { static void Main(string[] args) { try { JRO.JetEngine jro = new JRO.JetEngine(); string OldDb = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=<Path_to_your_database>\\nwind.mdb"; string NewDb = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=<Path_to_new_database>\\new_nwind.mdb"; jro.CompactDatabase(OldDb,NewDb); Console.WriteLine("Finished Compacting Database"); } catch(Exception e) { Console.Write("The following error occurred:" + e.Message); } } } }
in Vb.NET
codice:Public Function compDatabase(ByVal dbName As String) As Boolean Dim daoVerweis As New DAO.DBEngine() Try 'compress daoVerweis.CompactDatabase(dbName, getPathname(dbName) & "~tmp.mdb") daoVerweis = Nothing 'delete old version and rename new version Kill(dbName) Rename(getPathname(dbName) & "~tmp.mdb", dbName) ' Rename file. 'set return value compDatabase = True Catch ex As Exception MsgBox("Error while compressing database!" & vbCrLf & vbCrLf & _ ex.Message, MsgBoxStyle.Exclamation + MsgBoxStyle.OKOnly, "Hinweis") compDatabase = False End Try End Function
ci sei riuscito? metteresti il codice online?
Purtroppo non ho ancora avuto il tempo di provare il codice.
Ti faccio sapere al più presto.
ok grazie.
Purtroppo non funziona.Originariamente inviato da Daniele80
ci sei riuscito? metteresti il codice online?![]()
Faccio ancora qualche tentativo, altrimenti lascio la pagina in asp 3.0