Архив форумов ЦИТФорума

[All]

Нужно удалить удаленные записи из dbf.

[Как а пользоваться? SQLCo]

k

[NDim]

hndl := LoadLibrary('odbccp32.DLL');
if hndl then begin
@SQLConfigDataSource := GetProcAddress(hndl, 'SQLConfigDataSource');
if @SQLConfigDataSource = nil then begin
ShowMessage('Can`t get function address')
end else begin
try
//ShowMessage('Сжатие базы ...');
str := 'COMPACT_DB="' + 'c:\base\base.mdb' + '" c:\base\basec.mdb'#0#0;
ret := SQLConfigDataSource(0, 4, PChar('Microsoft Access Driver (*.mdb)'), PChar(str));
if DeleteFile('c:\base\base.mdb') then
RenameFile('c:\base\basec.mdb','c:\base\base.mdb');
except
on e: Exception do begin
ShowMessage('Error: ' + e.Message);
end;
end;
end;
end else
ShowMessage('Can`t load library odbccp32.dll');

[all]

>>hndl := LoadLibrary('odbccp32.DLL');
>> if hndl then begin
>> @SQLConfigDataSource := GetProcAddress(hndl, 'SQLConfigDataSource');
>> if @SQLConfigDataSource = nil then begin
>> ShowMessage('Can`t get function address')
>> end else begin
>> try
>> //ShowMessage('Сжатие базы ...');
>> str := 'COMPACT_DB="' + 'c:asease.mdb' + '" c:aseasec.mdb'#0#0;
>> ret := SQLConfigDataSource(0, 4, PChar('Microsoft Access Driver (*.mdb)'), PChar(str));
>> if DeleteFile('c:asease.mdb') then
>> RenameFile('c:aseasec.mdb','c:asease.mdb');
>> except
>> on e: Exception do begin
>> ShowMessage('Error: ' + e.Message);
>> end;
>> end;
>> end;
>> end else
>> ShowMessage('Can`t load library odbccp32.dll');

[Mike]

Да почти так же, в Бильдере и Дельфи почти все одинаково, язык только отличается, а вобще, тутошний форум не любит С++, он режет тексты, лучше мылом

[Как а пользоваться? SQLCo]

reut@email.ru