锘??xml version="1.0" encoding="utf-8" standalone="yes"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/"><channel><title>&#20122;&#27954;&#29087;&#22919;&#97;&#118;&#19968;&#21306;&#20108;&#21306;&#19977;&#21306;&#19979;&#36733;&#44;&#22269;&#20135;&#25104;&#20154;&#32508;&#21512;&#20122;&#27954;&#19968;&#21306;&#44;&#20122;&#27954;&#65;&#86;&#26080;&#30721;&#19987;&#21306;&#30005;&#24433;&#22312;&#32447;&#35266;&#30475;</title><link>http://www.tkk7.com/yczz/category/19205.html</link><description /><language>zh-cn</language><lastBuildDate>Wed, 28 Feb 2007 03:14:44 GMT</lastBuildDate><pubDate>Wed, 28 Feb 2007 03:14:44 GMT</pubDate><ttl>60</ttl><item><title>VB瀹炵幇SQL SERVER2000鏁版嵁搴撳浠借繕鍘?/title><link>http://www.tkk7.com/yczz/articles/93658.html</link><dc:creator>椋為笩</dc:creator><author>椋為笩</author><pubDate>Sat, 13 Jan 2007 13:25:00 GMT</pubDate><guid>http://www.tkk7.com/yczz/articles/93658.html</guid><wfw:comment>http://www.tkk7.com/yczz/comments/93658.html</wfw:comment><comments>http://www.tkk7.com/yczz/articles/93658.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.tkk7.com/yczz/comments/commentRss/93658.html</wfw:commentRss><trackback:ping>http://www.tkk7.com/yczz/services/trackbacks/93658.html</trackback:ping><description><![CDATA[*********************************************************<br />'* 鍚嶇О錛欱ackupDatabase<br />'* 鍔熻兘錛氬浠芥暟鎹簱<br />'* 鎺т歡錛氫竴涓枃鏈鍜屼袱涓寜閽紙澶囦喚鍒板拰紜畾錛?br />'*********************************************************<br />Public Sub BackupDatabase()<br />Dim cn As New ADODB.Connection<br />Dim s_path, s_dataexport As String<br />s_path = App.Path<br />Me.MousePointer = 11聽 聽'璁劇疆榧犳爣鎸囬拡褰㈢姸<br />'student1鏄渶瑕佸浠界殑鏁版嵁搴撳悕縐?br />s_dataexport = "backup database student1 to disk='" + CommonDialog1.FileName + "'"<br />cn.Open "driver={sql server};server=" &amp; d1 &amp; ";database=student1;persist security info=false; userid=sa"聽聽'鏁版嵁搴撹繛鎺ュ瓧絎︿覆<br />'榪欓噷涓嶉渶瑕佽繛鎺aster鏁版嵁搴擄紝鍗沖彲瀹屾垚澶囦喚<br />cn.BeginTrans<br />cn.Execute s_dataexport<br />Err.Number = 0<br />If Err.Number = 0 Then<br />聽 聽 cn.CommitTrans<br />聽 聽 MsgBox "鏁版嵁澶囦喚鎴愬姛錛?, vbInformation, "鎻愮ず"<br />聽 聽 MsgBox "鏁版嵁澶囦喚鏂囦歡瀛樻斁璺緞:" &amp; CommonDialog1.FileName, vbOKOnly, "鎻愮ず"<br />聽 聽 Unload Me<br />Else<br />聽 聽 cn.RollbackTrans<br />聽 聽 MsgBox "鏁版嵁澶囦喚澶辮觸錛佽媯�鏌ユ暟鎹簱鏄惁姝ｅ湪鎵撳紑錛?, vbCritical, "鎻愮ず"<br />End If<br />cn.Close<br />Set cn = Nothing<br />Me.MousePointer = 1<br />End Sub<br /><br /><br /><br />'*********************************************************<br />'* 鍚嶇О錛歊estoreDataBase<br />'* 鍔熻兘錛氳繕鍘熸暟鎹簱<br />'* 鎺т歡錛氫竴涓枃鏈鍜屼袱涓寜閽紙 鎵撳紑鍜岀‘瀹氾級<br />'*********************************************************<br />Public Sub RestoreDataBase()<br />If Text1.Text = "" Then<br />聽 聽 MsgBox "璇烽�夋嫨瑕佹仮澶嶇殑鏁版嵁鏂囦歡錛?, vbInformation, "鎻愮ず"<br />聽 聽 Exit Sub<br />Else<br />聽 聽 ret = MsgBox("鏁版嵁鎭㈠鎿嶄綔灝嗕細瑕嗙洊浠ュ墠鐨勬墍鏈夋暟鎹茍涓旇鐩栧悗鏃犳硶鎭㈠錛屾偍紜畾瑕佽繘琛屾仮澶嶆搷浣滃悧錛?, vbQuestion + vbOKCancel, "鎻愮ず")<br />聽 聽 If ret = vbOK Then<br />聽 聽聽 聽 Dim cn As New ADODB.Connection<br />聽 聽聽 聽 Dim sn As New ADODB.Recordset<br />聽 聽聽 聽 Dim s_restore As String<br />聽 聽聽 聽 Me.MousePointer = 11<br />聽 聽聽 聽 cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;server=" &amp; d1 &amp; ";Initial Catalog=master;Data Source=127.0.0.1;user id=sa;password=" &amp; d3 &amp; ""<br />聽 聽聽 聽 sn.Open "select聽聽spid聽聽from聽聽sysprocesses聽聽where聽聽dbid=db_id('student1')", cn<br />聽 聽聽 聽聽聽Do While Not sn.EOF<br />聽 聽聽 聽聽 聽 cn.Execute "kill " &amp; sn("spid")<br />聽 聽聽 聽聽 聽 sn.MoveNext<br />聽 聽聽 聽聽聽Loop<br />聽 聽聽 聽聽聽sn.Close<br />聽 聽聽 聽聽聽s_restore = "restore database student1 from disk='" + Trim(Text1.Text) + "'聽聽with REPLACE"<br />聽 聽聽 聽聽聽cn.Execute s_restore<br />聽 聽聽 聽聽 聽'Debug.Print gs_conn_string<br />聽 聽聽 聽聽 聽'姝ゆ椂闇�瑕佽繛鎺aster鏁版嵁搴撴墠鑳藉畬鎴愭暟鎹仮澶嶆搷浣?br />聽 聽聽 聽聽 聽'鍚屼笂student1涓洪渶瑕佹仮澶嶇殑鏁版嵁搴?br />聽 聽聽 聽聽聽s_restore = "restore database student1 from disk='" + Trim(Text1.Text) + "'"<br />聽 聽聽 聽聽 聽'text1涓�涓敤浜庤褰曢渶瑕佹仮澶嶆枃浠剁殑鍦板潃鐨則extbox<br />聽 聽聽 聽聽聽cn.Execute s_restore<br />聽 聽聽 聽聽聽cn.BeginTrans<br />聽 聽聽 聽聽聽If Err.Number = 0 Then<br />聽 聽聽 聽聽 聽聽 聽cn.CommitTrans<br />聽 聽聽 聽聽 聽聽 聽MsgBox "鏁版嵁鎭㈠鎴愬姛錛?, vbInformation, "鎻愮ず"<br />聽 聽聽 聽聽 聽聽 聽Command1.Enabled = True<br />聽 聽聽 聽聽 聽聽 聽Label1.Visible = False<br />聽 聽聽 聽聽聽Else<br />聽 聽聽 聽聽 聽聽 聽cn.RollbackTrans<br />聽 聽聽 聽聽 聽聽 聽MsgBox "鏁版嵁鎭㈠澶辮觸錛?, vbCritical, "鎻愮ず"<br />聽 聽聽 聽聽 聽聽 聽Command1.Enabled = True<br />聽 聽聽 聽聽聽End If<br />聽 聽聽 聽聽聽cn.Close<br />聽 聽聽 聽聽聽Set cn = Nothing<br />聽 聽聽 聽聽聽Me.MousePointer = 1<br />聽 聽 Else<br />聽 聽聽 聽聽聽Exit Sub<br />聽 聽 End If聽 聽聽 聽聽 聽聽 聽聽 聽聽 聽聽 聽 '''''''''''''''''''''''''''''''''''''''''<br />聽 聽 On Error Resume Next<br />聽 聽 Dim DBC As New DataBaseConnection<br />聽 聽 If db.State = 1 Then<br />聽 聽聽 聽 db.Close<br />聽 聽 End If<br />聽 聽 db.ConnectionString = DBC.SqlConnectString(d1, d2, d3)<br />聽 聽 rs.CursorType = adOpenDynamic<br />聽 聽 rs.CursorLocation = adUseClient<br />聽 聽 rs.LockType = adLockOptimistic<br />聽 聽 db.CursorLocation = adUseClient<br />聽 聽 db.Open<br />聽 聽 Set cmd.ActiveConnection = db<br />聽 聽 If Err.Number Then<br />聽 聽聽 聽 MsgBox Err.Description, 16 + vbOKOnly, Err.Number<br />聽 聽聽 聽 Exit Sub<br />聽 聽 End If<br />聽 聽 db.DefaultDatabase = "student1"<br />聽 聽 If Err.Number Then<br />聽 聽聽 聽 MsgBox Err.Description, 16 + vbOKOnly, Err.Number<br />聽 聽聽 聽 Exit Sub<br />聽 聽 End If<br />End If<br />End Sub聽 聽聽 聽聽 聽聽 聽聽 聽聽 聽聽 聽 '''''''''''''''''''''''''''''''''''''''''''''<img src ="http://www.tkk7.com/yczz/aggbug/93658.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.tkk7.com/yczz/" target="_blank">椋為笩</a> 2007-01-13 21:25 <a href="http://www.tkk7.com/yczz/articles/93658.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item></channel></rss>            <footer>
<div class="friendship-link">
<p>感谢您访问我们的网站，您可能还对以下资源感兴趣：</p>
<a href="http://www.tkk7.com/" title="&#20122;&#27954;&#97;&#118;&#25104;&#20154;&#29255;&#22312;&#32447;&#35266;&#30475;">&#20122;&#27954;&#97;&#118;&#25104;&#20154;&#29255;&#22312;&#32447;&#35266;&#30475;</a>

<div class="friend-links">


</div>
</div>

</footer>

主站蜘蛛池模板：
<a href="http://www-kj5799.com" target="_blank">拍拍拍无挡免费视频网站</a>|
<a href="http://fl6fe.com" target="_blank">亚洲av中文无码字幕色不卡</a>|
<a href="http://www6yg6yg.com" target="_blank">产传媒61国产免费</a>|
<a href="http://88bgbg.com" target="_blank">日韩免费视频一区</a>|
<a href="http://lianghao999.com" target="_blank">亚洲欧美日韩综合久久久</a>|
<a href="http://5gg1.com" target="_blank">男人的好看免费观看在线视频</a>|
<a href="http://zcrencai.com" target="_blank">亚洲综合男人的天堂色婷婷</a>|
<a href="http://www19977.com" target="_blank">免费观看国产网址你懂的</a>|
<a href="http://ytsp88.com" target="_blank">中文字幕亚洲综合久久</a>|
<a href="http://uiui6.com" target="_blank">18成禁人视频免费网站</a>|
<a href="http://www55xx.com" target="_blank">亚洲午夜久久久精品电影院</a>|
<a href="http://dukane1688.com" target="_blank">亚洲AV无码久久精品成人
</a>|
<a href="http://wumase.com" target="_blank">久久久久免费看成人影片</a>|
<a href="http://777cc55.com" target="_blank">免费观看的毛片大全</a>|
<a href="http://hezuoedu.com" target="_blank">亚洲日本中文字幕天堂网</a>|
<a href="http://1178767.com" target="_blank">一区二区三区视频免费观看</a>|
<a href="http://www16am8.com" target="_blank">亚洲无码在线播放</a>|
<a href="http://qq-gm.com" target="_blank">精品无码无人网站免费视频</a>|
<a href="http://xiaoduanfa.com" target="_blank">亚洲白嫩在线观看</a>|
<a href="http://289qq.com" target="_blank">成人免费a级毛片无码网站入口</a>|
<a href="http://apguangyu.com" target="_blank">亚洲精华液一二三产区</a>|
<a href="http://xiamenwave.com" target="_blank">亚洲A丁香五香天堂网</a>|
<a href="http://289qq.com" target="_blank">亚洲人成综合在线播放</a>|
<a href="http://ddm88888.com" target="_blank">成全视频免费高清</a>|
<a href="http://gdbobo.com" target="_blank">一级做a爰片久久毛片免费看</a>|
<a href="http://4922000.com" target="_blank">国产成人亚洲综合色影视</a>|
<a href="http://438266.com" target="_blank">蜜臀AV免费一区二区三区</a>|
<a href="http://601508.com" target="_blank">亚洲一区二区无码偷拍</a>|
<a href="http://wwwbu610.com" target="_blank">日韩亚洲精品福利</a>|
<a href="http://xtolm.com" target="_blank">亚洲熟妇av午夜无码不卡</a>|
<a href="http://hbjpxnyqckj.com" target="_blank">免费一级特黄特色大片在线</a>|
<a href="http://517qq.com" target="_blank">a级片免费在线观看</a>|
<a href="http://manghuo365.com" target="_blank">亚洲一级片在线观看</a>|
<a href="http://222222se.com" target="_blank">免费无码又爽又刺激高潮视频</a>|
<a href="http://luyifeile.com" target="_blank">亚洲二区在线视频</a>|
<a href="http://cmanpower.com" target="_blank">亚洲成AV人网址</a>|
<a href="http://eddiekidd.com" target="_blank">99re在线视频免费观看</a>|
<a href="http://fantoment.com" target="_blank">色窝窝亚洲av网</a>|
<a href="http://khushkhush.com" target="_blank">亚洲国产成人精品不卡青青草原</a>|
<a href="http://skcncar.com" target="_blank">香蕉视频在线免费看</a>|
<a href="http://9522952.com" target="_blank">国产精品V亚洲精品V日韩精品
</a>|
<script>
(function(){
    var bp = document.createElement('script');
    var curProtocol = window.location.protocol.split(':')[0];
    if (curProtocol === 'https') {
        bp.src = 'https://zz.bdstatic.com/linksubmit/push.js';
    }
    else {
        bp.src = 'http://push.zhanzhang.baidu.com/push.js';
    }
    var s = document.getElementsByTagName("script")[0];
    s.parentNode.insertBefore(bp, s);
})();
</script>
</body>