在线管理数据库 类(15)

'ManDb.Execute "delete空格From cexo255 Where Name = 2"                                '删除记录
'ManDb.Execute("Select Count(*) From cexo255"):Response.Write ManDb.Count        '统计记录个数
'If ManDb.CheckTable("StudInfo") THen Response.Write "StudInfo表存在！！！" Else Response.Write "StudInfo表不存在！！！"
'//-----------End--------------------------
'//---------连接Access数据库--------------
ManDb.DBType = "ACCESS"
ManDb.DBPath = "test.mdb"
'ManDb.CreateDBfile "test2.mdb",""                '建立数据库（数据库名，保存路径）
'ManDb.DeleteDBFile("test2.mdb")                '删除数据库（数据库名）
'ManDb.RenameDBFile "test2.mdb","test3.mdb"        '数据库改名（旧数据库名，新数据库名）
'ManDb.CompactDBFile("test3.mdb")                '压缩数据库（数据库名）
'ManDb.CreateTable "dw",""                        '建立表（表名）
'ManDb.ReNameTable "dw","dw2"                    '表改名（旧表名，新表名）(用组件)_
'ManDb.DelTable "dw"                            '删除表（表名）
'ManDb.AddColumn "cexo255", "name", "varchar(255) Not null"                    '建立表结构（表名，字段名，数据类型）
'ManDb.ModColumn "cexo255", "name", "int Not null"                            '修改表结构（表名，字段名，新数据类型）
'ManDb.DelColumn "cexo255", "name"                                            '删除表结构（表名，字段名）
'ManDb.AddIndex "cexo255", "UserID", "ID"            '建立表索引（表名，索引名，索引字段名）