運行時如何動態建sql表

gfshuquanhe 2001-09-05 09:45:09
請問高手們如何在程序運行期動態地建立sql server 表呢﹖
...全文
75 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
windflow 2001-09-05
  • 打赏
  • 举报
回复
with ADOQuery1 do
begin
close;
sql.Clear ;
sql.Add ('create table mytable(zd char(5),mm char(10))');
execsql;
end;
mytable是表名,zd,mm是字段,你自己可按你的需要修改。
LWWL 2001-09-05
  • 打赏
  • 举报
回复
adoquery1.sql.add('CREATE TABLE LW_term (field char(50) NULL,term char(4) NULL,value char(50) NULL,table_name char(50) NULL)');
这是个例子 字段名和类型自己修改


给分哦 :)
gfshuquanhe 2001-09-05
  • 打赏
  • 举报
回复
to windflow
我就是用ado ﹐能否給我具休的一段代碼呢﹖再加20份﹐(沒辦法﹐因為我現在比較窮)
windflow 2001-09-05
  • 打赏
  • 举报
回复
用ADOconnection与数据库相连,在ADOQUERY控件中写SQL语句创建。
enlightenment 2001-09-05
  • 打赏
  • 举报
回复

也可以用BatchMove组件,如下(Table_D表示目标,Table_S表示源):

Table_D.Active:=False;
try
table_D.FieldDefs:=table_S.FieldDefs;
Table_D.IndexDefs.Assign(Table_S.IndexDefs);
Table_D.CreateTable;
BatchMove1.Execute;
Table_D.Open;
ShowMessage('传输成功!');
except
ShowMessage('传输出错!');
end;


prometheusphinx 2001-09-05
  • 打赏
  • 举报
回复
传SQL语句建啊!

5,939

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧