比如說用ADOQuery返回的數據集(table: Customer)在本地c盤生成一個xxx.db的數據庫文件
解决方案 »
- 关于父类与子类的一点疑问、
- 求助:如何新增一条与上一条一样的记录
- ■(回答立刻给分)求救,关于颜色的设定??
- 求一SQL语句,截取"<"前的字符
- 大家谈谈用delphi开发小型数据库的软件,随便侃,参与者有分
- 请问高手Tactionlist这个控件在哪个地方可以找到,谢谢!
- 请做过足球投注软件的朋友进来看看。
- 在线等!请教一个简单问题:如何动态加载一个image控件?
- 有谁知道怎么将DVD格式的转换成AVI格式,告诉我哪里有控件可用也行
- [求助]Datasnap 技术讨论 Rest Application/Datasnap Server/WebBroker Application区别
- ●【100分】求救关于byte问题???急,在线立刻给分
- RAVE报表错在哪??A component named dataview1ID already exists.
{set up database component}
ABSDatabase1.DatabaseName := 'emp_db';
ABSDatabase1.DatabaseFileName := 'c:\data\employee_db.abs'; {set up table component}
ABSTable1.DatabaseName := 'emp_db';
ABSTable1.TableName := 'employee'; with ABSTable1 do
begin
{specifying table fields}
with FieldDefs dobegin
Clear;
Add('EmpNo',ftAutoInc,0,False);
Add('LastName',ftString,20,False);
Add('FirstName',ftString,15,False);
Add('PhoneExt',ftString,4,False);
Add('HireDate',ftDate,0,False);
Add('Salary',ftCurrency,0,False);
end;
{specifying table indexes}
with IndexDefs do
begin Clear;
Add('idxPrimary','EmpNo',[ixPrimary]);
Add('idxByLastNameFirstName','LastName;FirstName'
,[ixCaseInsensitive]);
end;
end; {create the database}
with ABSDatabase1 do
{if database file doesn't exist}
if not Exists then
CreateDatabase; {and create the table}
with ABSTable1 do {if table doesn't exist}
if not Exists then
CreateTable;