delphi 怎么运行存储过程语句？

Question

像以下语句，我怎么在delphi中运行呢？CREATE TABLE [Ver] (
[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION  NOT NULL ,
[FileName] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[FileVer] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[FileUpdate] [datetime] NULL ,
CONSTRAINT [PK_Ver] PRIMARY KEY  CLUSTERED 
(
[ID]
)  ON [PRIMARY] 
) ON [PRIMARY]
GO这段代码是我在程序运行时，如果数据库没有这个表，则自动新建这个表
那我在delphi中怎么加进去呢？我是用Adoquery控件

Answer 1

  with ADOQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('if object_id(''Ver'') is not null drop table ver');
    SQL.Add('go');
    SQL.add('')--create table加入建表語句
    ExecSQL;
  end;

Answer 2

IF OBJECT_ID (N'Ver', N'U') IS  NULL
CREATE TABLE [Ver] ( 
[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION  NOT NULL , 
[FileName] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , 
[FileVer] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , 
[FileUpdate] [datetime] NULL , 
CONSTRAINT [PK_Ver] PRIMARY KEY  CLUSTERED 
( 
[ID] 
)  ON [PRIMARY] 
) ON [PRIMARY] 
//把以上语句写成字符串赋给AdoQuery.Sql.Text,运行即可

Answer 3

 with ADOQuery1 do 
  begin 
    close; 
    SQL.Clear; 
    SQL.Add('if object_id(''Ver'') is not null drop table ver'); 
    SQL.Add('go'); 
    SQL.add('')--create table加入建表語句 
    ExecSQL; 
  end; 
这用的比较广泛 顶一楼