• Author / Uploaded
• Hernan Serrano Morales

Citation preview

En forma casi similar a realizar una conexion mediante vistas remotas de una base de datos en SYBASE, SQL SERVER es similar a efectuar la conexion mediante una vista remota a visual foxpro con una plataforma en MYSQL. Pues, en muchas preguntas contenidas por la mayoria de los usuarios es la siguiente ¿Como realizamos una conexion y como nos conectamos a las tablas contenidas dentro de las mismas de una base de datos del MYSQL estando en visual foxpro.? Pues la respuesta es sencilla, recordemos que si necesitamos conectarnos, lo que debemos hacer es primero la conexion , pues eso es mediante una conexion ODBC o una conexion tipo ADO ya sea en forma automatica dentro del ejecutable inicial de tu propio sistema dentro del visual foxpro. ******************************************************************************* Para iniciar procedere a realizar una conexion a SQL estando en Visual foxpro, para efectos realizar la conexion remota, para ello considerare hacer la conexion a un servidor llamado SERVERPROXY, y la Base de datos lo llamare PADRON, lo puedes poner mediante una función y cada vez que necesites la conexión la mandas a llamar.************************************************************************** ***** FUNCTION CONECTAR(PADRON) lcDSNLess3="driver=SQL Server;server=SERVERPROXY;Trusted_Connection=yes;Persist Security Info=False;database="+MiBasedeDatos THANDLE = SQLSTRINGCONNECT(lcDSNLess3) If THANDLE < 0 &&Si no Se logra Conectar =MessageBox("Ocurrio error ",0+64+0,"Error en conectar()") QUIT Else = SQLSETPROP(THANDLE, 'Asynchronous', .F.) Endif RETURN(THANDLE) ******************** de esta manera te conectas , si hay problemas te mandara un error . si todo te salio bien es utilizar la conexión para realizar una consulta. Local Handle,Cbusca Handle=Conectar("PADRON") Cbusca="Select * From clientes" =SQLEXEC(Handle,Cbusca,"CoRders") && Ejecuto la Consulta ************************************************************************** Otra segunda manera e ejecutarla es la siguiente : ************************************************************************** PUBLIC PuConecion PuConecion= SQLCONNECT('ODBC','PADRON','sa')

IF PuConecion