我想写一个动态建立字段名、字段大小的数据库，还能在运行时修改。

Question

declare str char(8096)
set str=.........
exec(str)

Answer 1

用Sql来实现
不过在重新构造时，要注意数据的备份和恢复

Answer 2

是用table!!!不用sql,如用怎么保存??

Answer 3

這是看似是容易, 但其實較繁復的工序.
是一個全新的字段? 容許 null 值碼? 是否更改主鍵的大小和數值? 
因而同時更改其他相應表的字段.若是更改現有數據的字段, 如何處理
現有數據的存儲? 數據庫是否需要停頓來維修? 修改後, 現有的備份資
料將完全失效?

Answer 4

我也在做这样的问题//wwDataSource1.Enabled:=False;
   // wwTable1.Active:=False;
    //wwTable1.Edit;    //wwTable1.Fields.Fields[0].FieldName:=RzEdit1.EditText;
    //wwTable1.Active:=True;
    //wwDataSource1.Enabled:=True;
这样试试吧

Answer 5

我来给一个简单的吧.
table1.close;
table1.fielddef.clear;
with table1.fielddef.addfielddef do
begin
     name='your_name';
     datatype=ftstring;
     size = 20;
end;
table1.createtable;
table1.open;
哈,很简单的程序,想必不符合你的要求吧,但是可以改改的啊.最好还是用sql啦.

Answer 6

窗体上放一个Table控件
procedure TForm1.Button1Click(Sender: TObject);
var
  ap:TStringList;   {字符串列表变量}
  answer:Integer;
begin
  ap:=TStringlist.Create;
  Session.GetAliasNames(ap);   {取得别名列表}
  if (ap.IndexOf('Cntssamp')=-1) then   {判断别名是否存在}
  begin
    answer:=Application.MessageBox('别名Cntssamp不存在，现在创建吗？','BDE信息窗口',mb_OKCancel);
    {增加一个名为Cngzsamp的数据库别名}
    if  answer=IDCANCEL then begin
       ap.Free;
       Exit;
    end;
Session.AddStandardAlias
('Cntssamp','c:\delphp11','Paradox');
    Session.SaveConfigFile;    {BDE配置文件存盘}
  end ;  ap.Clear;      {取得别名Cngzsamp中的所有表格名称列表}
  Session.GetTableNames
('Cntssamp','',False,False,ap);
  if (ap.IndexOf('TSK')=
-1)  then  {判断表格是否存在}
  begin
     answer:=Application.MessageBox('别名Cntssamp中不存在表格TSK,现在创建吗？','表格信息窗口',mb_OKCancel);
     if answer=IDCANCEL then begin
        ap.Free;
        Exit;
     end;
with table1 do begin
      Active:=false;
      DatabaseName:='c:\';    {数据库别名}
      TableName:='TSK';            {表格名}
      TableType:=ttParadox;        {数据库类型}
      with FieldDefs do begin      {增加字段}
        Clear;
        Add('SH',ftString,30,False);  {书号 String(30)}
        Add('SM',ftString,30,False);  {书名 String(30)}
        Add('CBS',ftString,20,False); {出版社 String(20)}
        Add('CBRQ',ftDate,0,False);   {出版日期 Date}
        Add('YS',ftInteger,0,False);   {页数 Integer}
      end;
      with IndexDefs do begin      {增加索引}
       Clear;                      {按书号字段建立主索引}
       Add('SHSY','SH',[ixPrimary,ixUnique]);
      end;
      CreateTable;      {创建表格}
    end;end;
end;
//激活表
procedure TForm1.Button2Click(Sender: TObject);
begin
  table1.Active :=true;
end;