小弟初学VB,根据网上的代码,想实现启动MSDE的函数,但引用了SQLDMO后运行还是有错误,错误429。
Public Function sStartMSDE(sSvrName As String, sUID As String, sPWD As String) As String
  Dim oSvr As SQLDMO.SQLServer
  Set oSvr = CreateObject("SQLDMO.SQLServer ")
  On Error GoTo StartError 
  .............
在CreateObject("SQLDMO.SQLServer ")这句出错。还有sCopyError:
    If Err.Number = -2147216399 Then   
        Resume Next   '   (这句话是什么意思?)
    ............
请各位大侠指点,谢谢

解决方案 »

  1.   

    哦,我看语法一般都是ON ERROR RESUME NEXT的,看来RESUME都是跳过的意思
    那么第一个错是怎么回事?
    Set oSvr = CreateObject("SQLDMO.SQLServer ")
    我在模块里写:Public Declare Function SQLServer Lib "SQLDMO" ()
    这样的声明后就没事了,但是运行有错。而且我也觉得这样声明不对啊。因为SQLServer 应该不是FUNCTION ,且()里的参数留空了。 应该怎么办?
    执行sStartMSDE后说RPC不可用,怎么回事?
      

  2.   

    哦,我知道了RPC不可用的原因了,我把sSvrName写成localhost,改成本机名就行了,
    但是启动成功了,在右下角的任务管理器里却没有那图标,后台的进程就有SQLSERVER进程。这样是成功启动了么?
    还有怎样去获得其他有数据库的机的HOSTNAME?
      

  3.   

    有没有人知道啊,在其他机上默认安装MSDE,用SQLDMO的START方法不能启动哦,应该是ID,PSW不对,默认安装的那些参数是什么?