delphi/oracle结构中,怎样动态建立表,一定家分!

[KillAllJapanese]

[prometheusphinx]

用CommandText传SQL语句建表啊.

[KillAllJapanese]

怎么做呀!请详细点

[jearry_zhou]

用TUpdateSQL组件。

[kuangning]

用Tquery或者TADOQUery
如：query1.close ;
query1.sql.text := 'create table tablename{id number(10),
.....}';
query1.execsql ;

[ChinaCoo]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: integer;
begin
with Table1 do
Table1.TableName := 'TestTable';
with Table1.FieldDefs do
begin
Clear;
with AddFieldDef do
begin
Name := 'LINK_ID';
DataType := ftInteger;
Required := True;
end;
for i := 1 to StrToInt(Edit1.Text) do
with AddFieldDef do
begin
Name := 'Field'+IntToStr(i);
DataType := ftString;
Required := True;
end;
end;
Table1.CreateTable;
end;

拿去参考一下

[eire]

首先要建立服务和数据库，
如何动态建立？