亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

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

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->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产亚洲精品va在线观看| 日韩精品视频在线播放| 国模视频一区二区| 亚洲图片欧美日产| 欧美肥臀大乳一区二区免费视频| 国产精品1区2区在线观看| 久久精品视频一| 色综合导航网站| 欧美国产日本高清在线| 欧美亚洲成人精品| 亚洲老司机av| 国内精品一区二区三区四区| 国产精品7m视频| 欧美电影免费观看高清| 国产精品国产三级国产专播精品人| 中文字幕亚洲欧美日韩在线不卡| 亚洲精品免费av| 亚洲自拍高清视频网站| 亚洲的天堂在线中文字幕| 国产伊人精品在线| 日韩精品小视频| 亚洲一区二区自拍| 国产欧美欧洲在线观看| 日本一区二区在线播放| 国产精品免费电影| 色综合天天综合网国产成人网| 亚洲综合在线播放| 97在线观看免费| 精品视频在线播放| 国产成人亚洲综合青青| 日韩成人小视频| 欧美激情在线有限公司| 成人网欧美在线视频| 欧美成人剧情片在线观看| 久久精品成人欧美大片古装| 亚洲精品久久久久久久久久久久| 亚洲乱码国产乱码精品精| 日韩精品中文字幕在线播放| 国产精品一区二区久久精品| 国产亚洲aⅴaaaaaa毛片| 亚洲全黄一级网站| 亚洲高清一二三区| 伊人亚洲福利一区二区三区| 91精品国产91久久久久久| 丝袜亚洲另类欧美重口| 亚洲精品久久久久久久久久久久久| 另类天堂视频在线观看| 亚洲最大福利网| 国产精品成人久久久久| 日韩免费中文字幕| 国产精品视频1区| 欧美成在线观看| 久久久精品在线| 亚洲一级黄色片| 日本久久久久亚洲中字幕| 久久久久久美女| 国产一区二区三区视频在线观看| 欧美日韩性生活视频| 欧美电影在线免费观看网站| 日韩在线播放一区| 欧美激情在线狂野欧美精品| 国产精品最新在线观看| 欧美成人一区二区三区电影| 成人国产精品一区二区| 久久在线观看视频| 中文字幕亚洲综合久久| 国产婷婷成人久久av免费高清| 国产日韩换脸av一区在线观看| 欧美激情一级二级| 日韩在线观看免费全集电视剧网站| 免费av在线一区| 日韩欧美在线看| 91高清免费视频| 韩国精品美女www爽爽爽视频| 中文字幕亚洲欧美一区二区三区| 91免费看视频.| 91精品国产综合久久香蕉922| 国产日产亚洲精品| 亚洲成人xxx| 中文一区二区视频| 国产一区欧美二区三区| 亚洲福利精品在线| 久久av.com| 国产精品久久久av| 欧美激情国产精品| www高清在线视频日韩欧美| 亚洲精品大尺度| 热99精品里视频精品| 久久精品亚洲94久久精品| 精品久久久久久久久久| 久久久999精品| 欧美黄色片视频| 高清一区二区三区日本久| 国产一区二区三区在线观看视频| 精品人伦一区二区三区蜜桃免费| 成人做爰www免费看视频网站| 成人情趣片在线观看免费| 国产一区二区黑人欧美xxxx| 亚洲美女www午夜| 亚洲成av人乱码色午夜| 成人做爰www免费看视频网站| 国内精品久久久久久中文字幕| 日韩中文字幕在线精品| 久久精品国产99国产精品澳门| 国产精品永久免费在线| 国产成人a亚洲精品| 日韩av最新在线| 欧美日韩高清区| 色樱桃影院亚洲精品影院| 国产小视频国产精品| 精品久久久91| 国产成人精品午夜| 激情懂色av一区av二区av| 亚洲人午夜色婷婷| 2019中文字幕在线观看| 88xx成人精品| 日韩理论片久久| 国产精品18久久久久久首页狼| 色综合老司机第九色激情| 96pao国产成视频永久免费| 国产精品久久久久av| 成人中心免费视频| 亚洲欧美国产视频| 久久久久久噜噜噜久久久精品| 亚洲夜晚福利在线观看| 亚洲国产精品va| 亚洲男人的天堂网站| 亚洲欧洲黄色网| 欧美性色视频在线| 国产精品入口夜色视频大尺度| 7m第一福利500精品视频| 国产一区二区三区毛片| 国产999精品| 亚洲第一天堂av| 国产精品一区=区| 欧美日韩免费区域视频在线观看| 国产91精品久久久久久| 久久久精品2019中文字幕神马| 亚洲网站在线观看| 亚洲色图50p| 日韩av理论片| 91久久国产精品91久久性色| 中文字幕精品www乱入免费视频| 日韩在线观看网站| 高清欧美性猛交xxxx黑人猛交| 久久久999国产| 欧美三级xxx| 亚洲天堂男人天堂女人天堂| 91av在线免费观看视频| 久久精品2019中文字幕| 欧美另类极品videosbestfree| 亚洲午夜av久久乱码| 欧美日韩国产综合视频在线观看中文| 国产精品人人做人人爽| 日韩有码在线播放| 亚洲欧洲成视频免费观看| 国产一级揄自揄精品视频| 一区二区三区 在线观看视| 国产精品激情av在线播放| 欧美大全免费观看电视剧大泉洋| 久久天天躁狠狠躁夜夜av| 欧美电影在线播放| 久久伊人精品天天| 亚洲精品wwww|