como acceder a una DBase DBF

seken · #1 09-10-2003

estimados:
necesitaria saber si hay alguna forma de poder acceder a una base de datos DBF que esta abierta en un programa DOS (clipper) solo para lectura.
Necesito seleccionar un registro y copiar unos datos que tiene a otra base de datos Paradox de mi sistema.
Dentro de delphi aunque le pongo solo lectura me da "Table is Busy".
muchas gracias

...La cooperación es la convicción plena de que nadie puede llegar a la meta si no llegan todos.(Virginia Burden)...;

roman · #2 10-10-2003

En el BDE Administrator (lo encuentras en el panel de control de Windows) escoge la ficha "Configuración" del lado izquierdo. Ahí selecciona el nodo "System\Init" del árbol y en el lado derecho verás la opción "LOCAL SHARE". Según la ayuda del BDE si pones esta opción en TRUE podrás compartir datos entre aplicaciones BDE (una hecha en Delphi por ejemplo) y aplicaciones NO-BDE (como la de Clipper)

// Saludos

seken · #3 10-10-2003

roman:
probe cambiar lo que me recomendaste pero no funciono.
esto que me aconsejas es para poder acceder cuando la usan otros o simplemente poder abrir algo de DOS.

Las bases DBF las puedo abrir sin poner lo que me aconsejas en True. El problema mio es el solo lectura.
gracias

marcoszorrilla · #4 10-10-2003

Por lo que veo el problema viene del programa en clipper que según se desprende no abre las tablas en modo compartido, si tienes el código en Clipper lo que tienes que hacer es modificar la apertura de las tablas y pasarlas a compartido:

Código:

FUNCTION ABREBASES(nModo)
//nModo 1.-Red, compartido.
//nModo 2.-Mono, Exclusivo d¡a 20 para empaquetar.
//Solo Empaqueta el Servidor.
QUEPUESTO()


//1
       cFichero:="CAPROVEE.DBF"
       cAlias:="PROVEEDOR"
FUNCTION ABREFICH(nModo)
       IF nModo == 1
       DbUseArea(.T.,,cCamino+cFichero,cAlias,.T.)
       ELSE
       DbUseArea(.T.,,cCamino+cFichero,cAlias,.F.)
                IF NETERR()
                lPacked:=.F.
                ELSE
                lPacked:=.T.
                END
       END
RETURN(nil)

Sino abre las tablas por medio de una consulta "query" y para lo que quieres pienso que lo puedas solucionar.

Un Saludo.

seken · #5 10-10-2003

funciono bien hacer un Query para poder consultar, la unica duda es ¿como referencio los datos del registro que puedo estar seleccionando del query y los veo en un dbgrid?
lo que necesito hacer es de un registro seleccionado en el dbgrid crear uno nuevo en otra tabla (paradox) con solo hacer un click en un boton.

mucha gracias nuevamente.

...La cooperación es la convicción plena de que nadie puede llegar a la meta si no llegan todos...

roman · #6 10-10-2003

Puedes acceder a los campos de la misma forma que con un Table:

Query.FieldByName(...).AsXXX

// Saludos

marcoszorrilla · #7 10-10-2003

Otra solución a la propuesta por Román, consistiría en crear campos persistentes en la Consulta "Query", de esta manera puedes hacer:

Código:

MiTablaParadox.Append;
MiTablaParadoxMiNombreCampo.Value:=MiQueryMinombreCampo.Value;
MITablaParadox.Post;

Un Saludo.

seken · #8 10-10-2003

muchas gracias a ambos, ya me salio todo OK.

...La cooperación es la convicción plena de que nadie puede llegar a la meta si no llegan todos...