Clase de Acceso a Datos en Visual FoxPro 9

[Vladimir Angarita]

Hola, buenas tardes, soy un programador de Visual Basic.NET pero tengo
que realizar modificaciones y nuevas aplicaciones en Visual FoxPro 9.0
a Bases de Datos de SQL Server 2008, ahora bien en Visual Basic.NET
para el Acceso a Datos creó una clase (cDatos.vb) y allí coloco la
programación que tiene que ver con Leer la cadena de conexión de un
XML, Conectar y Actualizar los registros de mis tablas, en Visual
Foxpro 9.0 como creo mi clase Cdatos, ¿será en un archivo *.PRG? y si
es así ¿como lo llamo para utilizarlo en un formulario de Visual
FoxPro 9.0 *.scx de mantenimiento?, en mi Winform de visual Basic
yo lo hago así: Dim objDatos As New cDatos

Espero me puedan dar una guía para encarar este nuevo reto en
desarrollo de software



De antemano gracias!

[Allan Raúl Acuña]

Mis saludos antes que nada.

Usa CursorAdapter

Revisa el video para que puedas hacer conexiones a SQL, esta con access pero puedes hacerlo para otro motor

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

Saludos cordiales;

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
            +(505) 8 831 8191      
www.NicEasySoft.com

Managua, Nicaragua

Centroamérica

> Date: Thu, 14 Jun 2012 18:02:16 -0700
> Subject: [vfp] Clase de Acceso a Datos en Visual FoxPro 9
> From: vladimir...@gmail.com
> To: publice...@googlegroups.com
> CC: vladimir...@beramotorcycles.net

[Hugo C.]

Checa este articulo ,

http://www.mug.org.ar/FoxProGufa/ArticFox/210.aspx

Saludos.

On Jun 14, 7:02 pm, Vladimir Angarita <vladimir.angar...@gmail.com>
wrote:

[Vladimir Angarita]

Gracias!
Pero me muestra un error esa URL:

Server Error in '/' Application.
Runtime Error
Description: An application error occurred on the server. The current
custom error settings for this application prevent the details of the
application error from being viewed remotely (for security reasons).
It could, however, be viewed by browsers running on the local server
machine.

Details: To enable the details of this specific error message to be
viewable on remote machines, please create a <customErrors> tag within
a "web.config" configuration file located in the root directory of the
current web application. This <customErrors> tag should then have its
"mode" attribute set to "Off".

http://www.mug.org.ar/FoxProGufa/ArticFox/210.aspx

<!-- Web.Config Configuration File -->

<configuration>
<system.web>
<customErrors mode="Off"/>
</system.web>
</configuration>


Notes: The current error page you are seeing can be replaced by a
custom error page by modifying the "defaultRedirect" attribute of the
application's <customErrors> configuration tag to point to a custom
error page URL.


<!-- Web.Config Configuration File -->

<configuration>
<system.web>
<customErrors mode="RemoteOnly"
defaultRedirect="mycustompage.htm"/>
</system.web>
</configuration>

[Daniel Sánchez]

Puedes hacerlo de muchas maneras en vfp, usando sqlexec o un cursoradapter que es mas completo pero para que comiences probando y no te enredes mucho te recomendaría con sqlexec, ahora lo que debes tener en cuenta que cualquier consulta que hagas al servidor este te devolvera un cursor con los datos solicitados, veamos algo simple

*/primero tu conexion al servidor

cdriver="SQL Server"

cServer="(local)"

cdescription=[]

cDatabase=[mibasedatos]

cuid=[Mi usuario]

cpwd=[mi clave]

CCADENACONEXION = 'driver='+CDRIVER+';Server='+CSERVER+';description='+CDESCRIPTION+', Int Security;Database='+CDATABASE+';uid='+CUID+';pwd='+CPWD+';'

HANDLESQL = Sqlstringconnect(CCADENACONEXION)

If HANDLESQL<1

Messagebox("Imposible conectar con SQL"+Chr(13)+CCADENACONEXION, 16)

               return &&es decir finalizas

Else

Messagebox("Conexión con el servidor satisfactoria", 64, "Acerca del Registro")

Endif

*/ahora realizo una consulta simple al servidor

cCadenaSQL=[select * from mitabla where micriteriobusqueda]

NRESULTADOS = SQLExec(HANDLESQL, CCADENASQL, "micursor", ACOUNTINFO)

if nresultados>0

   */si el resultado es >0 entonces significa que creo el cursor micursor

   sele micursor

   browse nowait

else 

   */puedes mejorar el mensaje de error usando aerror para ver cual fue el problema de manera detallada

   messagebox("Error ocurrido consultado mitabla",64,"Mis Errores")

endif 

sqldisconnect(handlesql)

Esto puedes ponerlo en un prg y lo ejecutas hay datos que debes cambiar como el nombre de la bd, el servidor el nombre de la tabla a consultar y otras cosas, te e puesto la estructura básica para que realices tu prueba, como ves es muy sencillo obtener el resultado y mostrar dichos datos.

Saludos

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

[Hugo C.]

Que extraño, checa esta en los temas de Foxpro to .NET


http://www.pinter.com/Articles.aspx

Saludos.


On Jun 14, 8:59 pm, Vladimir Angarita <vladimir.angar...@gmail.com>
wrote:

[Daniel Sánchez]

Esta es una conclusión al manejo de datos de les pinter, para que vean que no somos los unicos que pensamos así (.NET innovador...donde?)

Conclusión

Es evidente que la gestión de datos en FoxPro es tan simple como puede ser, mientras que la gestión de datos en. NET es tan compleja como puede ser, y por desgracia, apenas hemos arañado la superficie. Para agravar el problema, algunas de las soluciones de datos Managament en la tubería de Microsoft, a mi juicio, en última instancia, será juzgado como defectuoso, y será abandonado.Ellos siguen de la misma filosofía arquitectónica que nos ha traído Vista - una proliferación interminable de capa sobre capa de andamios, cada capa de la cual se le da una tarea esencial que exige que se domine y se aplica con al menos algunas decoraciones de atributos oscuras y llama al método . Se no se puede ser tan difícil. Sin embargo, hasta Redmond decide arreglarlo, esto es lo que tenemos que trabajar con ellos.

Durante la Gran Depresión de First American (70 años antes de éste), no era una broma que mi padre le gustaba: "Si tuviéramos un poco de jamón, podríamos tener un poco de jamón y los huevos, si tuviéramos algunos huevos". manejo de Microsoft de los datos es algo de esa manera. Es necesario un conjunto de datos, un adaptador de datos y enlace de datos, pero el enlace de datos necesita bases de datos con tipo, por lo que necesita esos también. Además, el adaptador de datos utiliza comandos creados dentro del conjunto de datos con tipo. No hay un único y simple conjunto de comandos que acaba de hacer el trabajo. Es un complejo torbellino de cada vez más complejas soluciones a un problema que, echado a perder como nosotros, ni siquiera sabía que existía. Pero este es un viaje que debe hacer. Es por eso que estoy escribiendo esta serie de artículos. Y es por eso que he reunido un equipo de programadores que hacen esto todo el tiempo. No existe una solución única, y no hay una solución simple, pero hay siempre unamejor solución.

En el próximo artículo veremos más de cerca a los conjuntos de datos con tipo y sus implicaciones para la gestión de datos. Verás cómo la generación de código le da gran parte de lo que usted necesita.

aquí el link con el artículo completo

http://www.pinter.com/ShowArticle.aspx?ArtNum=401