动态创建字段

[dtrczx]

谁能指教一个简单问题，在一数据库基础上动态增加或删除来修改字段，并保存，
客户可以自定义字段的名称、类型？

[blazingfire]

这个用TQuery借助SQL应该不难呀。
alter table1
add Column NewField varchar(20)
然后
TQuery1.ExecSql不就行了嘛

[dejoy]

直接用alter命令来做，字段名，类型可以由用户选择(不是自定义)。
alter table1 add Column NewField varchar(20)

[dupenf]

动态在query里写sql语句,就可以啊.
alter yourtable add column newfield type

[jiaxm_xj]

if not Table1.Exists then begin
with Table1 do begin
{ The Table component must not be active }
Active := False;
{ First, describe the type of table and give }
{ it a name }
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo';
{ Next, describe the fields in the table }
with FieldDefs do begin
Clear;
with AddFieldDef do begin

Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin
Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
{ Next, describe any indexes }
with IndexDefs do begin
Clear;
{ The 1st index has no name because it is
{ a Paradox primary key }
with AddIndexDef do begin

Name := '';
Fields := 'Field1';
Options := [ixPrimary];
end;
with AddIndexDef do begin
Name := 'Fld2Indx';
Fields := 'Field2';
Options := [ixCaseInsensitive];
end;
end;
{ Call the CreateTable method to create the table }
CreateTable;
end;
end;