仓酷云

标题: 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