SQLDMO实例(SQL Server2000+VB6下测试通过)

 

一、取得局域网所有可用的SQL Server的实例

    Dim objSQLDMOAppAs New SQLDMO.Application

    Dim nameXAs NameList

    Dim i As Integer

   

    Set nameX= objSQLDMOApp.ListAvailableSQLServers

    For i = 1To nameX.Count

        cboSQLServer.AddItemnameX.Item(i)

    Next

   

    Set objSQLDMOApp= Nothing

 

二、连接之后，并取得SQL Server上的所有数据库

    Set g_objSQLServer= New SQLDMO.SQLServer

    g_objSQLServer.LoginTimeout= -1

    g_objSQLServer.LoginSecure= IIf(chkSecure.Value = Checked, True, False)

    g_objSQLServer.AutoReConnect= True

    g_objSQLServer.ConnectstrSQLServer, strLogin, strPassword

 

    frmMain.cboDatabase.Clear

    For i = 1To g_objSQLServer.Databases.Count

        frmMain.cboDatabase.AddItemg_objSQLServer.Databases(i).Name

    Next