Visual Foxpro 10 : clase sqldata2 / Funcion psqlcargar

Instaladores

Los instaladores se encuentran en la web  del autor: Link de descargas. https://levelvfp.com.ar/ 

→  Descarga Gratuita FULL de screenclase, sqldata, sqldata2 y therm.
→  VFP 9 IDE ECOSYSTEM (reemplaza el CD original de VFP 9 IDE y lo potencia)
→  VFPA 10 32 Y 64 BITS
→  RUNTIMES PARA LOS CLIENTES

Link de descargas:

https://levelvfp-my.sharepoint.com/:f:/g/personal/gfvaldez_levelvfp_onmicrosoft_com/EpLRTWENSDFGq8qfHulkW4IBHHLozhzPSF7rNgHyIiArLw?e=K4bly1

Ruta Instalacion por defecto de los manuales 

Cuando instalamos en nuestra pc la clase sqldata, sqldata2 se instala por defecto en la ruta:

C:\Program Files\LEVELVFP ARGENTINA\

Dentro de la ruta esta la carpeta manuales sqldata y sqldata2 , alli se se encuentra la documentacion oficial de la funcion psqlcargar , que se encuentra en el archivo manual referencia.rtf ,

Que es la funcion Psqlcargar de VFP 10

Psqlcargar.  Crea todas las propiedades  y clases necesarios para el entorno de desarrollo.

Configura todo el ambiente , todas las variables , almacena y guarda toda la informacion.

Formas de uso

Osqldataload=CREATEOBJECT("custom")
psqlcargar(objeto screen,"numero o nombre de conexión", Osqldataload)

objeto screen = donde se colgara el objeto custom.

numero o nombre de conexión = Se especifica el numero o nombre de la conexion 

CREATEOBJECT("custom") = es un objeto que se le agregara propiedades que se cuelga en el objeto screen para la conexion n

Ejemplo de uso

Osqldataload=CREATEOBJECT("custom")
psqlcargar(_screen,"1",osqldataload)

para formulario de nivel superior debe colocarse un nombre  en la propiedad name del servidor ejemplo superior y usar asi en el load del formulario

psqlcargar(_screen.superior,"1",osqldataload)

y en todas las funciones donde diga _screen se reemplaza por _screen.superior

Mas ejemplos

Ejemplo 1:

SET PATH TO clases 
SET CLASSLIB TO "sqldata2"

LOCAL osqldata2 as sqldata2 OF sqldata2.sqldata2 
osqldata2=CREATEOBJECT("sqldata2.sqldata2")
osqldata2.psqlresetear(_screen)
osqldata2.pversioncomp(_screen,VERSION(4))

osqldata2.psqlcargar(_screen,"1",CREATEOBJECT("custom"))

osqldata2.psqlcadena(_screen,"1","sqlauto",
"localhost\sql2008e","sa","colon.1618","spanish",
"read uncommitted","empresa","","1433")

osqldata2.psqlestructura(_screen,"1","automatico",
"c:\descargas\sqldata2odbc\empresa\estructura")
osqldata2.psqllog(_screen,"1","automatico","logtabla")
osqldata2.psqllogproyecto(_screen,"1","empresa")

DO FORM ingreso

READ EVENTS

Ejemplo 2:

&&configurando el evento para atrapar errores 
ON ERROR do perror  WITH ERROR( ), MESSAGE( ), PROGRAM( ), LINENO( )
ON SHUTDOWN quit 


&&creación del entorno de conexión primera 
&&conexion via ado a sql server

LOCAL osqldata as sqldata OF sqldata.sqldata 
osqldata=CREATEOBJECT("sqldata.sqldata")
osqldataload=CREATEOBJECT("custom")
osqldata.psqlcargar(_screen,"1",osqldataload)

&&creación del entorno de conexión segunda conexion 
&&via ado a sql server local

LOCAL osqldata as sqldata OF sqldata.sqldata 
osqldata=CREATEOBJECT("sqldata.sqldata")
osqldataload=CREATEOBJECT("custom")
osqldata.psqlcargar(_screen,"1local",osqldataload)


&&creación del entorno de conexión para una tercera 
&&conexión via ado a sql sever

LOCAL osqldata as sqldata OF sqldata.sqldata 
osqldata=CREATEOBJECT("sqldata.sqldata")
osqldataload=CREATEOBJECT("custom")
osqldata.psqlcargar(_screen,"2",osqldataload)

&&creación del entorno de conexión para una cuarta 
&&conexión via odbc a sql server

LOCAL osqldata as sqldata OF sqldata.sqldata 
osqldata=CREATEOBJECT("sqldata.sqldata")
osqldataload=CREATEOBJECT("custom")
osqldata.psqlcargar(_screen,"3",osqldataload)

&&creación del entorno de conexión para una quinta 
&&conexión via oledb a sql server

LOCAL osqldata as sqldata OF sqldata.sqldata 
osqldata=CREATEOBJECT("sqldata.sqldata")
osqldataload=CREATEOBJECT("custom")
osqldata.psqlcargar(_screen,"4",osqldataload)

&&creación del entorno de conexión para una sexta
&& conexión via a sql server especificando la base de datos

LOCAL osqldata as sqldata OF sqldata.sqldata 
osqldata=CREATEOBJECT("sqldata.sqldata")
osqldataload=CREATEOBJECT("custom")
osqldata.psqlcargar(_screen,"11",osqldataload)