锘??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>&#22269;&#20869;&#31934;&#21697;&#22312;&#32447;&#25773;&#25918;&#44;&#20122;&#27954;&#21320;&#22812;&#97;&#118;&#44;&#27431;&#32654;&#26085;&#38889;&#19968;&#21306;&#22312;&#32447;&#25773;&#25918;</title><link>http://www.aygfsteel.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.aygfsteel.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.aygfsteel.com/yczz/articles/93658.html</guid><wfw:comment>http://www.aygfsteel.com/yczz/comments/93658.html</wfw:comment><comments>http://www.aygfsteel.com/yczz/articles/93658.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.aygfsteel.com/yczz/comments/commentRss/93658.html</wfw:commentRss><trackback:ping>http://www.aygfsteel.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("鏁版嵁鎭㈠鎿嶄綔灝嗕細瑕嗙洊浠ュ墠鐨勬墍鏈夋暟鎹茍涓旇鐩栧悗鏃犳硶鎭㈠錛屾?zhèn)嫯瀹氳杩涜鎭㈠鎿嶄綔鍚楀Q?, 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.aygfsteel.com/yczz/aggbug/93658.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/yczz/" target="_blank">椋為笩</a> 2007-01-13 21:25 <a href="http://www.aygfsteel.com/yczz/articles/93658.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item></channel></rss>            <footer>
<div class="friendship-link">
<a href="http://www.aygfsteel.com/" title="&#29408;&#29408;&#20037;&#20037;&#20122;&#27954;&#27431;&#32654;&#19987;&#21306;&#95;&#20013;&#25991;&#23383;&#24149;&#20122;&#27954;&#32508;&#21512;&#20037;&#20037;&#50;&#48;&#50;&#95;&#22269;&#20135;&#31934;&#21697;&#20122;&#27954;&#31532;&#20116;&#21306;&#22312;&#32447;&#95;&#26085;&#26412;&#20813;&#36153;&#32593;&#31449;&#35270;&#39057;">&#29408;&#29408;&#20037;&#20037;&#20122;&#27954;&#27431;&#32654;&#19987;&#21306;&#95;&#20013;&#25991;&#23383;&#24149;&#20122;&#27954;&#32508;&#21512;&#20037;&#20037;&#50;&#48;&#50;&#95;&#22269;&#20135;&#31934;&#21697;&#20122;&#27954;&#31532;&#20116;&#21306;&#22312;&#32447;&#95;&#26085;&#26412;&#20813;&#36153;&#32593;&#31449;&#35270;&#39057;</a>

</div>

</footer>


主站蜘蛛池模板：
<a href="http://" target="_blank">阿鲁科尔沁旗</a>|
<a href="http://" target="_blank">河北区</a>|
<a href="http://" target="_blank">辽阳县</a>|
<a href="http://" target="_blank">盐边县</a>|
<a href="http://" target="_blank">若羌县</a>|
<a href="http://" target="_blank">宁德市</a>|
<a href="http://" target="_blank">左贡县</a>|
<a href="http://" target="_blank">宜兰市</a>|
<a href="http://" target="_blank">永泰县</a>|
<a href="http://" target="_blank">广昌县</a>|
<a href="http://" target="_blank">比如县</a>|
<a href="http://" target="_blank">剑河县</a>|
<a href="http://" target="_blank">蒲城县</a>|
<a href="http://" target="_blank">思南县</a>|
<a href="http://" target="_blank">六盘水市</a>|
<a href="http://" target="_blank">墨竹工卡县</a>|
<a href="http://" target="_blank">民和</a>|
<a href="http://" target="_blank">化隆</a>|
<a href="http://" target="_blank">卓尼县</a>|
<a href="http://" target="_blank">西宁市</a>|
<a href="http://" target="_blank">城口县</a>|
<a href="http://" target="_blank">许昌县</a>|
<a href="http://" target="_blank">广宗县</a>|
<a href="http://" target="_blank">大埔区</a>|
<a href="http://" target="_blank">淄博市</a>|
<a href="http://" target="_blank">平泉县</a>|
<a href="http://" target="_blank">襄城县</a>|
<a href="http://" target="_blank">海兴县</a>|
<a href="http://" target="_blank">商河县</a>|
<a href="http://" target="_blank">石嘴山市</a>|
<a href="http://" target="_blank">定远县</a>|
<a href="http://" target="_blank">仪陇县</a>|
<a href="http://" target="_blank">扶风县</a>|
<a href="http://" target="_blank">遵化市</a>|
<a href="http://" target="_blank">龙南县</a>|
<a href="http://" target="_blank">郧西县</a>|
<a href="http://" target="_blank">新化县</a>|
<a href="http://" target="_blank">延川县</a>|
<a href="http://" target="_blank">陆良县</a>|
<a href="http://" target="_blank">城口县</a>|
<a href="http://" target="_blank">茂名市</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>