Leyendo Servidores SQL Server con SQLDMO & Visual FoxPro

En un ejemplo anterior vimos, como leer Servidores SQL por medio del API del ODBC.

En esta ocasión, veremos como leer los servidores SQL Server disponibles, por medio de SQL-DMO.

Breve introducción, que es SQL-DMO:

SQL Distributed Management Objects (SQL-DMO), es una colección de objetos que encapsulan la base de datos de MS SQL Server.
SQL-DMO es un interfaz dual COM, por lo tanto podemos utilizar Automatización OLE.

Para poder trabajar con SQL-DMO, es necesario tener los componentes SQL-DMO.


Código de ejemplo; Servidores disponibles:

LOCAL lnIndi, loServidoresSQL, loListaServidoresDisponibles,loSRV
*STORE 0       TO lnIndi
STORE .NULL.TO loServidoresSQL, loListaServidoresDisponibles, loSRV
*
loServidoresSQL = CREATEOBJECT( "SQLDMO.SQLServer2" )
*
loListaServidoresDisponibles =loServidoresSQL.Application.ListAvailableSQLServers
*
? "Total de Servidores SQL Server disponibles : " + ALLTRIM( STR( loListaServidoresDisponibles.Count ) )
*
FOR lnIndi = 1 TO loListaServidoresDisponibles.Count
    *
    ? "Servidor: " + loListaServidoresDisponibles.Item( lnIndi )
    *ENDFOR*
********************** CÓDIGO ALTERNATIVO. *
*********************
*
FOR EACH loSRV IN loListaServidoresDisponibles
    *
    ? "Servidor: " +loSRV
    *
ENDFOR*RELEASE loServidoresSQL, loListaServidoresDisponibles,loSRV
*
 

MISCELÁNEA

De la ayuda de SQL Server: Instalando SQL-DMO.
Los ficheros que se corresponden con SQL-DMO:

sqldmo.dll : C:\Program Files\Microsoft SQL Server\80\Tools\Binn
sqldmo.rll : C:\Program Files\Microsoft SQL Server\80\Tools\Binn\Resources\xxxx
sqldmo.h : C:\Program Files\Microsoft SQL Server\80\Tools\Binn\Devtools\Include
sqldmoid.h : C:\Program Files\Microsoft SQL Server\80\Tools\Binn\Devtools\Include
sqldmo.sql : C:\Program Files\Microsoft SQL Server\MSSQL\Install
 

Registrando los componentes SQL-DMO en el puesto cliente.

• From C:\Program Files\Microsoft SQL Server\80\Tools\Binn\Resources\<language> directory, execute: \Program Files\Microsoft SQL Server\80\Tools\Binn\REGSVR32 SQLDMO.DLL
 
• From any directory, execute: C:\Program Files\Microsoft SQL Server\80\Tools\Binn\REGSVR32.EXE
C:\Program Files\Microsoft SQL Server\80\Tools\Binn\resources\1033\SQLDMO.RLL
 

---

Antonio Muñoz de Burgos y Caravaca
www.emans.com  (Web realizada en vFoxPro)
eMans AC (Administrador Corporativo para SQL Server 2000&2005)
Sevilla - España
Manifestando el apoyo a la comunidad de desarrolladores de MS Visual FoxPro.
 

Todo cabe en lo breve.
Pequeño es el niño y encierra al hombre.Alejandro Dumas (1802-1870), escritor Francés