William,
Muchas gracias por la informaci贸n.
Saludos
Anser
William,
Muchas gracias por la informaci贸n.
Saludos
Anser
........
oOdbc := TOdbc():New( "SQLServer", "", "" )
oDbf := TDbOdbc():new( "SELECT * FROM tabla" , oOdbc)
oDbf:Gotop()
Do While !oDbf:Eof()
Aadd(aData, oDbf:FieldGet(1) )
oDbf:Skip()
End
etc etc etc .......ValType( aData[1] )local aDatos
aDatos := {}
aDatos := { { "hola" }, { "mundo" } }
Do While !oDbf:Eof()
Aadd(aData, oDbf:FieldGet(1) )
oDbf:Skip()
End Do While !oDbf:Eof()
Aadd(aData, { oDbf:FieldGet(1), oDbf:FieldGet(2), oDbf:FieldGet(3) } )
oDbf:Skip()
EndGracias!
Ha funcionado perfectamente!
Un saludo.
![]()
Hola de nuevo.
En relaci贸n al tema que est谩n tratando.
He hecho un ejemplo de XBrowse bas谩ndome en el RecordSet, para visualizar una tabla en SQLServer.
Mi idea es hacer una gesti贸n Cliente-Servidor.
Pero tengo la duda de:
cursorLocation := adUseClient o cambiarlo a Server
cursorType := adOpenDynamic o cambiarlo a adOpenStatic
Mi duda se basa en que los usuarios podr谩n realizar consultas y modificaciones de una misma tabla desde varios puesto al mismo tiempo.
Seg煤n he podido leer en el manual de SQL Server, es importante trabajar de modo que el XBrowse solo se descargue los regisros necesarios y no toda la tabla. De modo que la aplicaci贸n trabaja con "copias" en local y luego envia los cambios al servidor. De aqu铆 mi duda con los cursorLocation y cursorType.
驴alguien me podr铆a decir como deben ir configurados para trabajar en Cliente-Servidor? 驴o darme alguna orientaci贸n para empezar...?
Me ser铆a muy util
Gr谩cias.
![]()
聽 聽 聽 oRs:CursorLocation 聽 := adUseClient
聽 聽 聽 oRs:CursorType 聽 聽 聽 := adOpenDynamic
聽 聽 聽 oRs:LockType 聽 聽 聽 聽 := adLockOptimisticGacias Biel.
![]()
Hola,
Soy el de las eternas preguntas.
Espero no cansarles. Pero son por pura necesidad.
Tengo ya hecho un XBrowse con acceso RecordSet.
Desde 茅l, puedo consultar, a帽adir y modificar registros de una tabla de SQL Server.
Mi duda es:
Al ejecutar dos copias de la aplicaci贸n (para emular funcionamiento en red)
驴es posible forzar un refresco general?
es decir, que modifique un registro en un cliente y los otros puestos puedan ver el cambio.
Yo pienso que poniendo un bot贸n que vuelva a cargar la Query del RecordSet, bastar铆a para que cada cliente
viera los cambios en su puesto.
Lo que quiero es que el refresco, sea autom谩tico.
........ ![]()
Dudas...
1) al crear la tabla con tdolphin el campo del tipo BIT como se lo crea? porque pongo "bit" como tipo de dato y me salta error
2) si utilizo "logical" en vez de bit... podr铆an en concreto poner un ejemplo de como utilizar la tabla directamente desde el xbrowse con el checkbox? porque lei mucho pero no me sale.
gracias.
haber, en mysql, tynyint no es el tipo de dato que se usa para emular campos logicos?
salu2
carlos vargas
En MySQL 5.0.3, un tipo de datos BIT est谩 disponible para almacenar valores de un bit. (Antes de 5.0.3, MySQL interpreta BIT como TINYINT(1).) En MySQL 5.0.3, BIT lo soporta s贸lo tablas MyISAM. MySQL 5.0.5 extiende soporte de BIT para MEMORY, InnoDB, y BDB.listons!
gracias.