怎样在DELPHI里建一张数据表？？？？100分

Question

当用户通过一个输入界面输入数据，我想把这些数据保存成一张数据表。怎么做？

Answer 1

with Query1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('create table abc (id decimal(5) not null,name char(20))');
    ExecSQL;
  end;

Answer 2

procedureZldcreateTable;
　　var
　zldT：Ttable;
　　begin
　　zldT:=Ttable．Create(Self);
　　withzldTdo
　　begin
　　DatabaseName:=’DBDEMOS’;｛预定义的别名数据库工作区名｝
　　TableName:=’ZLDDBASE’;｛将定义的数据库名｝
　　TableType:=ttDbase;｛数据库类型,可为ttParadox、ttASCII、ttDbase｝
　　withFieldDefsdo｛数据库结构信息｝
　　begin
　　Clear;
　　Add(’ZLS’,ftInteger,0,false);
　Add(’ZLD’,ftBoolean,0,false);
　　Add(’ZEZ’,ftString,10,false);
　　Add(’XL’,ftDate,0,false);
　　｛．．．．｝//------在这增加其它字段
　　end;
　　withIndexDefsdo｛索引文件信息｝
　　begin
　　Clear;
　　Add(’Primary’,’ZEZ’,[ixPrimary,ixUnique]);
　　｛．．．．｝////------在这增加索引
　　end;
　　CreateTable
　　end;
　　end;　　通过以上方法建立数据库,如果已经存在同名数据库,将被覆盖,数据将全部丢失。　　当修改一个数据库的结构时,也可以利用Ttable的方法CreateTable。先打开欲修改的数据库,取得该数据库的结构信息,再对其修改,然后用修改后的结构信息重新建立一个新数据库,再将原数据库中相同的列写入新数据库中,删除原数据库,改新数据库名为原数据库名即可。

Answer 3

回复人： DainelLee(Iinexperience) ( ) 信誉：101  2003-02-23 22:48:00  得分:0 
 
 
  with Query1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('create table abc (id decimal(5) not null,name char(20))');
    ExecSQL;
  end;  
 使用sql语句创建，abc 表的名子， id ,name 字段， decimal,char 数据类型，在query1中执行sql语句。

Answer 4

比如说建个ACCESS库
//建 t_milk_info   表
     with ADOQuery1 do
 begin
 close;
  sql.clear;
  sql.add('create table t_milk_info(');
  sql.add('milk_id smallint primary key not null,');
  sql.add('milk_name varchar(30),');
  sql.add('milk_brand varchar(20),');
  sql.add('milk_product varchar(50),');
  sql.add('sell_price currency,');
  sql.add('balance_price currency,');
  sql.add('reg_time datetime,');
  sql.add('staff_rate currency,');
  sql.add('deliver_price currency)');  execsql;
  end;

Answer 5

我用的就是interbase数据库，应该怎么做啊，

Answer 6

有很多方法，用TADODataSet和TClientDataSet均可以做到……