Codigo a cero en un BD

[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.