如何通过delphi的ado组件建立sqlserver2000中的库和库下边的表

[jinfengcui]

如何通过delphi的ado组件建立sqlserver2000中的库和库下边的表,
如:要建立一个price数据库,包括t_price1,t_price2,t_price3三个表,
要求给出程序哟!!
各位GG\JJ请多多关照!

[jinfengcui]

TOMWLD(笑天) :我用adoquery1.ExecSQL执行,但却出现:未能在 sysdatabases 中找到数据库 'price' 所对应的条目。没有找到具有该名称的条目。请确保正确地输入:的提示!这是这么回事??

[MyCrooner]

在ADO面板上拉下一个TADOConnection控件,命名ADOConn,双击,设置要连接的数据库登陆名密码..
AQuery := TADOQuery.Create(self) ;
AQuery.Connection := ADOConn;
Aquery.Close;
aQuery.sql.clear;
aQuery.sql.add('Select * From t_Price1 ');
aQuery.open;
if aQuery.RecordCount >0 then
//可以开干了
else
exit;

[TOMWLD]

用ADOConnection连到master数据库，然后顺序执行下列sql语句：
建库
CREATE DATABASE Price
ON
( NAME = price_dat,
FILENAME = 'c:\program files\microsoft sql server\mssql\data\price.mdf',
SIZE = 4,
MAXSIZE = 10,
FILEGROWTH = 1 )
打开新建的数据库
use price
新建表
CREATE TABLE t_price1 (
pub_id char(4) NOT NULL
CONSTRAINT UPKCL_pubind PRIMARY KEY CLUSTERED
CHECK (pub_id IN ('1389', '0736', '0877', '1622', '1756')
OR pub_id LIKE '99[0-9][0-9]'),
pub_name varchar(40) NULL,
city varchar(20) NULL,
state char(2) NULL,
country varchar(30) NULL
DEFAULT('USA')
)