Программное сжатие БД

[gjghjc]

Люди помогите советом!!!!!!!!!!

Нашел вот такой код

Код: Выделить всё

Dim srcString As String
Dim dstString As String
srcString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
dstString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;JET OLEDB:Engine Type=4"
Dim jro As jro.JetEngine     
Set jro = New jro.JetEngine
jro.CompactDatabase srcString, dstString
Set jro = Nothing

Подключаю, как сказано, Microsoft Jet and Replicatuion Objects 2.5 Library, запускаю.

В итоге ошибка "Выполнение операции невозможно; возможности данной версии недоступны в БД старого формата"
Преобразую БД в формат Access 2000 или 2002 все равно выскакивает эта ошибка
Пробую сделать это на базе данных используемой в моей программе
В этом случае код такой

Код: Выделить всё

Dim srcString As String
Dim dstString As String
srcString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Zbase.mdb;Persist Security Info=False;JET OLEDB:database password=1234"
dstString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Zbase.mdb;Persist Security Info=False;JET OLEDB:database password=1234;Engine Type=4"
Dim jro As jro.JetEngine       
Set jro = New jro.JetEngine
jro.CompactDatabase srcString, dstString
Set jro = Nothing

Получается еще интересней "Произошли ошибки во время выполнения многошаговой операции OLE DB. По возможности проверьте значения всех состояний OLE DB. Работа не выполнена."

В связи с этим возникает ряд вопросов

1. Какой еще более новый формат Бд нужен этой хреновине
2. Как проверить значения всех состояний OLE DB.
3. Как все таки сжать БД(Access) программно

Заранее большое спасибо.

[gjghjc]

Ну неужели никто ни разу не сжимал базу кодом!!!!!!!!!
Хелп!!!!!!!!! аж горит!!!!!!!!

[Info_m.be_free]

А чем тебе DAO не нравится?
DBEngine.CompactDatabase

[alibek]

Видимо человек не хочет таскать с собой всю библиотеку только ради сжатия базы данных. gjghjc, с JRO я не работал и по делу подсказать не могу. Мне кажется, ты со строкой коннекта накосячил.

Мне проще, я стараюсь по возможности обходиться DAO 3.6. Для работы на локальной машине она подходит гораздо больше. Хотя может я консерватор

[Info_m.be_free]

гы... тогда у меня тоже вопрос ... а как её таскать за собой эту ДАО 3.6?

[gjghjc]

2alibek если можно пример кода для DAO 3.6. И сразу вопрос а будет ли это дао работать с базой Access 2000.

[RayShade]

Пример кода уже был приведен.

Код: Выделить всё

DBEngine.CompactDatabase

С 2000 Access работать будет.

[gjghjc]

Понял... Пошел пробовать.

[gjghjc]

Пошел.... Попробовал.......
В результате имею еще ряд вопросов
1. Как быть в случае если на базе стоит пароль?
2. Объясните синтаксис DAO.CompactDatabase Source, Destination ,?,?,?
3. Например я хочу сделать так чтобы база сжималась каждый раз когда я выхожу из программы. Вопрос как правильно повесить это на событие Form_Unload. Потому как если я просто вешаю DAO.CompactDatabase на это событие прога ругается мол база открыта таким то пользователем и ты ничего с ней не сделаешь.
(Может лучше сжимать базу при загрузке программы еще до того как прога подключилась к БД)
Заранее спасибо за Ваши МУДРЫЕ советы

[Rainbow]

3. Конечно, ругается. Надо закрыть коннекцию сначала. Ты ее как открывал? Как коннектился к базе?
Если у тебя есть объект коннекции, то MyConnection.Close
2. Если ты не хочешь ничего менять в настройках базы, которую компактишь, то ничего из параметров тебе не нужно. Там можно порядок сортировки поменять (локаль базы), зашифровать данные... В общем, сходи в МСДН. Единственно только, рз у тебя база запаролена, то в последнем параметре укажи ";pwd=CoolPassword". Попробуй, по крайней мере Если хочешь, поменять пароль, то напиши в таком же синтаксисе в 3-м параметре ";pwd=NewPassword"

То есть твой код будет выглядеть так:
DBEngine.CompactDatabase Source, Destination, , ,";pwd=CoolPassword"

1. Ответ уже был.

[gjghjc]

Конект к базе осуществляется примерно так

Это находится в Форм_Лоад

Код: Выделить всё

Set FormName = MainForm
Abon = 1
PathBase = App.Path & "\"

SQLSelect = "SELECT streetid, street "
SQLFrom = "FROM street_base "
SQLOrder = " ORDER BY street "
SQLstr = SQLSelect & SQLFrom & SQLOrder

InitADO

Set DG1.DataSource = Adodc1
Do Until Adodc1.Recordset.EOF
cboStreetName.AddItem Adodc1.Recordset.Fields("Street")
cboStreetName.ItemData(cboStreetName.NewIndex) = Adodc1.Recordset.Fields("StreetId")
Adodc1.Recordset.MoveNext
Loop
cmdNewClient.Caption = "Добавить нового" & vbCrLf & "абонента в базу"

If Day(Now) > 20 Then Mname = MonthName(Month(Now), False): Mname1 = MonthName(Month(Now) - 1, False) Else Mname = MonthName(Month(Now) - 1, False): Mname1 = MonthName(Month(Now) - 2, False)
MainForm.mnuOne.Caption = "За " & Mname
MainForm.mnuTwo.Caption = "За " & Mname1


Код: Выделить всё

Public Sub InitADO()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathBase & "StreetBase.mdb;Persist Security Info=False;JET OLEDB:database password=1234"
.CommandType = adCmdText
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.RecordSource = SQLstr
.Refresh
End With
End Sub


За ответ на вопрос №2 большое спасибо приду домой попробую

[Rainbow]

Ага. Значит коннекцию у тебя сам контрол adodc открывает. Есть предположение, что закроет он ее, когда разрушится. А разрушается он после Form_Unload. Попробуй сжатие базы повесить на Form_Terminate. Только не обращайся к контролам формы здесь, а то форма обратно загрузится.

А вообще, я бы не доверяла в таких вещах VB. Я бы создала глобальный объект коннекции (ADODB.Connection) и с ним бы работала.

Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathBase & "StreetBase.mdb;Persist Security Info=False;JET OLEDB:database password=1234"
cnn.CursorLocation = adUseClient
cnn.Open

Тогда в нужный момент можно выполнить cnn.Close.

Adodc инициализировала бы рекордсетом.

[gjghjc]

Adodc инициализировала бы рекордсетом.

Немного непонятно. Если можно кусочек кода

[Rainbow]

Да пожалуйста!

Код: Выделить всё

Dim rst As New ADODB.Recordset
rst.Open "Select * from Employees", cnn, adOpenStatic, adLockOptimistic

Set Adodc1.Recordset = rst


А вообще, на Form_Terminate сжатие работает

[gjghjc]

2Rainbow Да на Form_Terminate сжатие работает просто на УРА БОЛЬШОЕ спасибо за помощь.