PDA

Ver la Versión Completa : Como reiniciar un campo autoincrement-Paradox


ginasil
24-06-2004, 20:11:49
Hola,
agradeceria si me pudieran ayudar para saber como o donde buscar información para reiniair un campo autoincrement en una tabla en paradox.
Tengo una tabla en paradox uno de sus campos es autoincrement, cuando borro un registro y adiciono otro, el campo autoincrement sigue sin tener en cuenta que el borrado fue el último.
gracias.

marcoszorrilla
24-06-2004, 20:56:48
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Close;

SetAutoInc('C:\Delphi\Prueba.db',StrtoInt(edit1.text));
Table1.Open;
end;

Procedure SetAutoInc(filename : string; Value : Longint);
var
mystream : tfilestream;
begin
mystream := tfilestream.create(filename,
fmOpenWrite + fmShareExclusive);
try
mystream.Seek(73, soFromBeginning);
mystream.Writebuffer(Value, SizeOf(Value));
finally
mystream.Free;
end;
end;


Un Saludo.

ginasil
24-06-2004, 21:42:17
funciono perfecto, mil gracias