Utilizar WMI para determinar si el SQL Server
esta instalado en el equipo; Cuando SQL Server se instala se inicia un servicio
de Windows llamado MSSQLServer y lo que se hace es buscar a ver si existe dicho
servicio.

objWMI = GetObject("winmgmts:\\")

cCadWMI = "Select * from Win32_Service Where Name = 'MSSQLServer'"



oBServ = objWMI.ExecQuery(cCadWMI)



If oBServ.Count > 0 Then

    For Each objSer in oBServ

         ? "SQL Server is " +
objSer.State + "."

    Next

Else

    ? "SQL Server no esta instalado en este computador."

EndIf

 

Esta es una forma de conectarse a SQL Server cuando utilizas la autenticación a nivel de Windows.

En este caso utilizamos al función SQLStringConnect para realizar la
conexión.

nH = SqlStringConnect("Driver=SQL Server" + ;

           
";server= ServidorSQLServer"
+ ;

            
";database=BaseDatos"
+ ;

               ";app=Aplicacion")

Muy buen ejemplo que te explica como conectarte a una DBC utilizando el proveedor de VFP.

oCon =
CreateObject("ADODB.Connection")

oRst = CreateObject("ADODB.RecordSet")

 

cCadCon = "Provider=VFPOLEDB.1;"
;

        +
"data source=c:
utaasedatos.dbc"

oCon.open(cCadCon)

cSQL = "select * from Tabla"

oRst = oCon.execute(cSQL)

DO While !oRst.Eof

  cResult =
""

  For Each oCmp
in
oRst.Fields

    cResult =
oCmp.Value + " - " + cResult

  Next

  ?cResult

  oRst.Movenext

EndDo

 

Esta es una pregunta muy habitual, y es ¿Como puedo hacer para conectarme a SQL Server desde Fox Pro bajo MS-DOS?.

Existe una librería llamada FPSQL.FLL que permite conectarse a diversas bases de datos a través de ODBC dede Fox 2.6; La librería FLL posee casi las mismas funciones que VFP para conectarse a través de ODBC.

DbGetOpt()
DBSetOpt()
DBConnect()
DBDisconn()
DBExec()
DBTransact()
DbTables()

Entre otras.....

Utilizando ADOX podemos crear una base de datos de Access y agregarle tablas, y a estas campos e índices.

oCata = CreateObject("ADOX.Catalog")
cCadBD = "Provider=Microsoft.Jet.OLEDB.4.0;"+;
           "Data Source = C:MiBaseDeDatos.mdb;"

* Crea la base de datos
oCata.Create(cCadBD)

oCata.ActiveConnection = cCadBD


oTabla = CreateObject("ADOX.Table")

* Nombre de la nueva tabla
oTabla.Name = "Alumnos"

nTipoInt = 3
nTipoFecha = 7
nTipoVarChar = 202
* El último parámetro es el ancho del campo

* Agregando campos a tabla Alumnos
With oTabla.Columns
   .Append("CodiAlum",
nTipoInt)
   .Append("Apellidos", nTipoVarChar, 70)
   .Append("Nombres", nTipoVarChar, 70)
   .Append("FecNace", nTipoFecha)
   .Append("Direccion", nTipoVarChar, 200)
EndWith

* Agrego la tabla
oCata.Tables.Append(oTabla)

Release oTabla, oCata

 
 

Ejemplo que demuestra como podemos a través de ADOX crear una consulta (vista) en una base de datos de Access desde VFP.

oCata = CreateObject("ADOX.Catalog")

cCadCon = "Provider=Microsoft.Jet.OLEDB.4.0;"+;
           
"Data Source = C:Nwind.mdb;"+ ;
           "User ID=;" +;
            "Password=;"

oCata.ActiveConnection = cCadCon

oCmd = CreateObject("ADODB.Command")

* Comando a ejecutar en la vista (consulta)
oCmd.CommandText = "Select * From Empleados"

oCata.Views.Append("VistaEmpleados", oCmd)

Release oCmd, oCata

Un ejemplo bastante útil, que nos permite poder consultar nuestras tablas de VFP desde SQLServer.

Puede probarlo desde el analizador de consultas de SQL Server

Ejemplo utilizando tablas libres de VFP

sp_addlinkedserver @server = "VFPoledbDbf",
   @srvproduct = "VFP",

   @provider = "VFPOLEDB.1",
   @datasrc = "C:RutaTablas"

GO
SELECT * FROM VFPoledbDbf...products

GO
sp_dropserver @server = "VFPoledbDbf"
GO

Ejemplo utilizando tablas contenidas en una Base de datos de VFP

sp_addlinkedserver @server = "VFPoledbDBC2,
   @srvproduct = "VFP",
   @provider = "VFPOLEDB.1",
   @datasrc = "C:RutaTablas estdata.dbc"

GO
SELECT * FROM
VFPoledbDBC...Products
GO
sp_dropserver @server = "VFPoledbDBC"
GO
 


 



 

Documentación de SQL Server en formato CHM, realizada por Luis Walter Reynoso

Documentación de SQL Server7.

Utilidad muy buena para realizar pruebas a tu conexión ODBC.

Descargue la actualización del instalador Microsoft Data Access Components 2.7 (MDAC) redistribuible.

Excelente manual de Oracle, se explica el manejo de tablas, reportes, menús, consultas, etc.

Te permite comparar fácilmente los datos, la estructura o los índices entre dos bases de datos ODBC.

Descargue la documentación actualizada de Microsoft SQL Server 2000. La actualización de los Libros en pantalla de SQL Server de junio de 2007 incluye la documentación completa que se entregó con SQL Server 2000.



Además, en esta actualización se corrigen imprecisiones técnicas a la hora de describir la protección que se obtiene al usar la opción WITH ENCRYPTION cuando se crean los siguientes objetos de base de datos:



* Procedimientos almacenados

* Vistas

* Funciones

* Desencadenadores





Para obtener una lista de los temas corregidos, vea "Novedades en los Libros en pantalla de SQL Server".

Documento donde se expone la forma de conexión de una base de datos de Oracle en VB a través de ODBC.