Como hago para ...

On Sun, 12 Dec 2004 01:22:16 -0600, "RJ"
wrote:

importar datos, el usuario escoge el directorio y tabla, de una tabla hacia
otra, pero verificando que los campos de ambas sean iguales..

Luego, es mejor hacer append from o existe otra forma de hacerlo..

Lee la ayuda por lo siguiente:

Para escoger directorios:
GetDir()

Leer directorios a un array:
Adir()

Ver campos:
Afields()

Manipular campos:
Alter Table

Traer registros:
Append From

HTH



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net

Hola

el usuario escoge el directorio y tabla, de una tabla hacia
otra,
bueno, esto lo podés hacer con GetFile("dbf") en el caso de las dos
tablas, una vez obtenidas.

Para el caso de comparar si los campos son iguales, hice una rutina para
comparar dos tablas y decir si son o no iguales.

Se llama CompareStruct

y funciona de la siguiente manera.
CompareStruct(vlArchivo,'Archivo')

donde el vlArchivo es el archivo que se comparará con , 'Archivo', que es
la tabla cargada enel entorno de datos,


*--
*Procedimiento ComparaStruct
*Elaborado por: Ing. Daniel Bojorge
*País: Nicaragua
*
PARAMETERS vlArchivo,vlPrinc,vlIn

LOCAL i,j,x

IF !EMPTY(vlArchivo)
SELECT &vlPrinc
i=Afields(CamposPrinc)

USE '&vlArchivo' IN 8 ALIAS Nucl
SELECT Nucl
j¯IELDS(CamposArchivo)
IF i#j
MESSAGEBOX(vlArchivo+chr(10)+'No tiene la misma estructura de
'+vlPrinc+'.DBF',0+16,;
oSistema.Nombre)
RETURN .F.
ENDIF

FOR x = 1 TO i
IF CamposPrinc(x,1) # CamposArchivo(x,1) OR CamposPrinc(x,2) #
CamposArchivo(x,2) ;
OR CamposPrinc(x,3) # CamposArchivo(x,3) OR CamposPrinc(x,4) #
CamposArchivo(x,4)
MESSAGEBOX(vlArchivo+chr(10)+'No tiene la misma estructura de
'+vlPrinc+'.DBF',0+16,;
oSistema.Nombre)
RETURN .F.
ENDIF
ENDFOR

RETURN .T.
ELSE
RETURN .F.
ENDIF

********* 19/09/2002 09:20 x Ing. Daniel Bojorge

*--


Hay que hacerle algunas adecuaciones, pero funciona bien, lo básico es
comprar los dos arrays.



Dios Te Bendiga

Saludos,

Daniel (con 1 Estrella DCE)
Nicaragua
<a href="http://www.lecturasbiblicas.ni.kz"
target="_blank">http://www.lecturasbiblicas.ni.kz</a>

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Quise decir comparar Arreglos



Dios Te Bendiga

Saludos,

Daniel (con 1 Estrella DCE)
Nicaragua
<a href="http://www.lecturasbiblicas.ni.kz"
target="_blank">http://www.lecturasbiblicas.ni.kz</a>


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway