Codigo a cero en un BD

[CARSOFT_AR]

Gracias a todos por sus respuestas y perdonen por no haber dicho que tablas estoy usando, estoy usando PARADOX. Quiero borrar los indices porque al instalar el soft en la maquina del usuario no quiero que empiecen por ejemplo con IDCLIENTE = 200, sino que empice con IDCLIENTE = 1; es por eso que quiero modificarlo, se que se puede empezar desde 1 o 0 creando la Base de Datos de vuelta, pero queria ahorrarme ese paso. MUCHAS GRACIAS, y si tienen la respuesta ahora que saben que es PARADOX mejor.

CARsoft

[Jan]

Hola de nuevo:

Realizando una pequeña busqueda por el foro aparece este hilo en el que se propone una solución.

Otra es eliminar el campo autoincremental y volverlo a crear.

Espero que te sirva.

[axelbb]

Función en Dephi para leer ese dato (y modificarlo también, con algunos cambios):

function LeeAutoInc(filename : string) : LongInt;
var
MiTabla : tfilestream;
buffer : longint;
begin
MiTabla := tfilestream.create(filename,
fmOpenread + fmShareDenyWrite);
MiTabla.Seek(73, soFromBeginning);
MiTabla.readbuffer(buffer, 4); //Aqui usas funciones de Write
//Write(const Buffer; Count: Longint)
//mira ayuda Delphi
MyTabla.Free;
LeeAutoInc := buffer;
end;

Creo que anda, probalo y corregilo si hace falta.
El valor del último autogenerado se almacena en el lugar 73 decimal del archivo principal.
Pero, por Dios, no uses más Paradox!!!!!

No es un consejo menor, te aseguro que vas a renegar MUCHO con Paradox.

Saludos.

[axelbb]

Aqui va una version corregida, tuve tiempo de hacerla y probarla. ¡Que la disfrutes!!


function TForm1.CambiaAutoInc(filename : string) : LongInt;
var
MiTabla : tfilestream;
buffer : longint;
begin
MiTabla := tfilestream.create(filename,fmOpenReadWrite);
buffer := 0;
MiTabla.Seek(73, soFromBeginning);
MiTabla.Write(Buffer,4);
MiTabla.Free;
end;

[CARSOFT_AR]

Gracias a todos por haberme ayudado, y en realidad no me gusta paradox, pero para esta aplicacion bueno........, no he tenido tiempo para estudiar otras BASES DE DATOS, pero pienso migrar a INTERBASE, pienso que es una buena BD, muchas gracias a todos.


CARsoft

[axelbb]

Si, a varios nos pasó igual, así empezamos todos. Interbase y Firebird son una EXCELENTE opción. Te recomiendo ver también PostgreSQL 8.
Suerte!!

PD: A mi ultimo codigo, le falto un "Result := buffer" antes del "end;"... Sorry.