В продолжение темы об установке счетчика

[doober]

Всем доброго времени суток

Есть программа.В ней использую файл BASA.mdb для хранения данных.
В начале года архивирую файл,очищаю таблицу "Zakaz" ,и необходимо в ней установить начальное показание счетчика 100
Сжимаю базу таким образом

  Sub Sgatie(ByVal StaRFile As String)
    
        If StaRFile.Length <> 0 Then

            Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                                    StaRFile & ";"
            Dim dConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                                     temp & "Temp.mdb" & ";"
            Dim jro As New JRO.JetEngine
                '///Сжатие
                jro.CompactDatabase(sConn, dConn)

                FileCopy(temp & "Temp.mdb", StaRFile)

                Kill(temp & "Temp.mdb")

                jro = Nothing
        End If
    End Sub

в базе есть макрос от Евгения Тесленко на установку счетчика

Sub AddCounter()
Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("Zakaz")
    rs.AddNew
    rs![Заказ] = 100
    rs.Update
End Sub

после сжатия мне его необходимо выполнить (запустить со своей программы)У клиента Access не установлен.
Подскажите,каким образом дать команду на выполнение макроса если это возможно.

[Teslenko_EA]

Здравствуйте Сергей.
используемая Вами процедура AddCounter, будет работать в любой VB(A) конструкции, достаточно к проекту подключить библиотеку DAO (для версии БД А2000-А2003 DAO 3.6)
сжатие БД так же можно выполнять используя FSO:

Public Function compactDbFSO(sDBFullPath$)
On Error Resume Next
Dim strTempFile$, objFileSystem As Object
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
  strTempFile = Left(sDBFullPath, Len(sDBFullPath) - Len(Dir(sDBFullPath))) + objFileSystem.GetTempName
  DBEngine.CompactDatabase sDBFullPath, strTempFile
  objFileSystem.CopyFile strTempFile, sDBFullPath, True
  Kill strTempFile
  Set objFileSystem = Nothing
End Function

Евгений.

[Teslenko_EA]

дополнение: CurrentDb - обращение к БД из MS Access, замените подобной конструкцией:

Dim db As DAO.Database  
Set db = OpenDatabase(<PathDB>)
Set rs = db.OpenRecordset(...

Евгений.

[doober]

Спасибо Евгений за ссылку на DAO,я почему то считал ADODB и DAO
близнецами.Все получилось.Синтаксис у меня немного не токой,но главное идея

    Protected Friend Sub AddCounter()
        Dim dof As dao.Database
        Dim rs As dao.Recordset
        Dim f = New dao.DBEngine
        dof = f.OpenDatabase(Application.StartupPath & "\BASA.mdb")
        rs = dof.OpenRecordset("Zakaz")
        rs.AddNew()
        rs.Fields("Заказ").Value = 100
        rs.Update()
    End Sub