| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблемы при работе с DAO [D6, DAO]

R.O.O.T ©   (2004-07-05 16:32:00) 

При работе с DAO компанентами возникает такая ситуация
компилятор незнает параметр EmptyParam
unit UDemo;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 ExtCtrls, DBCtrls, ToolWin, ComCtrls, Grids, DBGrids, Db, StdCtrls, DaoDS;

type
 TDAODemo = class(TForm)
   DataSource: TDataSource;
   DAODataSet: TDAODataSet;
   DBGrid: TDBGrid;
   StatusBar: TStatusBar;
   ToolBar1: TToolBar;
   DBNavigator1: TDBNavigator;
   Button1: TButton;
   DAODatabase: TDAODatabase;
   DAOTable1: TDAOTable;
   procedure DataSourceDataChange(Sender: TObject; Field: TField);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 DAODemo: TDAODemo;

implementation

uses DAO;

{$R *.DFM}

procedure TDAODemo.DataSourceDataChange(Sender: TObject; Field: TField);
begin
 with DAODataSet do
   StatusBar.SimpleText := 'Record: ' + IntToStr(RecNo) + '/' + IntToStr(RecordCount);
end;

procedure TDAODemo.Button1Click(Sender: TObject);
var TableDef: DAO.TableDef;
   Index: DAO.Index;
begin

 // create database
 GetDBEngine(dvDAO36).CreateDatabase('Dyndemo.mdb', dbLangGeneral, EmptyParam);
 DAODatabase.Open;

 with DAODatabase.Handle do
 begin
   // create table
   TableDef := CreateTableDef('COUNTRY', EmptyParam, EmptyParam, EmptyParam);

   with TableDef do
   begin
     // create fields
     Fields.Append(CreateField('Name', DAO.dbText, 24));
     Fields.Append(CreateField('Capital', DAO.dbText, 24));
     Fields.Append(CreateField('Area', DAO.dbDouble, EmptyParam));
     Fields.Append(CreateField('Population', DAO.dbDouble, EmptyParam));

     // create index
     Index := CreateIndex('Index Name, Capital');
     with Index do
     begin
       Fields.Append(CreateField('Name', EmptyParam, EmptyParam));
       Fields.Append(CreateField('Capital', EmptyParam, EmptyParam));
     end;
     Indexes.Append(Index);
   end;

   // add table to table defs
   TableDefs.Append(TableDef);
 end;

 DAODataSet.Open;
end;

end.

Непонимаю почему все модулю подключил процедуры известны

---

sniknik   (2004-07-05 17:06:00) [1]

Variants

---

Наверх