如何用VB代码停止MSSQL并重新启动?

如题 问题点数：50、回复次数：3Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2005-10-19 09:02:37 得分 20

'启动  
  Private   Sub   Command1_Click()  
          shell   "net   start   mssqlserver",vbhide  
  End   Sub  
  '停止：  
  Private   Sub   Command2_Click()  
          shell   "net   stop   mssqlserver",vbhide  
  End   SubTop

2 楼SKY1006（飞星灯）回复于 2005-10-19 09:30:38 得分 0

还要加5秒钟执行停止,5秒钟才执行启动Top

3 楼sunxl（小呆）回复于 2005-10-19 09:41:08 得分 30

'启动  
  Private   Sub   Command1_Click()  
          Wait_S   5       '5秒钟  
          shell   "net   start   mssqlserver",vbhide  
  End   Sub  
  '停止：  
  Private   Sub   Command2_Click()  
          Wait_S   5       '   5秒钟  
          shell   "net   stop   mssqlserver",vbhide  
  End   Sub  
   
   
   
  Public   Sub   Wait_S(SecondV   As   Single)           Dim   i   As   Single,   j   As   Single  
          i   =   Timer   +   SecondV  
          Do   While   i   >   Timer  
                  If   Timer   <   1   And   i   >=   86400   Then        
                          i   =   i   -   86400  
                  End   If  
                  DoEvents  
          Loop  
  End   SubTop

相关问题

• mssqlserver
• 执行
• shell
• start
• vbhideend
• 停止
• 启动
• secondv
• timer
• private sub command

• 帖主：SKY1006
• faysky2
• sunxl

• Visual Basic类图书
• Visual Basic类源码下载