2013-11-27
Function CreateNormalDB(strPathName As String) As BooleanOn Error GoTo Exit_ERRDim wrkDefault As WorkspaceDim NewDB As DatabaseCreateNormalDB = FalseSet wrkDefault = DBEngineWorkspaces()If Dir(strPathName) <> "" Then Kill strPathNameSet NewDB… http://www.wfuyu.com/access/5260.html
2014-06-09
判断数据库是否存在 if exists (select * from sys.databases where name = '数据库名') drop database [数据库名] 判断表是否存在 if exists (select * from sysobjects where id = object_id(N'[表名]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [表名] 判断存储过程是否存在 if… http://www.wfuyu.com/sqlserver/5247.html
