17 respuestas en este tema

[RipperXD2]

buenas, primero un saludo a todos
estoy realizando un programa en XE2 en el que necesito guardar una información de varios tipos de datos y quiero que sea en un archivo simple de texto (que posteriormente cifrare de ser necesario), he leído acerca de usar bases de datos pero la mayoría requiere la instalación de programas y no quiero nada así también leí sobre usar archivos XML pero no se si pueda funcionar como base de datos que consejos me dan?

un ejemplo de de los datos que quiero guardar son

X0000000, dd/mm/aaaa, dd/mm/aaaa, 00

donde seria un identificador, dos fechas y un valor entero por cada entrada

[enecumene]

Utiliza CSV como BD, es un texto plano dividido por coma o punto y coma, para ello puedes utilizad TClientDataSets.

Saludos

[RipperXD2]

Muchas gracias no conocía ese tipo de fichero ya mismo me pongo a investigar sobre el.

[RipperXD2]

Buenas investigue un poco pero aun no entiendo bien como usarlo, podrías darme un ejemplo simple de uso?

[Fenareth]

Amigo RipperXD2, tal vez el artículo del blog de poliburro te pueda ayudar con lo que necesitas, échale una miradita...

Usar archivos CSV en modo tabla con Delphi y ADO

Saludox !

[RipperXD2]

probé de esa manera pero no deja de darme un error "No se pudo encontrar el archivo ISAM instalable."

usando esta linea de conexion que es donde se supone que esta el error:
ADOConnection1.ConnectionString := 'Provider=Microsoft.JET.OLEDB.4.0;Data Source='+RUTA+';Extended Properties=”text;HDR=Yes;FMT=Delimited(,)”';

y donde RUTA tiene actualmente este valor "C:\Users\Usuario\Documents\Delphi\Proyecto\db.csv"

por eso decidí preguntar de nuevo

[Fenareth]

Amigo, en tu variable RUTA está de más el nombre del archivo.

En el ConnectionString únicamente debes agregar el directorio y el nombre del archivo será usado como nombre de tabla en el dataset que vayas a emplear...

Saludox !

[RipperXD2]

Gracias por responder, el error que mencione antes continua, no se si ayude estoy en Win8 64bit

[Fenareth]

Amigo, coloca todo tu código aquí para ver si encontramos algo raro

Otra cosa que puedes intentar es poner tu archivo directamente en C: y probar, vamos eliminando posibles obstáculos...

Saludox !

[RipperXD2]

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils, Data.DB, Data.Win.ADODB, Vcl.ExtCtrls,
  Vcl.DBCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Memo2: TMemo;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  NOMBRE, STRAUX: String;
  Form1: TForm1;
  REFDESDE, ULTCLICK, FECHAHOY: TDate;
  PROMEDIO: Single;
  DIAREF, DIAINA, CANREF, CANCLICK: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, TL: Integer;
  AUX: String;
begin
  FECHAHOY := date();
  ShortDateFormat := 'yyyy/mm/dd';
  CANREF := Memo1.Lines.Count;
  for i := 0 to (CANREF - 1) do
  begin
    NOMBRE := '';
    AUX := '';
    STRAUX := Memo1.Lines.Strings[i];
 
    while STRAUX[1] <> ',' do
    begin
      NOMBRE := NOMBRE + STRAUX[1];
      Delete(STRAUX, 1, 1);
    end;
 
    Delete(STRAUX, 1, 1);
 
    while STRAUX[1] <> ',' do
    begin
      AUX := AUX + STRAUX[1];
      Delete(STRAUX, 1, 1);
    end;
    REFDESDE := StrToDate(AUX);
 
    AUX := '';
    Delete(STRAUX, 1, 1);
 
    while STRAUX[1] <> ',' do
    begin
      AUX := AUX + STRAUX[1];
      Delete(STRAUX, 1, 1);
    end;
    ULTCLICK := StrToDate(AUX);
 
    Delete(STRAUX, 1, 1);
    CANCLICK := StrToInt(STRAUX);
 
    DIAREF := DaysBetween(REFDESDE, FECHAHOY);
    DIAINA := DaysBetween(ULTCLICK, FECHAHOY);
 
    PROMEDIO := CANCLICK / DIAREF;
 
    if (DIAINA = 5) and (PROMEDIO < 1.400) then
    begin
      Memo2.Lines.Add(NOMBRE + ' RECICLAR');
    end
    else
    begin
      if (DIAINA = 6) and (PROMEDIO < 1.701) then
      begin
        Memo2.Lines.Add(NOMBRE + ' RECICLAR');
      end
      else
      begin
        if (DIAINA > 6) and (DIAINA <= 9) and (PROMEDIO <= 2.000) then
        begin
          Memo2.Lines.Add(NOMBRE + ' RECICLAR');
        end
        else
        begin
          if (DIAINA >= 9) and (PROMEDIO > 2.000) then
          begin
            Memo2.Lines.Add(NOMBRE + ' RECICLAJE AUTOMATICO');
          end
        end
      end
    end;
    if (DIAREF >= 60) and (PROMEDIO <= 1.350) then
    begin
      Memo2.Lines.Add(NOMBRE + ' RECICLAR');
    end
    else
    begin
      if (DIAREF >= 45) and (PROMEDIO <= 1.300) then
      begin
        Memo2.Lines.Add(NOMBRE + ' RECICLAR');
      end
      else
      begin
        if (DIAREF >= 30) and (PROMEDIO <= 1.250) then
        begin
          Memo2.Lines.Add(NOMBRE + ' RECICLAR');
        end
        else
        begin
          if (DIAREF >= 15) and (PROMEDIO <= 1.200) then
          begin
            Memo2.Lines.Add(NOMBRE + ' RECICLAR');
          end
        end
      end
    end;
    if (CANCLICK = 0) and (DIAREF >= 3) then
    begin
      Memo2.Lines.Add(NOMBRE + ' RECICLAR');
    end
  end
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  RUTA : String ;
begin
  RUTA := ExtractFilePath(ParamStr(0))+'db.csv';
  Memo1.Lines.Add(RUTA);
  ADOConnection1.ConnectionString := 'Provider=Microsoft.JET.OLEDB.4.0;Data Source='+RUTA+';Extended Properties=”text;HDR=Yes;FMT=Delimited(,)”';
  ADOConnection1.Connected := TRUE;
end;
 
end.

ese es todo mi código y ya probé pasando el archivo a C: y me sigue dando el mismo error

(posiblemente el código de asco en algunas partes xD soy programador noob estoy haciendo este código por necesidad jaja)

pd: parte del código es como hago actualmente el proceso y es lo que quiero sustituir por la base de datos

[poliburro]

cuál es el valor que tiene Ruta?

[RipperXD2]

Básicamente la ruta donde esta, arriba puse un ejemplo de uno de los valores pero he movido el archivo a varias ubicaciones y sigue dando el mismo error

[Fenareth]

Por lo que veo de tu código, a la variable RUTA sigues concatenándole el nombre del archivo... como te comentaba, en el connectionstring únicamente debes colocar la ruta ( si moviste el archivo a C:, entonces la variable RUTA, sólo debe contener C: ) y al momento de usar un DataSet, ya sea ADOQuery o ADOTable, el nombre del archivo nos servirá como nombre de tabla...

Haz la modificación que te digo y coméntanos...

Saludox !

[RipperXD2]

Disculpen esa, copie el código sin esa corrección pero en ambos casos me da el mismo error investigue un poco y el error parece mas por culpa de la llamada pero he probado de mil maneras y aun así me sigue dando ese error como si ese motor no estuviese instalado pero ya verifique y si se encuentra en el sistema

[Fenareth]

Déjame hacer una prueba amigo...

Saludox !

[Fenareth]

Intenta porfavor con la siguiente cadena de conexión...

delphi

var
  Ruta: String;
begin
    Ruta := 'C:\Apache24';
    Conexion.Connected := False;
    Conexion.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 Ruta+';Extended Properties="Text;HDR=Yes;'+
                                 'FMT=Delimited(,);";Persist Security Info=False';
    try
      Conexion.Connected := True;
      Showmessage('Conexión exitosa !');
    except
      on e:exception do
        Showmessage('Error en la conexión...'+#10#13+e.Message);
    end;

Coméntanos !

Saludox !

[RipperXD2]

Funciono perfecto, muchas gracias ese era el problema  ahora a seguir trabajando *-*

[Sergio]

Puedes incluso leer el fichero CVS a un TStringlist, así tendrás automáticamente una línea por "record", luego para acceder a cada "record", vuelves a copiar la linea completa a otro TStringList donde previamente definiste el delimiter a tabulador (chr(10) o #10 directamente), así tienes cada "field" del "record" en una línea de este segundo TStringList:

delphi

MiLista:= TStringList.create;
MiRecord:= TStringList.create;
MiRecord.Delimiter:= #10;
for i:= 0 to MiLista.Count-1 do begin
  MiRecord.Clear;
  MiRecord.Text:= MiLista.Items[i];
  for j:= 0 to MiRecord.Count-1 do
    ShowMessage('El campo '+IntToStr(j)+' del record '+IntToStr(i)+ ' contiene el texto '+QuotedStr(MiRecord[j]);
end;

Lo del delimiter es de memoria, creo que se llamaba así pero igual me equivoco.