|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
关于这个理由我把它放在最后一位。在很多业界专家中有一个相当一致的观点:MySQL不能很好的扩展。关于这点可能有很大的分歧,争论的焦点主要集中于水平可扩展性和垂直可扩展性上。MySQL则更倾向于垂直可扩展性。tmtony翻译:
在ACCESS的匡助文件中申明CreateProperty办法的语法:
Setproperty=object.CreateProperty(name,type,value,DDL)
实在最初一个参数是这个注释的(部分形貌):
DDL可选.一个变量(逻辑子范例)指定这个属性是不是为DDL工具.短少值为False.假如设置为TRUE,除非他有dbSecWriteDef权限,用户就不克不及改动或删除这个属性
CreateProperty是用来创立或设置AllowBypassKey属性假如这个属性设为TRUE,那就能够禁用户近SHIFT键来克制启动属性和AutoExec宏.但是,ACCESS匡助中供应的例子没有利用第四个DDL参数.这意味着任何人都能够翻开数据据然后用程序复位AllowBypassKey属性.
以是,为了限定一般用户往改动这个属性,以是我们设置第四个参数为TRUE。
为了对照,我们也同时列出了ACCESS自己的例子以便参照
***********CodeStart***********
FunctionChangePropertyDdl(stPropNameAsString,_
PropTypeAsDAO.DataTypeEnum,vPropValAsVariant)_
AsBoolean
UsestheDDLargumenttocreateaproperty
thatonlyAdminscanchange.
CurrentCreatePropertylistinginAccesshelp
isflawedinthatanyonewhocanopenthedb
canresetproperties,suchasAllowBypassKey
OnErrorGoToChangePropertyDdl_Err
DimdbAsDAO.Database
DimprpAsDAO.Property
ConstconPropNotFoundError=3270
Setdb=CurrentDb
Assumingthecurrentpropertywascreatedwithout
usingtheDDLargument.Deleteitsowecan
recreateitproperly
db.Properties.DeletestPropName
Setprp=db.CreateProperty(stPropName,_
PropType,vPropVal,True)
db.Properties.Appendprp
Ifwemadeitthisfar,itworked!
ChangePropertyDdl=True
ChangePropertyDdl_Exit:
Setprp=Nothing
Setdb=Nothing
ExitFunction
ChangePropertyDdl_Err:
IfErr.Number=conPropNotFoundErrorThen
Wecanignorewhenthepropdoesnotexist
ResumeNext
EndIf
ResumeChangePropertyDdl_Exit
EndFunction
匡助自己的例子
FunctionChangeProperty(strPropNameAsString,_
varPropTypeAsVariant,varPropValueAsVariant)AsInteger
ThecurrentlistinginAccesshelpfilewhichwill
letanyonewhocanopenthedbdelete/resetany
propertycreatedbyusingthisfunction,since
thecalltoCraetePropertydoesntusetheDDL
argument
DimdbsAsDatabase,prpAsProperty
ConstconPropNotFoundError=3270
Setdbs=CurrentDb
OnErrorGoToChange_Err
dbs.Properties(strPropName)=varPropValue
ChangeProperty=True
Change_Bye:
ExitFunction
Change_Err:
IfErr=conPropNotFoundErrorThenPropertynotfound.
Setprp=dbs.CreateProperty(strPropName,_
varPropType,varPropValue)
dbs.Properties.Appendprp
ResumeNext
Else
Unknownerror.
ChangeProperty=False
ResumeChange_Bye
EndIf
EndFunction
***********CodeEnd***********
在我们工作的过程中,经常能听到很多不使用MySQL的理由,虽然其中有一些是对MySQL的误解,不过同样也有一些是合情合理的。 |
|