Base de datos a la que pertenece una tabla sin usar INDBC
Visual Fox Pro, Trucos Agregar ComentariosEsta es la forma de conocer a que base de datos esta vinculada una tabla sin invocar la función INDBC().
Las tablas internamente almacenan las características de estas, por ejemplo el número de campos, el tipo de tabla, en fin. En este ejemplo vamos a conocer la base de datos a la que esta vinculada la tabla seleccionada por el usuario.
Local cArchivo, cBD
cArchivo=Fopen(Getfile("DBF"))
If cArchivo==-1 THEN
=Messagebox("El archivo se encuentra abierto ... acción no realizada")
Endif
=Fseek(cArchivo,32)
Do While !Feof(cArchivo)
If Asc(Fread(cArchivo,1))==13
THEN
cBD=Fread(cArchivo,264)
Exit
Endif
EndDo
=Fclose(cArchivo)
If Type("cBD")= "C" THEN
=MessageBox(Trim(cBD))
Endif
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com