用TAdoCommand,TAdoQuery都可以创建表的。下面例子用Tadoquery创建一个address表(其中 id为主键)。tadocommand和tadoquery差不多,只是改改commandtext,然后Execute就行了。 procedure TForm1.Button1Click(Sender: TObject); begin With ADOQuery1 do begin Active :=false; sql.Clear ; sql.Add ('create table address(id integer IDENTITY (1, 1) NOT NULL, name varchar,nickname varchar,sex varchar,primary key(id))'); Execsql; end; end;