国产探花免费观看_亚洲丰满少妇自慰呻吟_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->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 临武县| 南澳县| 麻城市| 土默特左旗| 乌鲁木齐市| 盘锦市| 宿迁市| 宜黄县| 凯里市| 泸溪县| 宜兰县| 通江县| 北票市| 枣庄市| 大港区| 晋江市| 曲阜市| 阳城县| 辽阳县| 翼城县| 太白县| 项城市| 青田县| 仁怀市| 巴林右旗| 印江| 元阳县| 抚顺县| 文安县| 霞浦县| 古田县| 衡山县| 页游| 刚察县| 岫岩| 灵宝市| 河东区| 漠河县| 久治县| 江源县| 清镇市|