обнуление счетчика в бд

[Tanuska___:)]

скажите как все же можно обнулить счетчик в базе ..
я тут прописала :
procedure TForm1.CompactAccessDatabase(Databa seName,Password:string);
// сжатие базы данных Access
const
V35='DAO.DBEngine.35';
V36='DAO.DBEngine.36';
var
TempName:array[0..MAX_PATH] of Char; // имя временного файла
TempPath:string; // путь
Name:string;
tmpDAO:_DBEngine;//ругается на тип данных
ClassID:TGUID;
begin
// получим ClassID
try
try
ClassID:=ProgIDToClassID(v35);
except
try
ClassID:=ProgIDToClassID(v36);
except
raise; // что-то неизвестное
end;
end;
// получаем путь для временного файла
TempPath:=ExtractFilePath(DatabaseN ame);
if TempPath='' then TempPath:=GetCurrentDir;
//получаем имя временного файла
GetTempFileName(PChar(TempPath),'md b',0,TempName);
Name:=StrPas(TempName);
DeleteFile(PChar(Name)); // этого файла не должно существовать
if Password<>'' then Password:=';pwd='+Password;
tmpDAO:=CreateComObject(ClassID) as _DBEngine;
tmpDAO.CompactDatabase(DatabaseName ,Name,0,0,Password);
DeleteFile(PChar(DatabaseName)); // удаляем не упакованную базу
RenameFile(Name,DatabaseName); // переименовываем упакованную базу
except
// выдаем сообщение об исключительной ситуации
on E: Exception do
ShowMessage('Ошибка сжатия базы данных'#10#13+e.message);
end;
end;


и в обработчике:
ADOConnection1.Close;
CompactAccessDatabase('Zalob.mdb',' ');
MessageDlg('Сжатие завершено. Перезапустите программу',mtInformation,[mbOk],0);
Application.Terminate;

но у меня ругается еще в разделе
var описания переменных процедуры:
tmpDAO:_DBEngine;
может нужно библиотеку какуюто еще подключить

[Kotofff]

От сюда взяли ? :http://www.delphisources.ru/pages/fa...access_db.html

Там вверху в коментариях посмотри зависимости : windows, SysUtils, Dialogs, DAO2000, ComObj ... и еще для работы с MS Access через ADO в самом компиляторе нужно поставить библиотеку :
Project -> Import Type Library ... выбрать в списке Microsoft Jet and Replication Objects .... и нажать Install...

P.S.
переходите на Absolute Database или Accuracer ... и после этого про mdb будешь вспоминать с улыбкой ...

[Vemer]

ADO это медленно и печально..

Для маленьких проектов Firebird тоже ниче + он бесплатный.. Первая версия дружит с Дельфи через IBX змечательно..