Ver Mensaje Individual
  #1  
Antiguo 24-03-2010
Tauro78 Tauro78 is offline
Miembro
 
Registrado: sep 2006
Posts: 88
Reputación: 18
Tauro78 Va por buen camino
Crear tabla en tiempo de ejecucion en un directorio X

hola, he recorrido el foro y no encontre algo que me ayudara para resolver mi problema, el tema es que hice este procedimiento el cual crea tablas en tiempo de ejecucion con los nombres 1.db, 2.db, 3.db y asi sucesivamente.
Lo que no he podido lograr es que a esas tablas me la cree dentro del directorio C:\Temp\
Asi como esta las crea en el path que le indica TablaTemp.DatabaseName := 'Bancos'.
Como puedo hacer para crearlas en el directorio Temp y no en el directorio que me indica el alias ?
Desde ya muchas gracias.


Código Delphi [-]
 
procedure TTablas.CrearTablasTemporales;
var intOrdinal: integer; strOrdinal, strNombreTemp: string;
    //TablaTemp:TTable;
begin
  intOrdinal := 0;
  Inc(intOrdinal);
  strOrdinal := intToStr(intOrdinal);
  strNombreTemp := strOrdinal + '.db';
  while FileExists('C:\Temp\' + strNombreTemp) do  
    begin
      Inc(intOrdinal);
      strOrdinal := intToStr(intOrdinal);
      strNombreTemp := strOrdinal + '.db';
    end;
        TablaTemp := TTable.Create(nil);
        TablaTemp.Active := false;
        TablaTemp.DatabaseName := 'Bancos';
        TablaTemp.SessionName := 'Sesion';
        TablaTemp.TableType := ttDefault;
        TablaTemp.TableName := strNombreTemp;
        with TablaTemp.FieldDefs do
          begin
              Clear;
              with AddFieldDef do
                begin
                  Name := 'Nro_movimiento';
                  DataType := ftInteger;
                  Required := False;
                end;
              with AddFieldDef do
                begin
                  Name := 'Saldo';
                  DataType := ftCurrency;
                  Required := False;
                end;
              with TablaTemp.IndexDefs do
                begin
                  Clear;
                  with AddIndexDef do
                    begin
                        Name := '';
                        Fields := 'Nro_movimiento';
                        Options := [ixPrimary,ixUnique];
                    end;
                  end;
          TablaTemp.CreateTable;
          TablaTemp.Open;
          end;
end;
Responder Con Cita