Hola que tal amigos, lo que pasa es que necesito volver los registros a cero, tengo una tabla con el campo clave autoincrementable. Ya he tratado de utilizar una función que hace tiempo me proporcionaron, pero ahora que la quiero utilizar me manda un mensaje de que la tabla que quiero volver los registros a cero, no la puede abrir, y según yo le doy la ruta correcta.
Evento:
Código Delphi
[-]
procedure TForm2.Button1Click(Sender: TObject);
var
direccion:string;
begin
Table3.Active:=true;
Table3.First; if Table3.FieldByName('No_prestamo').AsString<>'' then
begin
Table3.Active:=false;
direccion:='C:\Documents and Settings\César Alberto\Escritorio\Sistema Control_documentos bueno\Control_documentos\B.D\prestamos.db';
SetAutoInc(direccion,0);
MessageDlg('Han sido eliminados todos los registros de los préstamos...', mtInformation, [mbok],0);
close;
end;
end;
Función:
Código Delphi
[-]
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;
Ha, y primero no me marcaba error, y si regresaba el contador de registros a cero, pero no los eliminaba.
Saludos y grácias de antemano.