[CFPA86]

Hola foro, nuevamente recurro a ustedes, uso este codigo tomado de trucomania (300)...ñ

procedure TForm1.Button1Click(Sender: TObject);

procedure PonClave(Const ADatabase, ATable:string; ClavebiName);
var
ADB :TDataBase;
SaveKC : Boolean;
PdxStruct : CRTblDesc;
begin

with TTable.Create(nil) do
try
DatabaseName := ADatabase;
TableName := ATable;
Exclusive := True;
Open;
ADB := DAtabase;
SaveKC := ADB.KeepConnection;
ADB.KeepConnection := True;
try
Close;
FillChar(PdxStruct,SizeOF(PdxStruct),0);
StrPCopy(PdxStruct.szTblName,ATable);
PdxStruct.bPack := False;
PdxStruct.bProtected:= TRUE;
{Esta es la clave que se pondrá en la tabla}
PdxStruct.szPassword:=Clave;
Check(DbiDoRestructure(ADB.Handle,1,
@PdxStruct,nil,nil,nil,False));
finally
ADB.KeepConnection := SaveKC;
end;
finally
Free;
end;
end;

begin
PonClave('DBDEMOS','BIOLIFE.DB','MiPassword');
end;

mi objetivo es agregarle una nueva clave a una tabla que ya tiene una, dicho codigo la agrega pero borra la clave anterior, que debo de hacele para que no ocurra esto ya que no deseo borrar la clave existente. GRACIAS.

Chaoooooooooooooooooooooooo