'-------------------创建数据库----------------------------

Dim Cn As Connection
Dim Rs As New ADODB.Recordset
Dim connstr As String
connstr = "Driver={sql Server};Server=" & strServer & ";Uid=" & strUser & ";Pwd=" & strPwd & ";"
Set Cn = New Connection
Cn.Open connstr

sqlStr = "select Name from dbo.sysdatabases where Name = '数据库名'"

Set Rs = New Recordset
Rs.Open sqlStr,Cn,adOpenKeyset,adLockOptimistic

If Rs.RecordCount = 0 Then
'数据库不存在，则创建数据库
Rs.Close
Cn.BeginTrans
sqlStr = "Create Database 数据库名"
Cn.Execute sqlStr
Cn.CommitTrans
Else
Rs.Close
End If

'sqlStr = "select Name from dbo.sysdatabases where Name = '数据表名'"

'如果无则可以创建数据表

'判断是否为主键的方法
Rs.Fields(0).Properties '判断是否为主键的方法
ado的Recordset的fields的properties里好像有判断是否是主键的，
你自己查查，
Rs.Fields(intIndex).Properties("KEYCOLUMN").Value = True

'-------------------创建数据表----------------------------

W3School:http://www.w3school.com.cn/sql/sql_create_table.asp

W3School2:http://www.w3school.com.cn/sql/sql_intro.asp

sql="create table nam(id int identity(1,1),ACCT_ID char(255),ACC_NBR float,ACC_FLAG char(255),SERV_NAME char(255),BILLING_FLAG_ID float,COUNTRY_FLAG float,DEVICE_TERM_TYPE char(255),ZFY money,FY1 money,FY2 money,FY3 money,FY5 money,FY8 money,FY6 money,CHARGE40 money,CHARGE4003 money,CHARGE50 money,CHARGE5001 money)"
conn.execute(sql)

'-------事务------

BeginTrans 启动新的事务。
CommitTrans 保存所有更改并结束当前事务。它也可以启动新事务。
RollbackTrans 取消当前事务中所做的任何更改并结束事务。它也可以启动新事务。

'------------常见SQL语句-创建表 添加主键 添加列----------------------

新建表：
create table [表名]
(
[自动编号字段] int IDENTITY (1,1) PRIMARY KEY,
[字段1] nVarChar(50) default \'默认值\' null,
[字段2] ntext null,
[字段3] datetime,
[字段4] money null,
[字段5] int default 0,
[字段6] Decimal (12,4) default 0,
[字段7] image null,
)

删除表：
Drop table [表名]

插入数据：
INSERT INTO [表名] (字段1,字段2) VALUES (100,\'51WINDOWS.NET\')

删除数据：
DELETE FROM [表名] WHERE [字段名]>100

更新数据：
UPDATE [表名] SET [字段1] = 200,[字段2] = \'51WINDOWS.NET\' WHERE [字段三] = \'HAIWA\'

新增字段：
ALTER TABLE [表名] ADD [字段名] NVARCHAR (50) NULL

删除字段：
ALTER TABLE [表名] DROP COLUMN [字段名]

修改字段：
ALTER TABLE [表名] ALTER COLUMN [字段名] NVARCHAR (50) NULL

重命名表：(Access 重命名表，请参考文章：在Access数据库中重命名表)
sp_rename \'表名\',\'新表名\',\'OBJECT\'

新建约束：
ALTER TABLE [表名] ADD CONSTRAINT 约束名 CHECK ([约束字段] <= \'2000-1-1\')

删除约束：
ALTER TABLE [表名] DROP CONSTRAINT 约束名

新建默认值
ALTER TABLE [表名] ADD CONSTRAINT 默认值名 DEFAULT \'51WINDOWS.NET\' FOR [字段名]

删除默认值
ALTER TABLE [表名] DROP CONSTRAINT 默认值名

删除sql Server 中的日志，减小数据库文件大小
dump transaction 数据库名 with no_log
backup log 数据库名 with no_log
dbcc shrinkdatabase(数据库名)
exec sp_dboption \'数据库名\',\'autoshrink\',\'true\'

\\\'添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
Conn.Execute(\"Alter Table \"&TableName&\" Add \"&ColumnName&\" \"&ColumnType&\"\")
End Sub

\\\'更改字段通用函数
Sub ModColumn(TableName,ColumnType)
Conn.Execute(\"Alter Table \"&TableName&\" Alter Column \"&ColumnName&\" \"&ColumnType&\"\")
End Sub

\\\'检查表是否存在

sql=\"select count(*) as dida from sysobjects where id = object_id(N\'[所有者].[表名]\') and OBJECTPROPERTY(id,N\'IsUserTable\') = 1\"

set rs=conn.execute(sql)

response.write rs(\"dida\")\'返回一个数值，0代表没有，1代表存在

判断表的存在:
select * from sysobjects where id = object_id(N\'[dbo].[tablename]\') and OBJECTPROPERTY(id,N\'IsUserTable\') = 1

某个表的结构
select * from syscolumns where id = object_id(N\'[dbo].[你的表名]\') and OBJECTPROPERTY(id,N\'IsUserTable\') = 1