在Informix之下設定獨占性的資料庫比較簡單，主要就是以下指令
DATABASEdatabase-nameEXCLUSIVE
以下FUNCTION是Informix開啟獨占資料庫的方式
'************************************************************
'DbNmae待開啟的資料庫
'UserIDUserID
'PassWDUserPassword
'ExclusiveModeTrue表示以獨占方式開啟
'ErrDescription如果開啟過程有錯，傳回錯誤描述
'傳回值:一個ADBDB.Connection物件，有錯時傳回Nothing
'*************************************************************
PublicFunctionOpenConnection(ByValDbNameAsString,ByValUserIDAsString,_
ByValPassWDAsString,ByValExclusiveMode,ErrDescriptionAsString)AsADODB.Connection
DimcurConnAsNewADODB.Connection,connstrAsString
curConn.Provider="MSDASQL"
connstr="UID=" UserID ";PWD=" PassWD ";Database=" DbName
connstr=connstr _
";Driver={OpenLinkGeneric32BitDriver};"_
"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->
