FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Borrar clave en tabla paradox
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
__________________
Siempre hay un primer momento para todo. |
#2
|
||||
|
||||
La tabla solamente puede tener una clave, si quieres que a a la aplicación se pude acceder con distintas claves tiens que guardarlas en una tabla debidamente codificadas y al acceder a cada usuario se le solicita su clave si es correcta se le da paso y sino se le impide.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|