如何自動發布MSSQLSERVER?

2021-06-16 01:04:13 字數 2199 閱讀 4697

'程式編寫:陳林茂

『編寫日期:2003-01-01

當您的mis系統開發好以後,您如何盡快的分發您的資料庫呢?

下面我將提供vb**的具體實現:

optionexplicit

'definethesqlconnect

dimosqlserverassqldmo.sqlserver

dimocurrentdbassqldmo.database

dimocurrenttableassqldmo.table

dimotestidxassqldmo.index

'sqldmoisconnectedyesorno

publicsnameasstring

privateisconnectedasboolean

'connecttolocaldatabaseserver

publicfunctionconnectdmo()asboolean

onerrorgotohandleerror

'ifwe'reconnected,thendisconnectandclearlists.

ifisconnected=truethen

osqlserver.disconnect

isconnected=false

endif

'beginconnecttosqlserverormsde

'attemptaconnection,thenfillthepropertiesstuff.

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共2頁  1 

SVN 自動發布

實現過程,是使用了svn的乙個hook的功能,我們呼叫了 post commit 來做一些當提交完成後的操作。1.在版本庫的hooks目錄下面,有一些基於事件觸發的執行指令碼,比如post commit,去掉字尾.tmpl bin sh repos 1 rev 2 export path usr l...

SVN Jenkins自動發布

最近公司專案處於開發階段,很多功能開發完後就需要發布到測試環境等待測試去驗收,這個時候如果手動更新 的話,是很費時費力的。於是乎,我們做成了自動發布,這樣我們只管提交 到svn就行了,發布由軟體自動完成。接下來就講下,如何實現svn的自動發布。下面就簡單介紹下如何配置和使用 在瀏覽器訪問 http ...

linux Qt 版本自動發布

使用svn管理 由於要發布新的版本,一般的版本號又就是svn的流水號,所以要得到svn的最新流水號寫到 的乙個檔案裡,再在編譯 的時候把這個檔案編譯進去就行了。sudo apt get install subversionsudo svn co projects xx 原因 原來有隱藏檔案.svn,...