仓酷云
标题:
MSSQL网页编程之怎样主动公布MS SQL SERVER数据库?
[打印本页]
作者:
冷月葬花魂
时间:
2015-1-16 22:25
标题:
MSSQL网页编程之怎样主动公布MS SQL SERVER数据库?
MySQL是一个开放源码的小型关联式数据库管理系统,开发者为瑞典MySQLAB公司。目前MySQL被广泛地应用在Internet上的中小型网站中。server|数据|数据库
程序编写:陈林茂
‘编写日期:2003-01-01
当您的MIS体系开辟好今后,您怎样尽快的分发您的数据库呢?
上面我将供应VB代码的详细完成:
OptionExplicit
definethesqlconnect
DimoSQLServerAsSQLDMO.SQLServer
DimoCurrentDBAsSQLDMO.Database
DimoCurrentTableAsSQLDMO.Table
DimoTestIdxAsSQLDMO.Index
sqlDmoisConnectedYesorNo
PublicsNameAsString
PrivateIsConnectedAsBoolean
connecttolocaldatabaseserver
PublicFunctionConnectDmo()AsBoolean
OnErrorGoToHandleError
Ifwereconnected,thendisconnectandclearlists.
IfIsConnected=TrueThen
oSQLServer.DisConnect
IsConnected=False
EndIf
Beginconnecttosqlserverormsde
Attemptaconnection,thenfillthepropertiesstuff.
oSQLServer.ApplicationName="SQL-DMOIndexTest"
oSQLServer.LoginSecure=True
connect
oSQLServer.Connect"(local)","sa",""
IsConnected=True
ConnectDmo=True
HandleError:
connectfailth
IfIsConnected=FalseThen
IsConnected=False
ConnectDmo=False
EndIf
EndFunction
addaexistsdatabasetoserver
PublicFunctionAddDataBase(ByValdbNameAsString,ByValDBPathAsString,ByValrstrAsString)AsBoolean
Dimrstring
rstring=oSQLServer.AttachDBWithSingleFile(dbName,DBPath)
rstring=oSQLServer.AttachDB(dbName,DBPath)
AddDataBase=True
rstr=rstring
EndFunction
deletetheexistsdatabase
PublicFunctionDelDataBase(ByValdbNameAsString)AsBoolean
Dimrstring
rstring=oSQLServer.DetachDB(dbName)
DelDataBase=True
EndFunction
PrivateSubUserControl_Initialize()
OnErrorGoTomerror
SetoSQLServer=NewSQLDMO.SQLServer
oSQLServer.LoginTimeout=15
oSQLServer.ODBCPrefix=False
Name="msdeconn1"
merror:
EndSub
PublicFunctionisDBexists(ByValdbNameAsString)AsBoolean
DimoDBAsSQLDMO.Database
DimrcAsBoolean
reconnecttodatabase
oSQLServer.DisConnect
oSQLServer.ReConnect
rc=False
ForEachoDBInoSQLServer.Databases
IfoDB.SystemObject=FalseThen
IfTrim(UCase(oDB.Name))=Trim(UCase(dbName))Then
rc=True
EndIf
EndIf
NextoDB
setthereturnvalue
isDBexists=rc
EndFunction
PrivateSubUserControl_Terminate()
endconnectthedatabase
oSQLServer.Close
EndSub
PublicFunctionstartServer()
oSQLServer.StartTrue
EndFunction
PublicSubstopserver()
oSQLServer.Stop
EndSub
PublicPropertyGetName()AsVariant
Name=sName
EndProperty
PublicPropertyLetName(ByValvNewValueAsVariant)
sName=vNewValue
EndProperty
在执行崩溃恢复时,理解在一个数据库中的每一个表tbl_name对应的在数据库目录中的3个文件是很重要的:
作者:
再见西城
时间:
2015-1-19 11:10
很多书籍啊,不过个人认为看书太慢,还不如自己学。多做实际的东西,就会遇到很多问题,网上搜下解决问题。不断重复这个过程,在配合sql的F1功能。
作者:
飘灵儿
时间:
2015-1-24 13:18
我们学到了什么?思考问题的时候从表的角度来思考问
作者:
金色的骷髅
时间:
2015-2-1 15:59
备份方面可能还是一个老大难的问题。不能单独备份几个表总是感觉不爽。灵活备份的问题不知道什么时候才能解决。
作者:
海妖
时间:
2015-2-7 07:33
呵呵,这就是偶想说的
作者:
灵魂腐蚀
时间:
2015-2-21 01:19
呵呵,这就是偶想说的
作者:
柔情似水
时间:
2015-3-6 19:32
多加的系统视图和实时系统信息这些东西对DBA挑优非常有帮助,但是感觉粒度还是不太细。
作者:
仓酷云
时间:
2015-3-13 06:42
可以动态传入参数,省却了动态SQL的拼写。
作者:
谁可相欹
时间:
2015-3-20 15:28
这一点很好的加强了profiler的功能。但是提到profiler提醒大家注意一点。windows2003要安装sp1补丁才能启动profiler。否则点击没有反应。
欢迎光临 仓酷云 (http://ckuyun.com/)
Powered by Discuz! X3.2