用SQLDMO
Private Sub Command1_Click()
Dim a As SQLDMO.SQLServer
Set a = CreateObject("SQLDMO.SQLServer")
a.Start False, "服务器名"
MsgBox "OK!"
a.Stop
End Sub
引用Microsoft SQLDMO Object Library,可以获得对服务器
的完整控制能力。
Private Sub Command1_Click()
Dim a As SQLDMO.SQLServer
Set a = CreateObject("SQLDMO.SQLServer")
a.Start False, "服务器名"
MsgBox "OK!"
a.Stop
End Sub
引用Microsoft SQLDMO Object Library,可以获得对服务器
的完整控制能力。
解决方案 »
- 如何删除LISTBOX里面的重复记录呢?
- VSPrinter的窗体load非常慢
- [超紧急求助]高人们来!问个OLE控件在WIN2003系统使用的问题
- Crystal Reports 9 如何获取用户在[打印设置]对话框中的设置信息.UP有分.
- 关于Data Environment
- 大家帮忙介绍几本书?谢谢
- 请教高手如何把PictureBox中的Pictrue存成D:\aa\aa.jpg
- 在控件的事件过程代码中,控件的名称可用一通用名字代用?代用单词是?
- 急!!!!!?????????????
- 如何判断鼠标移出了窗体?
- 安装数据访问部件的问题。。
- :请问VB开发的Activex控件是否能被其他程序调用,在html中如何使用,怎样得到它的GUID??
如何启动,停止 Distributed Transaction Coordinator
在VB中写出这些API的定义;不过我看最简单的办法是用BINN目录下的SCM.exe,如:
shell "d:\mssql7\binn\scm.exe -action 1 -service msdtc"
就可以了。
action 1是启动,6是停止。
我的是sql2000
在“D:\Program Files\Microsoft SQL Server\MSSQL\BINN“里并未发现SCM.exe
那么,我如何引用WN95SCM.DLL里的函数呢?
谢谢
BOOL _declspec(dllimport) SQLSCMLocalServiceControlW(LPWSTR lpszSvc,int iCommand,LPDWORD pdwErr,int iCount,void *lpStartParameter);
琢磨琢磨在VB里怎么声明吧。
lpszSvc是服务名,如“MSDTC”;iCommand是命令。
http://www.csdn.net/expert/topic/437/437903.shtm
Microsoft SQL Server\80\Tools\Binn目录下同样有scm.exe文件!SHELL它肯定可以解决你的这个问题。不过,关于一种通用的将C写的API在VB里声明的问题,仍然很值得研究。
(应该也有现成的答案吧?)
仔细看题先!
老兄我来了,看到了,是有个scm.exe文件。
我去试试。至于那个c写的api,我是怎么也搞不定了。
Set objServer as New SQLServer
objServer.Connect ServerName,UserID,Password
objServer.Pause '//暂停
objServer.Stop '//停止
objServer.Start ... '//起动
不知道你想要那个?