--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/200ed0ff-7393-4bcb-9640-220043bb8b19n%40googlegroups.com.
--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/90b26837-c1ef-4489-885b-baba018266fan%40googlegroups.com.
Hola Victor.
Yo trabajo con Firebird y si el Select genera una transaccion, x supuesto q al enviar la misma los permisos son diferentes de un Update/Insert, pero sí se abre y se cierra una transaccion x un Select.
Saludos
Esteban
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/6ce5b194-18f3-4d05-8858-94f6567a87den%40googlegroups.com.
--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/200ed0ff-7393-4bcb-9640-220043bb8b19n%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/862c5f1b-ec3c-452b-b196-8853de2b79dan%40googlegroups.com.
calma calma
porque no te manejas por privado y libras al grupo
de estas cosas...
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAHHHbC6jC9b6MYJ0D2eT51GjZ9yLKGbomg4ybYSjN8UFzAoV_g%40mail.gmail.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/e3a69403-04c6-40eb-9324-b72a1da22340n%40googlegroups.com.
__ lo que sigue se puede poner en el load del formulario o en botones y otros
SQLDATA
LOCAL osqldata as sqldata OF sqldata.sqldata
osqldata=CREATEOBJECT(«sqldata.sqldata»)
osqldata.psqlejecutar(_screen,»6″,_screen,,»consultag»,»clientes»,»»,»select *
from clientes») &&trae el cursor vacio
CURSORSETPROP(«Buffering»,5,»clientes») &&por defecto es buffering 5
*el tercer parámetro corresponde al objeto formulario que
contiene el entorno de datos puede ser (_screen, thisformset, o thisform)
*sólo cuando se trabaja con múltiples sesiones de datos sino usar _screen
osqldata.psqlejecutar(_screen,»6″,_screen,,»consultag»,»detalle»,»»,»select *
from fabrica.detalle») &&trae el cursor vacio
CURSORSETPROP(«Buffering»,5,»detalle») &&por defecto es buffering 5
FoxyDB
oDb = NEWOBJECT(“FoxyDb”,”FoxyDb.prg”)
odb.Query(“select * from cliente where 2=1”, “clientes”)
odb.Query(“select * from detalle where 2=1”, “detalle”)
odb.CursorEdit(“clientes”)
FoxyDB, solo tienes que instanciar la librería dentro del
formulario para usar la sesión privada de datos, para obtener un cursor con los
datos vacíos puedes usar where 2=1, ID = 0 o cualquier condición que quieran
que no traiga datos.
---------------------------------
SELECT clientes
APPEND BLANK
replace nombre WITH “German”,;
direccion WITH “los andes»,;
telefono WITH “444”,;
fnacimiento WITH DATE(),;
precio WITH 10.20,;
confirma WITH .t.
SELECT detalle
APPEND BLANK
replace cuota WITH 2
FoxyDb, se puede hacer igual que arriba o en la forma que gusten que tenga VFP
------------------------------
*grabando los cambios en el cursor (modificados, nuevos,
eliminados)
LOCAL osqldata as sqldata OF sqldata.sqldata
osqldata=CREATEOBJECT(«sqldata.sqldata»)
osqldata.psqlcomienzo(_screen,»6″)
osqldata.psqlcomtran(_screen,»6″)
osqldata.psqlgrabar(_screen,»6″,_screen,»clientes»)
SELECT clientes
vultimoid=osqldata.psqlultimoid(_screen,»6″)
UPDATE detalle SET idcliente=vultimoid WHERE idcliente=0 or isnull(idcliente)
&&ahora con el id, lo agregamos a la tabla detalle
osqldata.psqlgrabar(_screen,»6″,_screen,»detalle»)
osqldata.psqlfintran(_screen,»6″)
osqldata.psqlfinal(_screen,»6″)
WAIT «Grabado.» WINDOW NOWAIT
FoxyDB
oDb.Update(“clientes”), .t.)
replace detalle.idcliente with odb.id_last All && Se puede usar Update también
oDb.Update(“detalle”)
oDb.Commit()
Nota: FoxyDb tiene dos funciones para indicarte si hubo cambios en todos los cursores abiertos o en un cursor en especial, esto lo uso mucho para evitar enviar a actualizar un cursor que no tiene cambios o recorrer todos los cursores para saber si hubo cambios.
Puedo notar que es mas natural las funciones de FoxyDb que las de SqlData jejejejejejejeje
saludos
Antonio Meza
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/01625385-db1d-47ba-9702-e6d000e81b53n%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/1b57c272-f0c8-4725-b897-ea50ffb9cd97n%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAHTK47uT9NzcjLfxbDSvduCCapSKcF4rnZGRF6j%2BucvGkX4s1Q%40mail.gmail.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f97916b5-916c-46bc-9f61-bbf4132496d8n%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f97916b5-916c-46bc-9f61-bbf4132496d8n%40googlegroups.com.
Victor yo recuerdo haber leído en tu wiki una librería sencilla para accesos remotos, a esa te refieres? ¿por cierto ya tu wiki dejó de funcionar?
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/713771c8-e501-46f5-a659-a94a70d3eecfn%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/8adf3982-ab39-45d0-8b87-9643e183febbn%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/5c86aa49-ace1-4ba0-9e01-375c742c2d03n%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9d313c67-62fa-4166-b285-17773a0129a8n%40googlegroups.com.
--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAOOxim-hP17w0zZthpmNXJ0dPbrzz72E6gqgo-gZ4uB9HuGf8A%40mail.gmail.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2B7ERdsUjOoqqQWW6Zf8y-SSXiJrGGGCXs3uesRUSkYQrrx3OA%40mail.gmail.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAOOxim_Gc6HfCNXELm%3D03_3guinBsD3yOSdk0p5pfwS5DWcx-Q%40mail.gmail.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/2fd596ac-9fe7-48a2-99f7-7ca39399ea67n%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/76ee9e68-0cbb-4406-b838-0fde5e2aaeedn%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/0b788eee-2712-4db4-a75f-a2614d674c8fn%40googlegroups.com.