Conexión Tablas FoxPro .Dbf

[marcoszorrilla]

No ha habido manera de conectarse, así que he implementado una opción de urgencia puesto que solamente se trata de cruzar datos no de escribir en las tablas.

Como el Byte 29 es donde reside si la tabla tiene índices o no he hecho una copia de la tabla cada vez que entro con el motivo de que ésta este lo mas actualizada posible y luego le he cambiado el byte que es 01 por 00, y ya lo tengo funcionando.

Código Delphi [-]
procedure KillConta();
var
mystream : tfilestream;
FileName: String;
pOrigen,pDestino:Pchar;
Value:Longint;
begin
Value:=00;
FileName:='\\Servidor\CNdbf\XXX.dbf';
pOrigen:='\\Servidor\XXX\ConXXX\EmpXX\XXX.dbf';
pDestino:='\\Servidor\CNdbf\XXX.dbf';
Try
CopyFile(pOrigen,pDestino,False);
Except
ShowMessage('Error al copiar el Fichero XXXX.');
end;

mystream := tfilestream.create(filename,
            fmOpenWrite + fmShareExclusive);
  try
    mystream.Seek(28, soFromBeginning);
    mystream.Writebuffer(Value, SizeOf(Value));
  finally
    mystream.Free;
  end;
end;

Un Saludo.

[roman]

Y, digo yo, ¿no serviría hacer esto?

1. Creas una copia limpia (misma estructura, sin índices y sin datos) de la tabla original.
2. Usas el truco del byte 29 para abrir la tabal original
3. Copias uno a uno los registros de la tabla original a la nueva.
4. Pones los índices a la tabla nueva.
5. Usas la tabla nueva.

// Saludos

[marcoszorrilla]

Román: Es que el único problema es que la tabla no se podía abrir y para hacer los cruces como la ataco con SQL los índices no me hacen falta. Ese es el motivo de hacer solamente la copia de la tabla y no de los índices, además en el momento que cambio el Byte 29 a 01 como en la situación original dejo de poder acceder y me reporta un error, otra posibilidad que estoy pensando aunque estoy satisfecho con la actual es intentar acceder por ejemplo con ADO, cosa que no sé si será posible.

Un Saludo.