DBF =(

[NaQ]

Привет..

вообщем ненаю что дальше делать..

есть у меня FileLisBox там есть перечень *.dbf файлов (с уже имеющими данными внутри), мне надо их содержимое перенести в DBGrid, но так чтобы когда я нажимаю(выделяю) из перечня, например на 200820.dbf в дбгриде автоматом мне таблицу строило.. потом нажимаю следующий 200821.dbf - мне тож автом дбгрид построило (((

помогите ... заступорилась и ненаю как дальше (((

[Snoopy]

При событии нажатия меняйте те даные которые нужно было установить если бы вы работали с одной таблицей! Я точно не помню что нужно и Delphi под рукой нет, но предполагаю что нужно указывать:путь к базе и выбирать нужную таблицу..

[Stilet]

Ну дык у тебя есть TDBTable-TTable-TDataSource
Ну свяжи их, настрой на DBF и при клике на элементе списка меняй в TTable.Tablename имя таблицы, которое возьмеш как выбранный элемент, только учти: таблицы должны лежать в одном каталоге, или под одним алиасом. Ну и не забудь закрыть ДатаСеты перед изменением TTable.Tablename и открыть после него.

[Pitbull]

procedure TForm1.FileListBox1Click(Sender: TObject);

var
s:string;
begin
 s:=FileListBox1.FileName;
Query1.Close;
Query1.SQL.clear;
Query1.sql.Add('select * from '+ QuotedStr(s));
Query1.Open;
end;

[NaQ]

Сообщение от Pitbull

procedure TForm1.FileListBox1Click(Sender: TObject);

var
s:string;
begin
 s:=FileListBox1.FileName;
Query1.Close;
Query1.SQL.clear;
Query1.sql.Add('select * from '+ QuotedStr(s));
Query1.Open;
end;

ненаю..не идет..наверно что-то не правильно у меня
вопрос... я вот не пойму к компоненту Table какой ставить DataBaseName?? я ставлю Файлы dBASE.. и оно всегда мне пароль предлагает ввести... какой правильно надо??
DataSource у меня на table выбрано..
Query тож DataSource, и DataBaseName ненаю какой ставить..

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    procedure FileListBox1Click(Sender: TObject);




  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FileListBox1Click(Sender: TObject);
var
s:string;
begin
 s:=FileListBox1.FileName;
Query1.Close;   
Query1.SQL.clear;   
Query1.sql.Add('select * from '+ QuotedStr(s));   
Query1.Open;
end;


end.

[Snoopy]

К примеру TDBGrid-TTable-TDataSource
В TDBGrid:
DataSource|DataSource1
В TDataSource:
DataSet|Table1

Table1.DatabaseName :='C:\Program Files\Common Files\Borland Shared\Data';
Table1.TableName:='animals.dbf';
Table1.Active := True;

[NaQ]

ну у меня так и стоит...

К примеру TDBGrid-TTable-TDataSource
В TDBGrid:
DataSource|DataSource1
В TDataSource:
DataSet|Table1


а по коду..

если у меня 20 файлов, а не один енималс.. как сделать так чтобы из файллистбокс при выборе мной одного из 20 файлов сразу меняялась и дбгрид соответствующая этому дбфнику???

[Stilet]

Попробуй такое:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    FileListBox1: TFileListBox;
    procedure FormCreate(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
FileListBox1.Directory:='c:\temp\';
Table1.DatabaseName:=FileListBox1.Directory;
end;

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
Table1.Close;
Table1.TableName:=FileListBox1.FileName;
Table1.Open;
end;

end.

[Pitbull]

То , что я Вам написал - все работает, просто Вам нужно ж указать
путь к папке, которую будет Ваш FileListBox открівать..... :
FileListBox1.Directory:='c:\temp\';




или вот так:
procedure TForm1.FileListBox1Click(Sender: TObject);

var
s:string;
begin
FileListBox1.Directory:='c:\ПУТЬ\';
s:=FileListBox1.FileName;
Query1.Close;
Query1.SQL.clear;
Query1.sql.Add('select * from '+ QuotedStr(s));
Query1.Open;
end;

[NaQ]

не получаеться у меня (((((


вот моя прога (((((((

http://slil.ru/25470518

ненаю что там не правильно ((