| Вопрос: DBEngine.CompactDataBase | Добавлено: 08.01.06 22:14 |
Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 |
| А в ADO нет что нибуть типа DBEngine.CompactDataBase? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #1 | Добавлено: 09.01.06 05:09 |
|
Насколько мне известно, нет. Нужно использовать JRO, в ссылках подключить Microsoft Jet and Replication Objects 2.6 Library. А потом примерно так:
Private Sub CompactDB()
Dim CompactDB As New JRO.JetEngine Dim sOld As String Dim sTemp As String Dim sProv As String sOld = sPath 'путь к базе sTemp = Replace(sOld, ".mdb", "TMP.mdb", 1, 1) If cnn.State <> 0 Then 'база должна быть обязательно закрыта 'по этому лучше делать при выгрузке программы cnn.Close Set cnn = Nothing End If sProv = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " CompressionDB.CompactDatabase sProv & strOld, sProv & strTemp Kill sOld Name sTemp As sOld End Sub |
||
|
Номер ответа: 2 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #2 | Добавлено: 09.01.06 12:16 |
| Во, примерно такое я нарыл в инете и не мог понять почему не работает, а причина Microsoft Jet and Replication Objects 2.6 Library. Спасибо! | ||
Страница: 1 |