Conocer la versión de MS-SQLServer 2000 desde VFP

No sabes que Versión de MS-SQLServer está ejecutandose?, deseas saber que Service Pack está instalado? aqui te decimos cómo saberlo.

Ha habido y considero seguirá habiendo una serie de virus que se aprovechan de las vulnerabilidades de este software de Microsoft, el último virus fue corregido por el SP3, tambien a veces algunas mejoras en el producto son introducidos (y quizás removidos) en diferentes versiones y service Packs, así que a veces es necesiario saber a que versión de SQLServer se está conectado para saber de la misma manera cuál fué su ultimo Service Pack instalado.

lcServerName = "MiServidor"
lnHandle =SQLStringConnect([server=]+lcServerName+[;driver={SQL Server};Trusted_Connection=Yes])
IF lnHandle > 0

lcQueryVersion=[SELECT 'SQL Server ' ]+;
                              [+ CAST(SERVERPROPERTY('productversion') AS VARCHAR) + ' - ' ]+;
                              [+ CAST(SERVERPROPERTY('productlevel') AS VARCHAR) + ' ('  ]+;
                              [+ CAST(SERVERPROPERTY('edition') AS VARCHAR) + ')']

   IF SQLEXEC(lnHandle,lcQueryVersion,"cRes") > 0
       Brow
   ELSE
       IF AERROR(laError) > 0
           Messagebox("No se pudo ejecutar la consulta"+chr(13)+;
                                "Causa:"+laError[2],16,"Error Msg")
       ENDIF
   ENDIF
   SQLDISCONNECT(lnHandle)
ELSE
   IF AERROR(laError) > 0
       Messagebox("No se pudo ejecutar la consulta"+chr(13)+;
                            "Causa:"+laError[2],16,"Error Msg")
   ENDIF
ENDIF

Las difentes cadenas resultantes pueden ser algunas de las siguientes :

Producto	Versión
RTM (Ready To Manufacture)	2000.80.194
SQL Server 2000 SP1	2000.80.384
SQL Server 2000 SP2	2000.80.534
SQL Server 2000 SP3	2000.80.760
SQL Server 2000 SP4	2000.80.2039

Mas información al respecto:

HOW TO: Identify Your SQL Server Service Pack Version and Edition

How do I know which version of SQL Server I'm running?

Espero les sea de utilidad.

Espartaco Palma Martínez