dblizama,
Gracias por tu ayuda, pero no funciono este es el log de las prueba, cambiando slash "/", "\" con y sin el, no funciona de ninguna manera
mira el .log
07/14/08 17:18:36: Leto DB Server has been started.
07/14/08 17:21:08: Open error (15-1002): f:\letodb\data//BASES
07/14/08 17:22:06: Open error (15-1002): f:\letodb\data/BASES
07/14/08 17:23:04: Open error (15-1002): f:\letodb\data\BASES
gracias
sabe que sera
salu2
paco
#Include "FiveWin.Ch"
FUNCTION Main()
LOCAL cServer:="//192.168.1.200:2812/", nI
REQUEST Leto
RDDSetDefault("Leto")
IF Leto_Connect(cServer)==-1
MsgAlert("No se puede establecer la conexi贸n.","Verifique!")
RETURN (NIL)
ENDIF
DBUseArea(.T.,,cServer+"Dat2008/Personal","Personal")
IF !Empty(OrdName(1)) // Esto porque parece que no hay SET AUTOPEN
Personal->(DbSetOrder(1))
ENDIF
IF Personal->(DbSeek("0275"))
MsgInfo(Personal->NomCom)
ELSE
MsgInfo("No lo encontr茅!")
ENDIF
Personal->(DbCloseArea())
RETURN (NIL)Alfredo:
El quinto parametro de la funcion dbusearea() es un valor logico que indica si se permite o no la apertura compartida de tablas, veo que en tu codigo no lo usas, queda entonces expuesto a lo que diga SET EXCLUSIVE que tampoco lo usas. Por lo tanto la apertura es No Compartida. Creo que por ahi va el error...
Saludos
Paco:
Prueba dos cosas y cuentanos...
1.- Ejecutar todo desde el disco local C:
2.- Crear una tabla desde el codigo.
Saludos, saldremos adelante...
El parametro Shared de dbUseArea, sirve para indicarle a leto el modo de apertura, pero solo tiene ambito dentro del servidor. Es decir si le indicamos que queremos apertura compartida, nos permitira usar la misma tabla desde diferentes puntos(clientes, programas, etc), pero accediendo atraves del servidor.
LetoDB abre en modo exclusivo los ficheros, lo que imposibilita el uso de los dbf desde una aplicaci贸n externa.
jblizama,
Gracias por la respuesta. Sigo mirando los resultados de los testes...
Saludos,
Biel EA6DD wrote:El parametro Shared de dbUseArea, sirve para indicarle a leto el modo de apertura, pero solo tiene ambito dentro del servidor. Es decir si le indicamos que queremos apertura compartida, nos permitira usar la misma tabla desde diferentes puntos(clientes, programas, etc), pero accediendo atraves del servidor.
LetoDB abre en modo exclusivo los ficheros, lo que imposibilita el uso de los dbf desde una aplicaci贸n externa.
Paco.
Para probar tu codigo, le pedi el computador a mi hijo, despues de una mirada de "donde la viste", me lo presto..., instale todo desde cero, incluido leto..., copy & paste para el codigo de el blog de Biel, al compilar, sorpresa... se conectaba pero no hacia nada, es decir, no creaba la tabla de datos...(En mi pais hay una exclamacion para esto...CHUUUUUUUU...)
Despues de unos intentos fallidos, elimine los espacios en blanco que hay entre las claves y sus valores para en el archivo letodb.ini, stop para letodb.exe y reinicio nuevamente, ejecucion de tu codigo y FUNCIONA....
Parece ser que letodb no quiere estos espacios en su archivo ini...
Salud...
jblizama,
Pero estara peleado conmigo el letodb? hice los cambios como tu y nada no funciona, me pasas la .lib que tu usas, con que versionde harbour enlazas?
gracias
paco
Paco:
Uso la ultima MiniGUI Extend, y el archivo zip de el Blog de Biel donde estan comprimidos los tres archivos letodb.exe, rddleto.lib, manage.exe
1.- Crear una carpeta C:\letodb
2.- Descomprimir letodb.zip en la carpeta creada.
3.- Copiar el archivo rddleto.lib en C:\MiniGUI\Harbour\Lib
4.- Modificar en brmake.ini para agregar la librer铆a rddleto.lib
5.- Crear la subcarpeta C:\letodb\data
6.- Crear el archivo letodb.ini en C:\letodb con lo siguiente:
Port=2812
DataPath=c:/letodb/data
Logfile="letodb.log"
Default_Driver=CDX
7.- Crear una carpeta C:\letoprg
8.- Crear un archivo leto.prg en esa carpeta, y copia el c贸digo de prueba.
9.- Ejecutar el archivo letodb.exe
10.- Compilar y Ejecutar el archivo leto.prg
Salud
Paco, vuelve a descargarte letodb.zip de mi blog, hay una mejora con el manejo de path y fichero ini. Ademas le he a帽adido que registre en el fichero de log, el datapath y el puerto que esta usando el server.
Yo he probado el codigo y el ini tal cual los pones aqui, y ha funcionado correctamente.
Antonio Martinez wrote:Biel,
A ver si entiendo... significa esto que si abro una .dbf con Leto, aunque sea en modo compartido, ya no la puedo abrir con por ejemplos un programa clipper.... ????
Creo que esta caracteristica si la permite ADS
Francisco Horta wrote:jblizama,
Hice lo que me sugeriste, y no funiono, sigo sin entender porque si me marca que establece la conexion, pero no hace nada mas.
aqui dejo el .prg esta muy basico y corto, si alguien lo puede probar a ver si le funciona, todo lo hago desde el disco local c
#Include "Fivewin.ch"
FUNCTION Main()
LOCAL cServer := '//localhost:2812/'
LOCAL aDbf := {}
REQUEST LETO
RDDSETDEFAULT("LETO")
IF Leto_Connect(cServer)==-1
msginfo("no hay conexion con el servidor "+cServer)
return NIL
ELSE
msginfo("Conexion establecida con el servidor "+cServer)
ENDIF
aDbf := {{"campo1", "N", 3, 0},;
{"campo2", "C", 15, 0},;
{"fecha" , "D", 8, 0}}
DBCreate( cServer+'prueba.dbf', aDbf )
RETURN NIL
[url=http://img378.imageshack.us/my.php?image=letodb4cj9.jpg]
salu2
paco
FUNCTION LetoDbProva()
LOCAL cServer:="//127.0.0.1:2812/"
REQUEST Leto
RDDSetDefault("Leto")
IF Leto_Connect(cServer)==-1
MsgAlert("No se puede establecer la conexi贸n.","Verifique!")
RETURN (NIL)
ENDIF
DBUseArea(.T.,, cServer + "categ.d07", "categ2" )
msginfo( categ2->( reccount() ) )
categ2->( browse() )
categ2->( DbCloseArea() )
RETURN (NIL)mirando server.prg en esta funcion: hs_opentable()
est脿 puesto en modo fijo el parametro para abrir en modo exlusivo las bases de datos, creo que ahi esta la cosa para abrirlos en modo compartido.
cambiando esta linea, las abre en modo compartido (no se que otras consecuencias puede tener...)
dbUseArea( .F.,Iif(nDriver==1,"DBFNTX",Nil),oApp:DataPath+cName,cRealAlias,.T.,.F.,Iif(!Empty(cdp),cdp,Nil) )
saludos