CONECTAR TABLAS VISUAL FOXPRO 9 CON SQL Server

[Javier Campana]

Hola alguien que a lo mejor haya podido conectar las tablas del visual FoxPro 9 con SQL Server 2008 r2  o SQL server 2012   , si hay alguien por favor su guía gracias

[Jorge Blas Diaz Armesto]

EN MI CASO USANDO CADENAS OLDBC

SALUDOS JORGE

[Luis Maria Guayan]

Mira si este artículo del Profe Carlitos Perez te sirve:

http://logica10mobile.blogspot.com.ar/2012/05/como-consumir-datos-de-visual-foxpro-en.html

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

El 26/11/2013 18:42, Javier Campana escribió:

[Jorge Montúfar]

proba esto  

&& lcServidor = Servidor SQL Server 

&& lcUsuario = Usuario 

&& lcClave = Clave del Usuario 

&& lcDb = Base de Datos a Conectar Ejemplo "Northwind" 

PUBLIC rs,Conn,oCom as Object 

LOCAL lcServidor,lcUsuario,lcClave 

lcServidor = "desarrollo10" 

lcUsuario = "sa" 

lcClave = "123456" 

lcDb = "Northwind" 

&& Creando los Objetos 

Conn = CREATEOBJECT("ADODB.Connection") && Objeto Contenedor de la Conexión 

**oCom = CREATEOBJECT("vfpcom.comutil") && Objeto COM para Trabajar con ADO Recordset desde VFP 

rs = CREATEOBJECT("ADODB.Recordset") && Objeto Recordset 

&& Creamos el Strings de Conexión 

**strconn = "Provider=sqloledb;Data Source=&lcServidor ;Initial Catalog=&lcDb;User Id=&lcUsuario;Password=&lcClave;" 

  strconn = "provider=vfpoledb.1;;

      data source=.\produccion.dbc"

&& Abriendo la Conexión pasandole el String al Objeto "ADODB.Connection" 

Conn.Open (strconn) 

&& Conn.Execute ("use com;") && Si deseamos cambiar de base de datos 

&& Abriendo el "ADODB.Recordset". Pasamos la Sentencia SQL a Ejecutar, 

&& El objeto contenedor de la Conexión y el modo de apertura. 

rs.Open ("select * from det_volteo", Conn, 3) 

LOCAL lnReg 

&& Contamos los campos que nos devuelve el Recordset y a su vez 

&& imprimimos todo el registro donde estamos parados 

lnReg = rs.Fields.Count 

FOR i = 1 TO lnReg 

? "CAMPO: " + RS.FIELDS(I - 1).Name + " VALOR: " + TRANSFORM(RS.FIELDS(I - 1).VALUE) 

ENDFOR 

&& Creamos un Cursor nativo de VFP y vamos a volcar todos los registros 

&& que contiene el Recordset en el Campo shipcountry a el campo del cursor temporal 

&& Podemos llamar a los campos en el Recordset asi rs.Fields('shipcountry').Value 0 RS.FIELDS(3).VALUE 

**CREATE CURSOR NUEVO(shipcountry C(50)) 

USE prueba

&& Nos paramos en el Primer Registro del Recordset 

rs.MoveFirst 

DO WHILE NOT rs.EOF && Evaluamos si no es un Fin del Archivo 

SELECT PRUEBA 

APPEND BLANK 

REPLACE CODIGO WITH rs.Fields('CODIGO').Value 

REPLACE FECHA WITH rs.Fields('FECHA').Value 

REPLACE NOMBRE WITH rs.Fields('NOMBRE').Value 

rs.MoveNext && Nos movemos al Siguiente Registro 

ENDDO 

BROWSE

*!* Cierra la Conexion

Conn.Close

[Roberto Lemos]

Como es eso de conectar las tablas de VFP con SQL Server?

[Jairo Miranda]

Prueba esto

 

LOCAL nH

nH=SQLSTRINGCONNECT("Driver=SQL Server"+";server=SERVER-SQL\sql2005"+";Database=Data1"+";app=12345678")

IF nH>0

    WAIT WINDOW "Conexión establecida , anexando registros y actualizando datos" NOWAIT

    SELECT 0

    nejcuta=SQLEXEC(nH,"Select *;

             from dbo.Fact_reng","DestaCli1")

            

    SQLDISCONNECT(nejcuta)

 

Solo cambia el servisor , la data y el password

[Geovanny Quiros Castillo]

Hola,

No se entiende con exactitud tu necesidad pero si lo que deseas es accesar DBFs desde el Sql Server entonces podrías investigar un poco sobre servidores vinculados.

Saludos

 

 

From: Javier Campana

Sent: Tuesday, November 26, 2013 3:42 PM

To: publice...@googlegroups.com

[Jorge Blas Diaz Armesto]

Te lo voy a poner mas fácil

MICADENACONEXION = 'Provider=SQLOLEDB; Current Language=English; user id=CondorCG; password=Condor-CG;Database=cgcondor; server=' + MISERVIDORSQL

LOCAL loConn AS ADODB.CONNECTION

LOCAL loException AS EXCEPTION

LOCAL loCommand AS ADODB.COMMAND

LOCAL loCursor AS CURSORADAPTER

LOCAL laErrors[1]

MIOBJCONEXION = CREATEOBJECT('ADODB.Connection')

MIOBJCONEXIONPRUEBA = CREATEOBJECT('ADODB.Connection')

MIOBJCONEXION.ConnectionString = MICADENACONEXION

MIOBJCONEXIONPRUEBA.ConnectionString = MICADENACONEXION

MIOBJCONEXION.CommandTimeout= 720

MIOBJCONEXION.ConnectionTimeout= 720

MIOBJCONEXIONPRUEBA.CommandTimeout= 20

MIOBJCONEXIONPRUEBA.ConnectionTimeout= 20

    MIOBJCONEXIONPRUEBA.OPEN()

    MIOBJCONEXIONPRUEBA.Close

[Viktor Velazquez]

De esta manera la hago

public cadena

cCadena = "driver={SQL Server};server=SERVIDOR;uid=sa;pwd=****;database=MIDB"

sino conectas igual puedes usar la ip del servidor en lugar del nombre

de esta forma consulto

Nx = SQLSTRINGCONNECT(cCadena,.t. )

SQLSETPROP(Nx, 'DispLogin', 3) 

IF Nx < 1

MESSAGEBOX('No hay Conexion con la BD',64,'Alerta')

Return

ELSE

SQLprepare(Nx, 'EXEC con_par', 'mypart')

SQLEXEC(Nx)

IF (Nx<=0) then

MESSAGEBOX('No se pudo actualizar la BD 2',64,'Alerta')

else 

brow

MESSAGEBOX("ok",64,'Alerta')

ENDIF

ENDIF

saludos!!

---

Date: Tue, 26 Nov 2013 13:42:20 -0800
From: javier.ca...@gmail.com
To: publice...@googlegroups.com
Subject: [vfp] CONECTAR TABLAS VISUAL FOXPRO 9 CON SQL Server

[MALKASOFT ADPI: http://www.developervfp.blogspot.com/]

 Hola conectar las tablas del visual FoxPro 9 con SQL Server 2008 r2  o SQL server 2012 imposible lo que quieres hacer,  pero si se puede conectar desde VFP a las tabla de SQL Server eso si es posible y ahí te enviaron muchos ejemplo, que raro que FERNANDO D. BOZZO no critico algo y todos sus seguidores no que hay que enseñar a pescar quien les entiende por eso vuelvo a decir que Fernando es mi hincha "broma" para que no comiences

Saludos; 

Ing. Russvell Jesus Soto Gamarra 

http://developervfp.blogspot.mx/

Framework Multi-conexion v6.0 a cualquier base de datos 

http://www.youtube.com/watch?v=PCCZvCaet74

Canal YouTube: http://www.youtube.com/rycjesusrj

[Hernan Serrano]

Cómo consumir datos de Visual Foxpro en sistemas .NET de 64 bits utilizando un servidor vinculado
Nos hemos puesto un poco nostálgicos, así que acá volcamos nuestra experiencia reciente en integrar datos de Visual Foxpro (32 bits) en un entorno de IIS de 64 bits, que no podía reducirse a correr 32 bits por condiciones de borde de la instalación.

http://logica10mobile.blogspot.com/2012/05/como-consumir-datos-de-visual-foxpro-en.html

Tal vez este documento te ayude a realizar lo que necesitas.

--

Tico Support S. A.
Tel. (506)8772-6170

[PIRATADELPROFIT PROFIT]

El proveedor OLE DB "MSDASQL" del servidor vinculado "(null)" devolvió el mensaje "[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado".
Mens. 7303, Nivel 16, Estado 1, Línea 15

No se puede inicializar el objeto de origen de datos del proveedor OLE DB "MSDASQL" para el servidor vinculado "(null)".

COMO SE PODRIA RESOLVER ESTO ?

Resulta q he creado un Stored Procedure q debe conectarse a VFP para consultar 1nos registros d 1na tabla en 1 contenedor DBC, esto se debe de hacer DESDE SQL Server 2008 R2 64bit en Windows Server 64Bit, alguna experiencia con el tema planteado ?