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个文件是很重要的：

很多书籍啊，不过个人认为看书太慢，还不如自己学。多做实际的东西，就会遇到很多问题，网上搜下解决问题。不断重复这个过程，在配合sql的F1功能。

我们学到了什么？思考问题的时候从表的角度来思考问

备份方面可能还是一个老大难的问题。不能单独备份几个表总是感觉不爽。灵活备份的问题不知道什么时候才能解决。

呵呵，这就是偶想说的

呵呵，这就是偶想说的

多加的系统视图和实时系统信息这些东西对DBA挑优非常有帮助，但是感觉粒度还是不太细。

仓酷云

可以动态传入参数，省却了动态SQL的拼写。

这一点很好的加强了profiler的功能。但是提到profiler提醒大家注意一点。windows2003要安装sp1补丁才能启动profiler。否则点击没有反应。