'程式編寫:陳林茂
『編寫日期: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,...