国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

ADO設定獨占性的資料庫

2019-11-18 17:40:07
字體：大 中 小
來源：轉載
供稿：網友
在Informix之下設定獨占性的資料庫比較簡單，主要就是以下指令

DATABASEdatabase-nameEXCLUSIVE
以下FUNCTION是Informix開啟獨占資料庫的方式
'************************************************************
'DbNmae待開啟的資料庫
'UserIDUserID
'PassWDUserPassWord
'ExclusiveModeTrue表示以獨占方式開啟
'ErrDescrPublicFunctionOpenConnection(ByValDbNameAsString,ByValUserIDAsString,_
ByValPassWDAsString,ByValExclusiveMode,ErrDescriptionAsString)AsADODB.Connection
DimcurConnAsNewADODB.Connection,connstrAsString
curConn. "Host=192.168.0.61;"_
";FetchBufferSize=30"_
";NoLoginBox=Yes"_
";Options="_
";Protocol=TCP/IP"_
";ReadOnly=No"_
";ServerOptions="_
";ServerType=Informix7.2"

curConn.ConnectionString=connstr
OnErrorGoToerrh:
curConn.Open
IfExclusiveModeThen
curConn.Execute"DATABASE" DbName "EXCLUSIVE"
EndIf
ErrDescription=""
SetOpenConnection=curConn
ExitFunction
errh:
IfcurConn.State=adStateOpenThen
curConn.Close
EndIf
ErrDescription=Err.Description
SetcurConn=Nothing
EndFunction

使用方式

Setcn=OpenConnection("cwwpf@eis","cww","jjh5612",True,Errstr)
IfcnIsNothingThen
MsgBoxErrstr
EndIf
而SQLServer就沒有那樣容易，我們知道有一個systemstoredprocedure

SP_DBOPTIONdatabase-name,'SingleUser',TRUE'設定SingleUserMode
SP_DBOPTIONdatabase-name,'SingleUser',FALSE'設定MultiUserMode

不過這里有許多點要注意：
1.必需是sa才有權
2.透過OLEDBProvider來做時不會成功(forSQL6.5)
3.如下面的范例中，雖我們成功的設定了SingleUserMode，但不表示我們接下來
的建立連線會成功。說不定在設為單一使用者後，還來不及建立另外的連線時，就
有其他的Process先進入該資料庫。
4.我曾經使用同一個Connection先將DataBase設為SingleUserMode而後再以該Connection
來開啟資料庫，OpenRecordset，但是有時會發生問題，因而沒有Release出來

SetOK=SetSingleUserMode("cwwtest",False,Errstr)
IfSetOKThen
Debug.Print"ok"
Else
MsgBoxErrstr,vbCritical
EndIf
'********************************************************
'DbName:資料庫名稱
'SingleMode:是否設為SingleUserMode
'ErrDescription:如果有錯，傳回錯誤訊息
'值回值：成功為True否則為Fallse
'********************************************************
PublicFunctionSetSingleUserMode(ByValDbNameAsString,ByValSingleModeAsBoolean,ErrDescriptionAsString)AsBoolean
DimsaConnAsNewADODB.Connection
DimconnstrAsString
Dimcmd3AsNewADODB.Command
DimParamAsADODB.Parameter

connstr="Driver={SQLServer};UID=sa;PWD=jjh5612;Server=OPEN_VIEW;Database=master"
saConn.Provider="MSDASQL"
'connstr="DataSource=OPEN_VIEW;User=sa;Password=jjh5612;InitialCatalog=master"
'saConn.Provider="SQLOLEDB"
saConn.ConnectionString=connstr
saConn.Open
Setcmd3=NewADODB.Command
cmd3.CommandText="sp_dboption?,'SingleUser',?"
cmd3.CommandType=adCmdText
SetParam=cmd3.CreateParameter("ParaDBName",adBSTR,adParamInput)
cmd3.Parameters.AppendParam
SetParam=cmd3.CreateParameter("ParaSingleMode",adBSTR,adParamInput)
cmd3.Parameters.AppendParam
cmd3.Parameters(0).Value=DbName
IfSingleModeThen
cmd3.Parameters(1).Value="True"
Else
cmd3.Parameters(1).Value="False"
EndIf
Setcmd3.ActiveConnection=saConn
OnErrorGoToerrh
cmd3.Execute
ErrDescription=""
SetSingleUserMode=True
saConn.Close
ExitFunction
errh:
ErrDescription=Err.Description
SetSingleUserMode=False
saConn.Close
EndFunction->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 固始县| 江油市| 忻城县| 金阳县| 余江县| 威宁| 丘北县| 富蕴县| 锡林浩特市| 台山市| 丰台区| 阳朔县| 周宁县| 邢台市| 象州县| 三原县| 宣威市| 鄯善县| 贵南县| 娱乐| 十堰市| 牙克石市| 安康市| 隆尧县| 大田县| 武功县| 高雄市| 平阴县| 远安县| 博爱县| 弥渡县| 甘泉县| 安化县| 泰州市| 扎兰屯市| 石屏县| 隆德县| 西青区| 逊克县| 新丰县| 荣昌县|