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

[chegol]

Кто-нибудь может подсказать почему не работает следующая процедура, взял ее как есть из ответов (должна менять пароль у paradox'овской таблицы), но при попытке выполнить ее, выдается ошибка - неверный handle, может в Delphi 7 ее как то по особенному надо использовать, или может кто подскажет как создавать запароленную таблицу:
var
db : TDatabase;
Desc : CRTblDesc;
begin
db := PriceTable.OpenDatabase;
FillChar( Desc, SizeOf( Desc ), #0 );
StrCopy( Desc.szTblName, PChar(PriceTable.TableName));
StrCopy( Desc.szTblType, szParadox );
StrCopy( Desc.szPassword, 'password' );
Desc.bProtected := TRUE;
Check( DbiDoRestructure( db.Handle, 1, @Desc, nil, nil, nil, FALSE ));
end;