Форум: "Базы";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
ВнизПроблемы при работе с DAO Найти похожие ветки
← →
R.O.O.T © (2004-07-05 16:32) [0]При работе с 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) [1]Variants
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.051 c