Foros Club Delphi - como acceder a una DBase DBF

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - como acceder a una DBase DBF (https://www.clubdelphi.com/foros/showthread.php?t=4313)

seken

09-10-2003 23:56:08

como acceder a una DBase DBF

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

10-10-2003 00:03:57

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

10-10-2003 00:28:56

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

10-10-2003 08:25:06

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

10-10-2003 13:44:51

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

10-10-2003 16:49:29

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

Query.FieldByName(...).AsXXX

// Saludos

marcoszorrilla

10-10-2003 22:10:18

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

10-10-2003 22:53:37

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...

La franja horaria es GMT +2. Ahora son las 05:50:48.