（17:30前在线等候）delphi中如何使用 ‘Create table ...’在DBMS中建立表？

Question

写如下SQL语句：
  CREATE TABLE tableName
         ( ID         SMALLINT        NOT NULL,
           NAME       VARCHAR(9),
           DEPT       SMALLINT WITH DEFAULT 10,
           JOB        CHAR(5),
           YEARS      SMALLINT,
           SALARY     DECIMAL(7,2),
           COMM        DECIMAL(7,2),
           BIRTH_DATE      DATE)

Answer 1

用Tquery 控件
procedure TForm1.Button1Click(Sender: TObject);
begin
  with query1 do
  begin
    with sql do
    begin
      clear;
      add('CREATE TABLE [dbo].[authors] (');
      add('[au_id] [id] NOT NULL ,');
      add('[au_lname] [varchar] (40) COLLATE Chinese_PRC_CI_AS NOT NULL ,     ');
      add('[au_fname] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,  ');
      add('[phone] [char] (12) COLLATE Chinese_PRC_CI_AS NOT NULL ,     ');
      add('[address] [varchar] (40) COLLATE Chinese_PRC_CI_AS NULL , ');
      add('[city] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL , ');
      add('[state] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , ');
      add('[zip] [char] (5) COLLATE Chinese_PRC_CI_AS NULL ,');
      add('[contract] [bit] NOT NULL');
      add(') ON [PRIMARY]');
    end
    ExecSQL;
  end;
end;

Answer 2

adoc:=CreateOleObject('adodb.connection');
  adoc.open('Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=库名;Data Source=服务器名称或者IP');
  ador:=createoleobject('adodb.RecordSet');
  ador.Open('select * from 表名',adoc,3,3,0001);
/////////////////////////////////////////// adoc:=CreateOleObject('adodb.connection');
 adoc.open(Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=sa;Initial Catalog=库名;Data Source=服务器名称或者IP');
  ador:=createoleobject('adodb.RecordSet');
  ador.Open('select * from 表名',adoc,3,3,0001);
这样就可以连接了！你试试再说！
在use 中加入comobj,activeX

Answer 3

to CeleronII(抽烟的鱼):
你写的sql 语句如何从delphi传向dbms呢？