【IT168 技术文档】

     在Delphi下获取指定窗口EDIT、RICHEDIT控件选中的内容。

    SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象）封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。SQL-DMO 是 SQL Server 2000 中的 SQL Server 企业管理器所使用的应用程序接口 (API)；因此使用 SQL-DMO 的应用程序可以执行 SQL Server 企业管理器执行的所有功能。

    SQL-DMO 用于必须包含 SQL Server 管理的任何自动化或 COM 应用程序，例如：

    1. 封装 SQL Server 作为自己的数据存储并想尽量减少用户的 SQL Server 管理任务的应用程序。
    2. 在程序本身并入了专门的管理逻辑的应用程序。
    3. 想在自己的用户界面中集成 SQL Server 管理任务的应用程序。

    SQLDMO对象来自SQLDMO.dll，SQLDMO.dll是随SQL Server2000一起发布的。SQLDMO.dll自身是一个COM对象，因此，在你的.NET项目里必须先引用它。

    得到网络中的SQL服务器的列表：

'得到SQL服务器的列表 
'必须安装SQL SERVER 2000 SP2 及以上版本 
Dim I As Short
Dim sqlApp As New SQLDMO.Application()
Dim ServerName As SQLDMO.NameList
ServerName = sqlApp.ListAvailableSQLServers
For i = 1 To ServerName.Count
cbServer.Items.Add(ServerName.Item(i))
Next 

    得到指定SQL服务器所有数据库的列表：

'得到指定SQL服务器所有数据库的列表 
Dim sqlApp As New SQLDMO.Application()
Dim oServer As New SQLDMO.SQLServer()
oServer.Connect("(local)", "sa", "sa")
cboDatabase.Items.Clear()
Dim db As SQLDMO.Database
For Each db In oServer.Databases
Me.cboDatabase.Items.Add(db.Name)
Next