DBF + Delphi

[Аватар]

Можно без ADOConnection. Настройте ConnectionString. У меня сейчас дома мало что установлено, поэтому подсказывать тяжело. Попробуйте через провайдер для ODBC, для этого и ODBC нужно настроить. Если не получится - ждите до понедельника, с работы мне легче будет вам чем-то помочь

[Art111000]

  opendialog1.Execute;
  dir:=opendialog1.FileName;
  For i:=1 to length(dir) do
    if dir[i]='\' then j:=i;
  FileName:=copy(dir,j+1,length(dir)-j);
  dir:=copy(dir,1,j);
  DataSource1.DataSet:=Query1;
  DBGrid1.DataSource:=DataSource1;
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('Select * from '+filename);
  query1.open;
  for i:=0 to query1.FieldCount-1 do
    ListBox1.Items.Add(query1.Fields[i].FieldName);

Ругается когда запрос открывает, не знаю что с ним еще сделать можно (работаю с BDE).

[Gulik]

  
  if Opendialog1.Execute then begin
    dir := OpenDialog1.FileName;
  //  For i:=1 to length(dir) do
  //      if dir[i]='\' then j:=i;
    FileName := ExtractFileName(dir) ; // <- про ExtractFileName() видно не слышали )
    dir := ExtractFileDir(dir) + '\' ; // <- аналогично ExtractFileDir() в конце добавляем \
    DataSource1.DataSet := Query1 ;
    DBGrid1.DataSource := DataSource1 ;
    SetCurrentDir(Dir);  // <- Изменяет текущую директорию
    Query1.Close ;
    Query1.SQL.Clear ;
    Query1.SQL.Add('SELECT * FROM ' + FileName ) ;
    Query1.Open ;
    for i := 0 to Query1.FieldCount - 1 do
        ListBox1.Items.Add(Query1.Fields[i].FieldName) ;
  end ;

[Art111000]

Gulik, не спасло...
P.S. Я думал текущая директория и так остается та, в которой лежит DBF-файл. OpenDialog её меняет вроде.

[Art111000]

Та самая часть программы. Может кто-нибудь сможет помочь?)

[Gulik]

Тогда копируй DBF файл в директорию с прогой...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls;

type
  TForm1 = class(TForm)
    OpenButton: TButton;
    OpenDialog1: TOpenDialog;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ListBox1: TListBox;
    SaveButton: TButton;
    DBNavigator1: TDBNavigator;
    procedure OpenButtonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SDir : String ;

implementation

{$R *.dfm}

procedure FileCopy(Const SourceFileName, TargetFileName: String);
   var
   A, F : TFileStream;
begin 
   A := TFileStream.Create(sourcefilename, fmOpenRead );
   try
      F := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
      try
         F.CopyFrom(A, A.Size ) ;
         FileSetDate(F.Handle, FileGetDate(A.Handle));
      finally
         F.Free;
      end;
   finally
      A.Free;
   end; 
end;

procedure TForm1.OpenButtonClick(Sender: TObject);
   var
      FileName : String ;
      i : integer ;
begin
   if Query1.Active then begin
      Query1.Close ;
      if FileExists(SDir + '\' + ExtractFileName(OpenDialog1.FileName)) then
         DeleteFile(SDir + '\' + ExtractFileName(OpenDialog1.FileName)) ;
   end ;
   if Opendialog1.Execute then begin
      FileName := ExtractFileName(OpenDialog1.FileName) ;
      if FileExists(SDir + '\' + FileName) then
         DeleteFile(SDir + '\' + FileName) ;
      FileCopy(OpenDialog1.FileName, SDir + '\' + FileName) ;
      SetCurrentDir(SDir) ;
      Query1.Close ;
      Query1.SQL.Clear ;
      Query1.SQL.Add('SELECT * FROM ' + FileName ) ;
      Query1.Open ;
      for i := 0 to Query1.FieldCount - 1 do
          ListBox1.Items.Add(Query1.Fields[i].FieldName) ;
   end ;
end;

procedure TForm1.SaveButtonClick(Sender: TObject);
begin
   if FileExists(OpenDialog1.FileName) then
      DeleteFile(OpenDialog1.FileName) ;
   FileCopy(SDir + '\' + ExtractFileName(OpenDialog1.FileName), OpenDialog1.FileName) ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   GetDir(0, SDir) ;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Query1.Active then begin
      Query1.Close ;
      if FileExists(SDir + '\' + ExtractFileName(OpenDialog1.FileName)) then
         DeleteFile(SDir + '\' + ExtractFileName(OpenDialog1.FileName)) ;
   end ;
end;

end.

На основании новой идеи поправил твой проект Скачать

[Art111000]

И так тоже ругается... В меня уже закрадываются сомнения по поводу DBF-файлов, а не программы :D
Хотя акцессом DBF'ка открывается нормально...

[Gulik]

FoxPro говорит что это не таблица

[ReportCube]

TADOConnection, докачал драйвер

Microsoft Visual FoxPro Driver VFPODBC.DLL 07.12.1999

Бросил Ваш файл в папку "G:\MySource\TOVAR.DBF", создал DSN, вроде этого:

DSN=TestFOXPRO;UID=;PWD=;SourceDB=g :\MySource;SourceType=DBF;Exclusive =No;BackgroundFetch=Yes;Collate=Mac hine;Null=Yes;Deleted=Yes;

всё нормально открывается, все поля доступны