|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
采用DBaaS解决方案,他们也可以使用同大企业一样的技术。在大型组织中,DBaaS可以提供部门级解决MySQL学习教程,而无需IT部门和采购部门的介入,提供更快和更容易的方法来实现小型解决方案。2004/07/27朱彦志(goodidea)myad@yeah.net
你是不是十分厌恶用&一年夜串的毗连变量?
你是不是不能不常常利用""与""""?
就仿佛如许:
strFilter=strFilter&"and["&strFldname&"]like"""&strValue&""""
strSql="insertintotblpubStyle(Class,Prop,Value,Type,[Set],memo,flag)values("&_
ctl.ControlType&","&_
prp.Name&","&_
prp.Value&","&_
prp.Type&","&_
2&","&_
","&_
false")"
strCnn="Provider=sqloledb;"&_
"DataSource="&strServerName&";"&_
"InitialCatalog="&strDbname&";"&_
"UserId="&strUid&";"&_
"Password="&strPwd&";"
用它,gCombinationString,这个非常复杂的函数,让冗杂的代码更简便,加强语句可读性
以下是它的利用典范情势:
strFilter=gCombinationString("$1and[$2]like""$3""",strFilter,strFldname,strValue)
strCnn=gCombinationString("Provider=sqloledb;DataSource=$1;InitialCatalog=$2;UserId=$3;Password=$4;",_
strServerName,strDbname,strUid,strPwd)
参数个数不限,参数范例不限
strSql=gCombinationString("insertintotblpubStyle(Class,Prop,Value,Type,[Set],memo,flag)"&_
"values($1,$2,$3,$4,$5,$6)",_
ctl.ControlType,prp.Name,prp.Value,prp.Type,2,False)
ConststrCharPre="$"
DimvarItemAsVariant
DimiAsInteger
i=0
ForEachvarItemInPara
i=i+1
strText=VBA.Replace(strText,strCharPre&i,varItem)
strText=VBA.Replace(strText,strCharPre&"",strCharPre)
Next
gCombinationString=strText
EndFunction
如果你需要额外的功能的话,MySQL的普及性实际上可以让你发现总有一个厂商会提供准确的解决方案,而这个方案会满足你的需要和需求。 |
|